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

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

Function remove_string(osType)

  Select Case Ucase(osType)
    
    Case "64"
      yahoo=ws.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\Yahoo! Toolbar\UninstallString")
	      
    Case "32"
      yahoo=ws.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Yahoo! Toolbar\UninstallString")

  End Select

End Function