vbs调用runas自动输入密码无需批处理sanur和CPAU等工具了

源码： Set Shell = CreateObject("WScript.Shell") Shell.Run "runas /profile /env /user:%computername%\administrator /savecred "&chr(34)&"gpupdate /force"&chr(34)&"" WScript.Sleep 1000 Shell.SendKeys "password{ENTER}exit{ENTER}" 使用说明： %computername%\administrator 更换账户名最好前面加计算机名或域名 "&chr(34)&"gpupdate /force"&chr(34)&" 更换程序名或脚本最好有路径 password 更换密码 已知问题： 1.有输入法需要英文状态； 2.输入密码未隐藏，不想折腾了，会的修补下； 2.部分不兼容runas运行的程序绕行。 其他未测试，我不会编程。勿喷