标题 | VBS Runas 自动输入密码, 明文 |
范文 | VBS Runas 自动输入密码 提权脚本等功能 代码如下: Set Shell = CreateObject("WScript.Shell") Shell.Run "cmd /c @runas /user:administrator CMD" WScript.Sleep 2000 Shell.SendKeys "password{ENTER}exit{ENTER}" WScript.Sleep 1000 Shell.SendKeys "@echo off&cls&net stop messenger&net start messenger&exit{ENTER}" @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"{ENTER}" >> %3runas.vbs echo WScript.Sleep 1000 >> %3runas.vbs echo WshShell.SendKeys"%2" >> %3runas.vbs echo WshShell.SendKeys"{ENTER}" >> %3runas.vbs echo WScript.Sleep 500 >> %3runas.vbs echo WshShell.SendKeys"exit" >> %3runas.vbs echo WshShell.SendKeys"{ENTER}" >> %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"{ENTER}" WScript.Sleep 1000 WshShell.SendKeys"%2" WshShell.SendKeys"{ENTER}" WScript.Sleep 500 WshShell.SendKeys"exit" WshShell.SendKeys"{ENTER}" 以上保存为VBS Runas 只有在通过自动登陆读到密码时才有用 |
随便看 |
|
在线学习网范文大全提供好词好句、学习总结、工作总结、演讲稿等写作素材及范文模板,是学习及工作的有利工具。