search
利用VBS完成自動撥接VPN網路 – jashliao部落格

利用VBS完成自動撥接VPN網路 – jashliao部落格

利用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

 

熱門推薦

本文由 jashliao部落格 提供 原文連結

jashliao部落格
寫了4301篇文章,獲得0次喜歡
留言回覆
回覆
精彩推薦