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