Question

我需要在SOHO环境中为互联网gw提出简单的解决方案。它有2个互联网连接 - 主要通过adsl链接和通过USB 3G调制解调器备份。两个连接都导出标准PPP接口，因此可以通过命令行或脚本轻松打开/关闭它们。脚本必须能够：

检查主要互联网连接是否仍然可用，例如每30个秒。
如果它连续10次没有可用（那个意味着，约300秒），它必须断开主连接（如果它仍然连接），并尝试重新连接它
如果（2）没有解决问题，则必须断开main 连接（再次，如果它完全连接）并继续转弯在备份conn-n。
如果（3）成功进行，则必须定期进行（比方说，每小时）尝试切换回主要的连接确定它仍然不可用，如果不是，那么回退到再次备份。如果是，那就留在主要的那个。
能够在简单文本日志文件中镜像所有上述转换。

我可以借用任何建议和有用的代码片段/片段，以使这些任务更容易吗？

Answer 1

使用以下脚本，您可以检查连接是否已启动，添加一些睡眠和循环，您就可以了。

Function ExecPing(strTarget)
  Set objShell = CreateObject("WScript.Shell")
  Set objExec = objShell.Exec("ping -n 2 -w 1000 " & strTarget)
  strPingResults = LCase(objExec.StdOut.ReadAll)
  If InStr(strPingResults, "reply from") Then 
    WScript.Echo VbCrLf & strTarget & " responded to ping."
    ExecPing = True
  Else
    WScript.Echo VbCrLf & strTarget & " did not respond to ping."
    ExecPing = False
  End If
End Function

ExecPing inputbox( "Give the ip/unc/url to ping:")

简单的vbscript脚本，用于检查互联网链接的健康状况，如果主要丢弃则切换到备份连接

1 个答案: