
CODE: [Copy to clipboard][ Last edited by QOIQoc on 2009-4-11 at 11:01 ]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
CODE: [Copy to clipboard]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
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |