SCOM 2007 : Perf temps de reponse Ping

 
Create Perf for ping reponse time
 
Ce script permet de créer un compteur de performance sur les temps moyens de réponse au ping.
Il prend en argument l’adresse IP de la cible ainsi que le nombre de ping a exécuter
 
Use this script into a rule to create a perf counter for average response time
1rst arg = ip address
2nd = nb ping
 
 
 

Set oAPI = CreateObject("MOM.ScriptAPI")

Set oBag = oAPI.CreatePropertyBag()

 

 

Set oArgs = WScript.Arguments

if oArgs.Count <> 2 Then

                        Call oAPI.LogScriptEvent("TestPing.vbs",101,0,"Nb arguments")

            wscriptQuit -1

End If

 

strTargetComputer = oArgs(0)

intNbPing = oArgs(1)

intTimeToPing =0

intMoyenneTempsPing = 0

intNbPingEchec = 0

 

 

For intI=1 to intNbPing

                        Dim objPing, objStatus

                        Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}")._

                            ExecQuery("select * from Win32_PingStatus where address = ‘"_

                                & strTargetComputer & "’")

                        For Each objStatus in objPing

                            intTimeToPing = intTimeToPing + objStatus.ResponseTime

                        Next

Next

 

intMoyenneTempsPing = intTimeToPing / intNbPing

 

 

Call oBag.AddValue("PerfValue", IntMoyenneTempsPing)

Call oAPI.Return(oBag)

Publicités

Laisser un commentaire

Entrez vos coordonnées ci-dessous ou cliquez sur une icône pour vous connecter:

Logo WordPress.com

Vous commentez à l'aide de votre compte WordPress.com. Déconnexion / Changer )

Image Twitter

Vous commentez à l'aide de votre compte Twitter. Déconnexion / Changer )

Photo Facebook

Vous commentez à l'aide de votre compte Facebook. Déconnexion / Changer )

Photo Google+

Vous commentez à l'aide de votre compte Google+. Déconnexion / Changer )

Connexion à %s

%d blogueurs aiment cette page :