解决方式多种多样，下面为PING的通用函数，可以试试
' If InStr(sPing("192.168.2.28"), "100% loss") <> 0 Then
' MsgBox "网络不通！"
' Exit Sub
Function sPing(sHost As String) As String
Dim oFSO As Object, oShell As Object, oTempFile As Object
Dim sLine As String, sFilename As String
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oShell = CreateObject("Wscript.Shell")
sFilename = oFSO.GetTempName
oShell.Run "cmd /c ping " & sHost & " >" & sFilename, 0, True
Set oTempFile = oFSO.OpenTextFile(sFilename, 1)
Do While oTempFile.AtEndOfStream <> True
sLine = oTempFile.Readline
sPing = sPing & Trim(sLine)
Loop
oTempFile.Close
oFSO.DeleteFile (sFilename)
End Function
