vbs script:
copy all from below here into a *.vbs files:
' (c) 2006 Plamdi.com. This file silently uninstalls the Google Toolbar.
Option Explicit:On Error Resume Next
Dim WshShell,a,i:i=0:Set WshShell=WScript.CreateObject("WScript.Shell")
a=WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{2318C2B1-4965-11d4-9B18-009027A5CD4F}\UninstallString")
If a<>"" Then WshShell.Run(a&" /S"),1,True:i=1
WshShell=Nothing:Wscript.Quit(i)
'This file silently uninstalls the Google, Yahoo!, Ask, and AOL Toolbars. This also removes Weather Channel Desktop.
'Option Explicit
Set Shell=WScript.CreateObject("Shell.Application")
Shell.MinimizeAll
On Error Resume Next
Dim WshShell,a,i
i=0
Set WshShell=WScript.CreateObject("WScript.Shell")
Set Shell=WScript.CreateObject("Shell.Application")
'Begin Script
'This Removes the Google ToolBar
a=WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{2318C2B1-4965-11d4-9B18-009027A5CD4F}\UninstallString")
If a<>"" Then
WshShell.Run(a&" /S"),1,True
i=i+1
end if
'This Removes the Yahoo Toolbar
a=WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Yahoo! Companion\UninstallString")
If a<>"" Then
WshShell.Run(""""&a&""" /S"),1,True
i=i+1
end if
'This Removes the bundled Ask ToolBar
a=WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\AskPBar Uninstall\UninstallString")
If a<>"" Then
WshShell.Run(a),1,False
i=i+1
Wscript.sleep 3000 'pause for 3 seconds
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "%Y"
Wscript.sleep 1000
WshShell.SendKeys "{ENTER}"
end if
'This Removes the Weather Channel Desktop
a=WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\The Weather Channel Desktop\uninstallstring")
If a<>"" Then
WshShell.Run(""""&a&""" /S"),1,False
i=i+1
Wscript.sleep 5000 'pause for 5 seconds
WshShell.SendKeys "{DOWN}"
WshShell.SendKeys "{DOWN}"
WshShell.SendKeys "{DOWN}"
WshShell.SendKeys "{ENTER}"
Wscript.sleep 2000
WshShell.AppActivate "Parature Header - Microsoft Internet Explorer"
WshShell.SendKeys "%F"
WshShell.SendKeys "C"
end if
'This Removes the AOL Toolbar
a=WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\AOL Toolbar\Uninstallstring")
If a<>"" Then
WshShell.Run(a&" /S"),1,True
i=i+1
end if
'This removes the Ask Toolbar
a=WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Ask Toolbar for Internet Explorer_is1\uninstallString")
If a<>"" Then
WshShell.Run(a&" /SILENT"),1,True
i=i+1
end if
Wscript.sleep 15000
'This Ends the Script
WshShell=Nothing:Wscript.Quit(i)
Reviews related to Google Toolbar for Internet Explorer
This website uses cookies.
By continuing to use this site and/or clicking the "Accept" button you are providing consent
Quest Software and its affiliates do NOT sell the Personal Data you provide to us either when you register on our
websites or when you do business with us. For more information about our
Privacy Policy and our data protection
efforts, please visit
GDPR-HQ
