用vbs脚本解决runas命令无法自动输入密码问题

用vbs脚本解决runas命令无法自动输入密码问题

option explicit
dim Name,fs,ts,WshShell
set fs=createobject("scripting.filesystemobject")
set ts=fs.opentextfile("\\（共享文件夹ip地址）\Sharing\IT\IT_Department\key\Document.txt",1,true)
Name=ts.readline
Set WshShell = CreateObject("WScript.Shell")
WshShell.run "cmd /k title key"
wscript.Sleep 1000
WshShell.AppActivate("key")
WshShell.SendKeys "runas /user:"
WshShell.SendKeys "+"
WshShell.SendKeys "账号"
WshShell.SendKeys "+"
WshShell.SendKeys "@域 \\（共享文件夹ip地址）\Sharing\TEMP\Bitlocker$\Computer_bat\start.bat{Enter}"
wscript.Sleep 1000
WshShell.SendKeys Name
WshShell.SendKeys "{Enter}"

vbs自动化测试的技术，模拟人手动输入
ts变量是我把密码放在了一个文件夹里，不适合放在脚本里
"+"点击shift键
加号{+}