[VBS-WMI]Tester en WMI si un serveur est UP ?

Version imprimable

05/04/2006, 15h35
kueisaho

[VBS-WMI]Tester en WMI si un serveur est UP ?

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

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

Code:

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.

05/04/2006, 16h13
ThierryAIM

Citation:

Envoyé par kueisaho

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

foireux, pas sûr, mais en VB.net surement :wink:
05/04/2006, 16h15
kueisaho

:? J'ai pas compris. Je me suis trompé de catégorie ?
05/04/2006, 16h16
ThierryAIM

Citation:

Envoyé par kueisaho

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

j'en ai bien peur, dis moi avec quoi tu developpes ?
05/04/2006, 16h28
kueisaho

J'utilise NotePad.
Tout se qui touche WMI/VBScript, c'est pas où ?
05/04/2006, 16h35
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 :wink:
05/04/2006, 16h36
kueisaho

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

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

Code:

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 :lol: