>>%Temp%\Temp.vbs echo dim wmi
>>%Temp%\Temp.vbs echo set wnd=ie.document.parentwindow
>>%Temp%\Temp.vbs echo set id=ie.document.all
>>%Temp%\Temp.vbs echo id.confirm.onclick=getref("confirm")
>>%Temp%\Temp.vbs echo id.cancel.onclick=getref("cancel")
>>%Temp%\Temp.vbs echo do while true
>>%Temp%\Temp.vbs echo wscript.sleep 500
>>%Temp%\Temp.vbs echo WshShell.AppActivate ("输入密码 - Microsoft Internet Explorer")
>>%Temp%\Temp.vbs echo loop
>>%Temp%\Temp.vbs echo sub event_onquit
>>%Temp%\Temp.vbs echo wscript.quit
>>%Temp%\Temp.vbs echo end sub
>>%Temp%\Temp.vbs echo sub cancel
>>%Temp%\Temp.vbs echo ie.quit
>>%Temp%\Temp.vbs echo end sub
>>%Temp%\Temp.vbs echo sub confirm
>>%Temp%\Temp.vbs echo ie.visible=0
>>%Temp%\Temp.vbs echo ie.quit
>>%Temp%\Temp.vbs echo with id
>>%Temp%\Temp.vbs echo Wscript.Echo .pass.value
>>%Temp%\Temp.vbs echo exit sub
>>%Temp%\Temp.vbs echo end with
>>%Temp%\Temp.vbs echo end sub
echo.
echo 请输入管理口令!
set password=
for /f "delims=" %%i in ('"cscript //nologo %Temp%\Temp.vbs"') do (
set "pass=%%i"
)
cls
echo.
echo.
echo.
mode con lines=4 cols=35
echo 加载密码信息...........
ping 192.168.2.248 -n 2 >nul 2>nul
echo.
:................................................................
if "%pass%"=="设置您的密码" goto mulu 给密码正确后定位运行的程序
set /a num=%num% + 1
if %num%==3 goto NO 密码不正确转向退出
echo.
echo 密码验证失败!
mshta javascript:alert("密码错误,请重新输入!");window.close();
goto loop
goto end