Jump to content

gooroo

Member
  • Posts

    1
  • Joined

  • Last visited

  • Donations

    0.00 USD 
  • Country

    United States

About gooroo

gooroo's Achievements

0

Reputation

  1. Here is the code I used to remove Google, Yahoo!, AOL, and Ask, if anyone is having trouble with the colde from above. The previous code may be outdated (from chrisholmes) 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=i+1 a=WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Yahoo! Companion\UninstallString") If a<>"" Then WshShell.Run(""""&a&""" /S"),1,True:i=i+1 a=WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\AOL Toolbar\UninstallString") If a<>"" Then WshShell.Run(a&" /S"),1,True:i=i+1 a=WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{86D4B82A-ABED-442A-BE86-96357B70F4FE}\uninstallString") If a<>"" Then WshShell.Run("MsiExec.exe /uninstall {86D4B82A-ABED-442A-BE86-96357B70F4FE} /qn"),1,True:i=i+1 WshShell=Nothing:Wscript.Quit(i) I would like to see this added on to and used as a great login script to help prevent junk from accumulating on domain PCs
×
×
  • Create New...