[Resolvido] Verificar máquinas ligadas

[rafaelcpcunha]

Olá

Aqui no laboratório há 78 máquinas. Pelo VB, como verifico quais estam ligadas.

No DOS faço: ping ip -n 1 | find "faixa net id" >> ligadas.txt

Depois leio esse arquivo no VB. Mas isso não é nada prático.

1. Não existe alguma API que automatize o processo?

2. Tem como através de um if fazer tipo: se comando dos retornar algo faça ... , senão ...

Editado Junho 15, 2011 por rafaelcpcunha

[rafaelcpcunha]

Achei uma boa rotina na web e adaptei-a

Private Declare Function Ping Lib "iphlpapi" Alias "#65" (ByVal pInternetProtocol As Long, pNumberOfCalls As Long, ByVal pMaxNumberOfCalls As Long, lTime As Long) As Long
Private Declare Function ConvertStringToIP Lib "wsock32" Alias "#10" (ByVal stoip As String) As Long

Function MyPing(sIPAddr As String) As Boolean
Dim IP As Long, pNumCalls As Long, lTime As Long
IP = ConvertStringToIP(sIPAddr)
MyPing = (Ping(IP, pNumCalls, 1, lTime) = 1)
End Function

Private Sub Form_Load()
Dim m01 As Boolean: m01 = MyPing("10.22.214.6")

If m01 = True Then
msgbox "máquina ligada"
Else
msgbox "máquina desligada"
End If

End Sub

É só criar uma variável e repetir o if para cada máquina.