Copy Code code as follows:
Set Shell = CreateObject ("Wscript.Shell") shell.run "cmd/c @runas/user:administrator cmd" wscript.sleep Eys "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 >>%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 >>%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
Above Save As Bat
Copy Code code as follows:
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\ username password command"
Wshshell.sendkeys ' {ENTER} '
Wscript.Sleep 1000
Wshshell.sendkeys "%2"
Wshshell.sendkeys ' {ENTER} '
Wscript.Sleep 500
Wshshell.sendkeys "Exit"
Wshshell.sendkeys ' {ENTER} '
Save As VBS above
Runas
Only useful if you read the password by automatically logging in
