Удаление стандартных игр WIndows XP

Как-то надо было удалить игры, в домене школы, на 740 нетбуках. Немного порывшись родилась следующая идея. Идея проста, для удаления воспользоваться утилиткой sysocmgr.

Dim Fso : Set Fso = CreateObject(«Scripting.FileSystemObject»)
Set WshShell = WScript.CreateObject(«WScript.Shell»)
sPrograms = WshShell.SpecialFolders(«AllUsersPrograms»)
If (Fso.FolderExists(sPrograms & «Игры»)) Then ‘ Create file for uninstalling games
Set f = Fso.CreateTextFile(«c:windowsinfwmdtocm.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:windowsinfsysoc.inf /u:»»c:windowsinfwmdtocm.txt»» /q», 1, True
Fso.DeleteFolder(sPrograms & «Игры»), True
End If

Папка, где хранятся игры: в русской версии WindowsXP — это «Игры».
Этот код сохраните в файл с расширением «.vbs». Допустим remove_games.vbs
Для того чтобы удалить игры со всех компьютеров домена, использовать групповую политику. Я включил этот скрипт в автозагрузку.
«Конфигурация компьютера->Конфигурация Windows->Сценарии (запуск завершение)->Автозагрузка.»

Это работает и можно использовать.

Оставьте комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *