Окей, гугл.
Что такое WMI.
Ей-Богу, это стоит изучить. Это вещь, на которой можно делать
все.
Вот например, как пинговать:
' Check on box availability
' Input: strComputer - checking box name
Function boxAvailable(strComputer)
Dim objPing, objStatus
Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}")._
ExecQuery("select * from Win32_PingStatus where address = '" & strComputer & "'")
For Each objStatus in objPing
If (IsNull(objStatus.StatusCode) Or objStatus.StatusCode <> 0) Then
boxAvailable = False
Else
boxAvailable = True
End If
Next
End Function