среда, 9 декабря 2009 г.

Windows - удаление стандартных игрушек в один клик.

И так, для того что бы удалить все стандартные игры в один клик, нам понадобится: текстовый редактор, и скрипт приведенный ниже:


Dim Fso : Set Fso = CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")
sPrograms = WshShell.SpecialFolders("AllUsersPrograms")
If (Fso.FolderExists(sPrograms & "\Игры")) 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 & "\Игры"), True
End If


Сохраняем этот файл с расширением .vbs и запускаем. Если ОСь америкосовская то соответственно "Игры" нужно заменить на "Games".

Почему нельзя просто удалить файлы?
Дело в том, что в "винде" по умолчанию включен WFP (Windows File Protection). Для удаления можно либо отключить WFP, либо воспользоваться приведенными ниже командами:


del /f /q %SystemRoot%\system32\sol.exe
del /f /q %SystemRoot%\system32\dllcache\sol.exe


и так последовательно для каждой игры.

1 комментарий:

Анонимный комментирует...

Спасибо, пригодилось