ITblog

Wspaniała uczta dla wszystkich bofhów - wyrzucenie gier z Windows XP i zabicie tych, które już są uruchomione. Oto skrypciki:

————————————
strComputer = WScript.Arguments.Item(0)
Set objWMIService = GetObject(”winmgmts:” & “{impersonationLevel=impersonate}!\\”
& strComputer & “\root\cimv2″)
Set colProcessList = objWMIService.ExecQuery _

(”Select * from Win32_Process Where Name = ’sol.exe’”)
For Each objProcess In colProcessList

objProcess.Terminate()

Next
Set colProcessList = Nothing
Set colProcessList = objWMIService.ExecQuery _

(”Select * from Win32_Process Where Name = ’spider.exe’”)
For Each objProcess In colProcessList

objProcess.Terminate()

Next
Set colProcessList = Nothing
Set colProcessList = objWMIService.ExecQuery _

(”Select * from Win32_Process Where Name = ‘mshearts.exe’”)
For Each objProcess In colProcessList

objProcess.Terminate()

Next
Set colProcessList = Nothing
Set colProcessList = objWMIService.ExecQuery _

(”Select * from Win32_Process Where Name = ‘freecell.exe’”)
For Each objProcess In colProcessList

objProcess.Terminate()

Next
Set colProcessList = Nothing
Set colProcessList = objWMIService.ExecQuery _

(”Select * from Win32_Process Where Name = ‘pinball.exe’”)

For Each objProcess In colProcessList

objProcess.Terminate()
Next
Set colProcessList = Nothing
————————————

Odinstalowanie:

————————————
Dim Fso : Set Fso = CreateObject(”Scripting.FileSystemObject”)
Set WshShell = WScript.CreateObject(”WScript.Shell”)
sPrograms = WshShell.SpecialFolders(”AllUsersPrograms”)
If (Fso.FolderExists(sPrograms & “\Games”)) Then
Set f = Fso.CreateTextFile(”c:\windows\inf\wmdtocm.txt”, True)
f.WriteLine(”[Components]“)
f.WriteLine(”freecell=off”)
f.WriteLine(”hearts=off”)
f.WriteLine(”minesweeper=off”)
f.WriteLine(”msnexplr=off”)
f.WriteLine(”pinball=off”)
f.WriteLine(”solitaire=off”)
f.WriteLine(”spider=off”)
f.WriteLine(”zonegames=off”)
f.Close

WshShell.Run “sysocmgr.exe /i:c:\windows\inf\sysoc.inf /u:”"c:\windows\inf\wmdtocm.txt”" /q”, 1, True
Fso.DeleteFolder(sPrograms & “\Games”), True
End If
————————————

Czy muszę pisać, że wykorzystywane jest WMI? Chyba nie.

Źródło: Remove the games from Windows XP - Helpdesk when Helpdesk wasn’t Cool