EmersonH.Com

Transforming Knowledge into Power

  • Increase font size
  • Default font size
  • Decrease font size

Ping

Saturday, 12 September 2009 19:10 administrator
E-mail Print

Dim ips As String = "192.168.0.104,62.233.107.154,192.168.0.111"
Dim ipArray() As String = ips.Split(",")
For Each ip As String In ipArray
If (My.Computer.Network.Ping(ip)) Then
MessageBox.Show("IP: " + ip + " ping ok")
Else
MessageBox.Show("IP: " + ip + " ping bad")
End If
Next

Last Updated on Monday, 21 December 2009 17:44