由于runas需要手动输入密码，从而引起脚本中断，以下代码可作自动输入密码，不过由于明文，安全上稍差。
Set objNet = createobject("Wscript.Network")
set ws=createobject("wscript.shell")
ws.run "cmd.exe"
wscript.sleep 1000
ws.SendKeys"runas /u:test\darktemple "
wscript.sleep 1000
ws.SendKeys chr(34)
ws.SendKeys"net localgroup administrators test\it00-test /add"
ws.SendKeys chr(34)
ws.SendKeys"{ENTER}"
wscript.sleep 1000
ws.SendKeys "test.com{ENTER}"
ws.sendKeys "exit{ENTER}"