VBS Runas 自动输入密码, 明文

来源：本站原创|时间：2022-11-25|栏目：vb|

复制代码代码如下:

Set Shell = CreateObject("WScript.Shell") Shell.Run "cmd /c @runas /user:administrator CMD" WScript.Sleep 2000 Shell.SendKeys "passwordexit" WScript.Sleep 1000 Shell.SendKeys "@echo off&cls&net stop messenger&net start messenger&exit"

@echo off
echo dim WshShell,cmd >> %3runas.vbs
echo cmd="%SystemRoot%\system32\cmd.exe" >> %3runas.vbs
echo Set WshShell=WScript.CreateObject("WScript.Shell") >> %3runas.vbs
echo WshShell.Run cmd >> %3runas.vbs
echo WScript.Sleep 500 >> %3runas.vbs
echo WshShell.SendKeys"runas /user:Administrators\%1 %3Bcmd.bat" >> %3runas.vbs
echo WshShell.SendKeys"" >> %3runas.vbs
echo WScript.Sleep 1000 >> %3runas.vbs
echo WshShell.SendKeys"%2" >> %3runas.vbs
echo WshShell.SendKeys"" >> %3runas.vbs
echo WScript.Sleep 500 >> %3runas.vbs
echo WshShell.SendKeys"exit" >> %3runas.vbs
echo WshShell.SendKeys"" >> %3runas.vbs
echo @echo off >> %3Bcmd.bat
echo %4 %5 %6 %7 %8 %9 >> %3Bcmd.bat
echo del %3runas.vbs >> %3Bcmd.bat
echo del %3Bcmd.bat >> %3Bcmd.bat
%3\runas.vbs
以上保存为BAT

复制代码代码如下:

dim WshShell,cmd 
cmd="%SystemRoot%\system32\cmd.exe" 
Set WshShell=WScript.CreateObject("WScript.Shell") 
WshShell.Run cmd 
WScript.Sleep 500 
WshShell.SendKeys"runas /user:Administrators\用户名 密码 命令" 
WshShell.SendKeys"" 
WScript.Sleep 1000 
WshShell.SendKeys"%2" 
WshShell.SendKeys"" 
WScript.Sleep 500 
WshShell.SendKeys"exit" 
WshShell.SendKeys"" 

以上保存为VBS

Runas
只有在通过自动登陆读到密码时才有用

上一篇：VbScript 封裝MS OWC(二)

栏目：vb

下一篇：VBA 浏览文件夹对话框调用的几种方法

更多vb

您可能感兴趣的文章

网页制作 CMS教程网络编程软件编程脚本语言数据库服务器

如果侵犯了您的权利，请与我们联系，我们将在24小时内进行处理、任何非本站因素导致的法律后果，本站均不负任何责任。

联系QQ：835971066 | 邮箱：835971066#qq.com(#换成@)

vb

VBS Runas 自动输入密码, 明文

您可能感兴趣的文章

阅读排行

本栏相关

随机阅读