Discussion :

[neogunnm]

Bonjour à tous,

J'ai trouvé beaucoup de chose sur votre FAQ, mais je bloque sur un point.
Je vous explique. Je souhaiterais créer un script permettant l'envoie d'une alerte via une Msgbox si le service "ntrtscan" est arrété ou désactivé.

J'ai trouvé jusqu'à présent ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 Dim objFSO, objWMIService, objService, colServiceList
 Dim objReseau, Ordinateur
 Dim Reponse
 
 Set objReseau = CreateObject("WScript.Network")
 Ordinateur = LCase(objReseau.ComputerName)
 Set objFSO = CreateObject("Scripting.FileSystemObject")
 Set objWMIService = GetObject("winmgmts:" & _
 "{impersonationLevel=impersonate}!\\" & Ordinateur & "\root\cimv2")
 Set colServiceList = objWMIService.ExecQuery _
 ("Select * from Win32_Service where Name='ntrtscan'")
 For Each objService In colServiceList
 If (objService.Name = "ntrtscan") Then
 	If (objService.State = "stopped")Then
 Reponse = Msgbox("Service ntrtscan arrêté")
 End If
 End If
 Next
 Set objFSO = Nothing
 Set objReseau = Nothing
WScript.Quit

Seul hic c'est que cela ne fonctionne pas. La msgbox n'apparait pas lorsque je désactive le service ntrtscan!

J'ai essayé avec ceci :

Code :

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

1
2
3
 If (objService.Name = "ntrtscan") Then
 	If (objService.State <> "running")Then
 Reponse = Msgbox("Service ntrtscan arrêté")

le problème de ces lignes : La msgbox apparait à chaque fois que le service ntrtscan soit démarré ou non !

Je vois pas trop là. Si vous avez des pistes je suis preneur

Merci en tout cas pour votre aide et vos retours.

[neogunnm]

Je pense avoir trouvé.

Je me remercie moi-même hi hi hi

Pour ceux que cela interesse, c'est vraiment une broutille, et je me tire moi-même les oreilles...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 Dim objFSO, objWMIService, objService, colServiceList
 Dim objReseau, Ordinateur
 Dim Reponse
 
 Set objReseau = CreateObject("WScript.Network")
 Ordinateur = LCase(objReseau.ComputerName)
 Set objFSO = CreateObject("Scripting.FileSystemObject")
 Set objWMIService = GetObject("winmgmts:" & _
 "{impersonationLevel=impersonate}!\\" & Ordinateur & "\root\cimv2")
 Set colServiceList = objWMIService.ExecQuery _
 ("Select * from Win32_Service where Name='ntrtscan'")
 For Each objService In colServiceList
 If (objService.Name = "ntrtscan") Then
 	If (objService.State = "Stopped")Then
 Reponse = Msgbox("Service ntrtscan arrêté")
 End If
 End If
 Next
 Set objFSO = Nothing
 Set objReseau = Nothing
WScript.Quit

Cela bloquait à cause du "s" minuscule de "Stopped". Bien respecter les majuscules...

voila...@ plus messieurs.

[l_autodidacte]

Un petit conseil alors : pour ne plus avoir d'embêtement avec des cas pareils et quand on ne connait pas l'orthographe exacte du mot à saisir, on peut faire par exemple :

Code :

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

1
2
3
 If Lcase(objService.State) = "stopped" Then
' ou encore
If Ucase(objService.State) = "STOPPED" Then