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 комментарий:
Спасибо, пригодилось
Отправить комментарий