不用密码卸载万象VBS

DIM objShell 
set objShell=wscript.createObject("wscript.shell") 
objShell.Run "uninstall.exe qwerttyuiopasdfghjklzxcvbnm"
Wscript.Sleep 3000
objShell.SendKeys "{Enter}"
Wscript.Sleep 5000
objShell.SendKeys "{Enter}"
Set objShell=NoThing 
WScript.quit
Set WS = CreateObject("wscript.shell")
CommandPath="shan.VBS" 
WS.Run CommandPath

posted @ 2013-11-05 20:09  迷茫的搜索者  阅读(305)  评论(0)  编辑  收藏  举报