问题：
求一個可以檢查PING服務器的腳本
目前服務器常出現斷線現象而不能及時察覺﹐想實現自定時ping指定的服務器IP﹐如ping不服務器提示報警。
脚本:
把要ping的对象服务器名字替换“我的服务器"; 我设置的检测间隔是5秒钟，你可以自己调节;如果通讯失败的话，脚本会自动停止. 这个脚本应该可以一直在后台运行， 占用的内存不大.
WScript.Echo Ping("我的服务器")
Function Ping(sName)
Dim cPingResults, oPingResult
Set cPingResults = GetObject("winmgmts://./root/" & "cimv2").ExecQuery("SELECT " & "* FROM Win32_PingStatus WHERE " & "Address = '" & sName & "'")
On Error Resume Next
Do
WScript.Sleep 5000
For Each oPingResult In cPingResults
If Not IsObject(cPingResults) Then
WScript.Echo "警告，无响应"
WScript.Quit
ElseIf oPingResult.StatusCode = 0 Then
'通的话需要做什么写到这里
Else
WScript.Echo "警告，无响应"
WScript.Quit
End If
Next
Loop until i<>i
End Function