删除Windows自带游戏

删除自带游戏的脚本代码delgames.vbs：

Const ForReading=1

Const ForWriting=2

Const ForAppending=8

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.CreateTextFile("d:\game.txt", ForAppending, Ture)

objFile.WriteLine "[Components]"

objFile.WriteLine "FreeCell = off" 'kongdangjielong

objFile.WriteLine "Hearts = off" 'hongxindazhan

objFile.WriteLine "Minesweeper = off" 'saolei

objFile.WriteLine "Pinball = off" 'sanweitanqiu

objFile.WriteLine "Solitaire = off" 'zhipai

objFile.WriteLine "Spider = off" 'zhizhuzhipai

objFile.WriteLine "ZoneGames = off" 'internetgames

objFile.Close

Set objShell = CreateObject("Wscript.Shell") 

objShell.Run("sysocmgr.exe /i:%windir%\inf\sysoc.inf /u:d:\game.txt /c /x /l")

脚本删不掉菜单中的Games空目录，请自行删除该目录。

本文转自yangye1985 51CTO博客，原文链接：http://blog.51cto.com/yangye/561041，如需转载请自行联系原作者