Bonjour Je cherche a effectuer une verification de connecxion dune machine sur le reseau
j'ai ecris cette fonction mais je ne sais pas comment recuperer et traiter 'linfo du ping
pr savoir si la machine toto est connecte ou pas
 
strComputer = "TOTO"
Function Poste_sur_reseau()
        Set PingShell = CreateObject("WScript.Shell" )
        ScanShell.run ("Ping " & strComputer)
End Function

ping lepc > out.txt
 
=> ensuite tu peux analyser le fichier out.txt
(bon, c'est pas très propre mais ça marche ^^)

oui je vois mais je cherche un truc un peu plu pousse
genre  
il affiche sans passe par un fichier texte les poste conenct et non

strComputer = "TOTO"
Set objWMIService = GetObject("winmgmts:\\" & "." & "\root\cimv2" )
Set colPings = objWMIService.ExecQuery _
    ("Select * From Win32_PingStatus where Address = '" & strComputer &"'" )
 
For Each objStatus in colPings
    If IsNull(objStatus.StatusCode) _
        or objStatus.StatusCode<>0 Then
        Msgbox "Computer did not respond."
    Else
        Msgbox "Computer responded."
    End If
Next
 
 
J'ai trouver sur les MSDN

lol, comment ça fait peur : une requête SQL sur le réseau
 
mais why not si ça marche bien

requête WQL

C'est pas du VBS mais c'est fesable avec AutoIt assez facilement. Je pourrais poster un exemple si ca interresse des gens.

prkoi pas l'info est toujours bonne a prendre