removing google toolbar across the domain

[pooley]

I have found a script (below) that I can deploy and it will remove the google&yahoo toolbars from IE.

'This file silently uninstalls the Google, Yahoo!
'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
Set i=0
Set WshShell=WScript.CreateObject("WScript.Shell")
Set Shell=WScript.CreateObject("Shell.Application")
'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
Wscript.sleep 15000
'This Ends the Script
WshShell=Nothing
Wscript.Quit(i)

 

After it runs IE opens and directs me to the Google toolbar removal/questionair page, i.e. why did you remove it etc. Any idea's how to prevent this from opening after the script has run?

 

Thanks

 

Si

[FN-GM]

I have found a script (below) that I can deploy and it will remove the google&yahoo toolbars from IE.

'This file silently uninstalls the Google, Yahoo!
'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
Set i=0
Set WshShell=WScript.CreateObject("WScript.Shell")
Set Shell=WScript.CreateObject("Shell.Application")
'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
Wscript.sleep 15000
'This Ends the Script
WshShell=Nothing
Wscript.Quit(i)

 

After it runs IE opens and directs me to the Google toolbar removal/questionair page, i.e. why did you remove it etc. Any idea's how to prevent this from opening after the script has run?

 

Thanks

 

Si

 

what happens if you run it as a startup script does it do it then?

 

You could always block that page, although its not really a fix.

[pooley]

Works fine via startup script, should of tested it 1st. thanks

[FN-GM]

Thought so

 

Thanks for posting it, might be handy one day