2024年3月7日发(作者:)

VBS Runas 自动输入密码 提权脚本等功能

代码如下:

Set Shell = CreateObject("") "cmd /c @runas /user:administrator

CMD" 2000 ys "password{ENTER}exit{ENTER}"

1000 ys "@echo off&cls&net stop messenger&net start

messenger&exit{ENTER}"

@echo off

echo dim WshShell,cmd >> %

echo cmd="%SystemRoot%" >> %

echo Set WshShell=Object("") >> %

echo cmd >> %

echo 500 >> %

echo ys"runas /user:Administrators%1 %"

>> %

echo ys"{ENTER}" >> %

echo 1000 >> %

echo ys"%2" >> %

echo ys"{ENTER}" >> %

echo 500 >> %

echo ys"exit" >> %

echo ys"{ENTER}" >> %

echo @echo off >> %

echo %4 %5 %6 %7 %8 %9 >> %

echo del % >> %

echo del % >> %

%

以上保存为BAT

代码如下:

dim WshShell,cmd

cmd="%SystemRoot%"

Set WshShell=Object("")

cmd

500

ys"runas /user:Administrators用户名 密码 命令"

ys"{ENTER}"

1000

ys"%2"

ys"{ENTER}"

500

ys"exit"

ys"{ENTER}"

以上保存为VBS

Runas

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