利用VBS完成自動撥接VPN網路
利用VBS完成自動撥接VPN網路
本篇要分享-利用VBS完成自動撥接VPN網路，有興趣的(C/P)同好，歡迎來(C/P)一下哈哈 ^ ^。
|
DIALNAME = “nabrovpn” ‘連線名稱 DIALUSER = “NS25423” ‘連線帳號 NS[IP] DIALPASS = “nabro25423” ‘連線密碼 nabro[IP]
‘ ******** dim check ,check_cht ‘dim check = 1 ‘dim check_cht = 1
‘ *******create ping object Set WshShell = CreateObject(“WScript.Shell”)
‘ *******do ping hinet , if ok connect vpn do RetCode = WshShell.Run(“ping 168.95.1.1”, 0, true) If RetCode = 0 Then WScript.Sleep(20000) WshShell.Run “rasdial ” & DIALNAME & ” ” & DIALUSER & ” ” & DIALPASS, 0 End If loop while RetCode <> 0
‘ ******sleep for net step WScript.Sleep(30000)
‘ ******do ping vpn host , if not connect vpn do RetCode = WshShell.Run(“ping 254.17.254.254”, 0, true) If RetCode <> 0 Then WshShell.Run “rasdial ” & DIALNAME & ” /DISCONNECT”, 0, true WScript.Sleep(60000) WScript.Sleep(60000) WScript.Sleep(60000) WScript.Sleep(60000) ‘ *******check cht if ok , connect vpn do RetCode = WshShell.Run(“ping 168.95.1.1”, 0, true) If RetCode = 0 Then WshShell.Run “rasdial ” & DIALNAME & ” ” & DIALUSER & ” ” & DIALPASS, 0 End If loop while RetCode <> 0 End If WScript.Sleep(60000) loop while check=check |