Tester la présence d'une machine sur le réseau [Résolu]

[Empty_body]

Bonsoir,

J'aimerais savoir si il est possible de tester la présence d'une machine sur le réseau en vba. Je me doute qu'il doit exister une fonction qui se base sur l'ip mais j'ignore laquelle. Quelqu'un aurait une idée?

Merci.

[Oliv-]

salut,
Tu peux utiliser "dir" voir l'aide.

[Garuda]

Envoyé par Empty_body

Bonsoir,

J'aimerais savoir si il est possible de tester la présence d'une machine sur le réseau en vba. Je me doute qu'il doit exister une fonction qui se base sur l'ip mais j'ignore laquelle. Quelqu'un aurait une idée?

Merci.

"ping" est ton ami !

[Oliv-]

Ton ami à condition de savoir comment récupérer le résultat à partir de vba !

ici un fil :
http://groups.google.fr/group/micros...28112340bfb6eb

[Empty_body]

J'avais effectivement pensé à un ping mais lancé dans le shell, c'est de l'asynchrone, donc ça marche pas... Merci Oliv-, je vais chercher dans cette voie...

[Empty_body]

Pour les curieux, ceci fonctionne...

Code :

1
2
3
4
5
6
7
8
9
    strComputer = "192.168.1.1"
    On Error Resume Next
    Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}!\\").ExecQuery("select * from Win32_PingStatus where address = '" & strComputer & "'")
    For Each objStatus In objPing
    If objStatus.Statuscode = 0 Then
        MsgBox strComputer & " is responding"
    Else
        MsgBox strComputer & " is not responding"
    End If