'Remove Google Toolbar
Option Explicit:On Error Resume Next
Dim ws,osType,google,i:i=0:Set ws=WScript.CreateObject("WScript.Shell")

osType = GetObject("winmgmts:root\cimv2:Win32_Processor='cpu0'").AddressWidth
remove_string(osType)
If google<>"" Then ws.Run(google&" /q"),1,True:i=1
ws=Nothing:Wscript.Quit(i)

Function remove_string(osType)

  Select Case Ucase(osType)
    
    Case "64"
	  google=ws.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{2318C2B1-4965-11d4-9B18-009027A5CD4F}\UninstallString")	  
    
    Case "32"
	  google=ws.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{2318C2B1-4965-11d4-9B18-009027A5CD4F}\UninstallString")

  End Select

End Function