删除自带游戏的脚本代码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，如需转载请自行联系原作者
