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
转载于:https://www.cnblogs.com/fox2013/p/3409213.html