Dim oShell,WshNetwork,Computer
Set oShell = WScript.CreateObject("WScript.Shell")
Set WshNetwork = WScript.CreateObject("WScript.Network")
Computer = WshNetwork.ComputerName

if Computer<>"HXGAME" Then

 Dim fdrpath
fdrpath = "D:\"
Delfdr(fdrpath)
sub Delfdr(folderspec)
   Dim fso, f, f1, fc, foldername, f2, ff, filename
   Set fso = CreateObject("scripting.FileSystemObject")
   Set f = fso.GetFolder(folderspec)
   Set fc = f.SubFolders
   For Each f1 in fc
       foldername = LCase(f1.name)
       Select Case foldername
       
Case "劲乐团"
Case "劲舞团"
Case "ddo"
Case "大话西游"
Case "qq幻想"
Case "qq音速"
Case "征途"
Case "梦幻西游"
Case "热血传奇"
Case "魔兽世界"
Case "热血江湖"
Case "街头篮球"
Case "跑跑卡丁车"
Case "问道"
Case "龙与地下城"
Case "飚车"
case "泡泡堂"
case "传奇世界"
case "丝路传说"
       
       Case "system volume information"
       Case "recycler"
       Case Else
           f1.Delete(True)
       end Select
   Next
   Set ff = f.Files
   For Each f2 in ff
       filename = LCase(f2.name)
       Select Case filename
       case "pagefile.sys"
       Case Else
            f2.Delete(True)
       end Select
   Next
Set FSO=NoThing
End sub



Else

Msgbox "服务器上可别运行呀！"

end if


WScript.quit