PING DOS 資料

mhfo

Private Function Ping(ByVal strAddr As String) As String  
     Dim pingChk As Boolean  
     Dim tempStr As String  
     pingChk = GetObject("winmgmts:").Get("NetDiagnostics=@").Ping(strAddr, Ping)  
     DataArray = Split(Ping, "<br>")  
      
     For i = 0 To UBound(DataArray)  
         tempStr = tempStr & TimeMs(DataArray(i)) & ","  
     Next i  
     Ping = Mid$(tempStr, 1, Len(tempStr) - 1)  
End Function