Discussion :

[kueisaho]

Bonjour,

J'ai développé un petit outil basé autour de RRDTool.
En WMI je prélève les infos qui m'intéressent sur les serveurs, mais parfais il y en a qui sont down.
Résultat : il attend plusieurs minutes dessus avant de passer au serveur d'après.

Comment puis je faire en sorte que la requete WMI ne bloque pas sur un serveur ?

Merci pour votre aide.

KueiSaho

[kueisaho]

Je n'ai trouvé que ça, mais le code a l'air foireux :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Function isAlive(ByVal host As String) As Boolean
Dim objStatus As ManagementObject
Dim objPing As New SelectQuery("Select StatusCode from
Win32_PingStatus " & _
"WHERE Address = '" & host & "' and statuscode = 0")
Dim Search As New ManagementObjectSearcher(objPing)
' because the hostname is unique, and statuscode=0 means "success",
we can just say
isAlive = (Search.Get.Count = 1)
Return isAlive
End Function

Je précise que je ne connais pratiquement rien en WMI, je débute.

[ThierryAIM]

Je n'ai trouvé que ça, mais le code a l'air foireux :

foireux, pas sûr, mais en VB.net surement

[kueisaho]

J'ai pas compris. Je me suis trompé de catégorie ?

[ThierryAIM]

J'ai pas compris. Je me suis trompé de catégorie ?

j'en ai bien peur, dis moi avec quoi tu developpes ?

[kueisaho]

J'utilise NotePad.
Tout se qui touche WMI/VBScript, c'est pas où ?

[ThierryAIM]

VBScript, c'est bien ici, mais le code que tu a récupéré, c'est du VB.net, alors ne sois pas étonné que ca ne fonctionne pas

[kueisaho]

Ok désolé. J'avais vraiment l'impression que c'était du VBS

[kueisaho]

J'ai trouvé ce script mais qui ne marche que sous Windows 2003 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colPingedComputers = objWMIService.ExecQuery _
    ("Select * from Win32_PingStatus Where Address = '192.168.1.37'")
For Each objComputer in colPingedComputers
    If objComputer.StatusCode = 0 Then
        Wscript.Echo "Remote computer responded."
    Else
        Wscript.Echo "Remote computer did not respond."
   End If
Next

Bien sur la plus part de mes serveurs sont sous Windows 2000