[Résolu] Vérifier qu'un service est démarré en VBS

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Résolu] Vérifier qu'un service est démarré en VBS

proutix

Bonjour,

Je voudrais en VBS savoir si un service (WZCSVC) est démarré ou non.
Je sais récupérer l'information si le service est en "automatique"/"manuel" mais impossible de savoir si il est
actif....

Merci de votre aide

Message édité par proutix le 01-07-2008 à 15:28:01

Publicité

ccp6128

Syntax error

Tu peux le récupérer dans la liste des process actifs :

Code :

Dim svc
Dim sQuery
Dim oproc
Set svc = GetObject("winmgmts:root\cimv2" )
sQuery = "select * from win32_process where Name='firefox.exe'"
For Each oproc In svc.execquery(sQuery)
MsgBox oproc.Name
Next
Set svc = Nothing

Il n'y aura aucun oproc si le process n'existe pas, sinon autant qu'il y a d'instances de ton process.

proutix

Merci mais étant donné que WZCSVC n'est pas un process "normal", il est instancié par "C:\WINDOWS\System32\svchost.exe -k netsvcs"
Il faudrait donc avoir les détails des svhost.exe, les dépendances etc...

ccp6128

Syntax error

C'est vrai. Du coup j'ai lu un peu de doc, voici la solution :

Code :

strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=Impersonate}!\\" & strComputer & "\root\cimv2" )
Set colRunningServices = objWMIService.ExecQuery _
("Select State From Win32_Service Where Name='WZCSVC'" )
For Each objService in colRunningServices
Wscript.Echo objService.State
Next

proutix

yeahhh, j'étais en train de chercher dans la classe win32_process mais effectivement la classe win32_service a le paramètre !
Merci bien ccp6128 ! depuis le temps que je cherchais à faire ça....

_ludovic

Bonjour,

J'essaie de faire la meme chose mais avec une vérification de deux services avec le code:

Code :

strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=Impersonate}!\\" & strComputer & "\root\cimv2" )
Set colRunningServices = objWMIService.ExecQuery _
("Select State From Win32_Service Where Name='WZCSVC'" )
For Each objService in colRunningServices
Wscript.Echo objService.State
Next

Je n'ai pas trouvé sur internet la bonne syntaxe. Et vous le savez vous ?

Merci d'avance.

ccp6128

Syntax error

Salut,

Ne pourrais tu pas par exemple vérifier les services les uns après les autres, ou y'a t'il une subtilité qui m'échappe ?

_ludovic

J'ai réussi à faire ceci:

Code :

Const ForAppending = 8
Set objFSO = CreateObject("Scripting.FileSystemObject" )
Set objLogFile = objFSO.OpenTextFile("C:\verif-serv.txt",ForAppending, True)
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=Impersonate}!\\" & strComputer & "\root\cimv2" )
Set colRunningServices = objWMIService.ExecQuery ("Select State From Win32_Service where name = 'spooler'" )
For Each objService in colRunningServices
objLogFile.Write(objService.name & ":" & objService.state)
objLogFile.WriteLine
Next
Set colRunningServices = objWMIService.ExecQuery ("Select State From Win32_Service where name = 'fax'" )
For Each objService in colRunningServices
objLogFile.Write(objService.name & ":" & objService.state)
objLogFile.WriteLine
Next

Cela fonctionne bien à présent. Par contre comment faire une boucle de vérification ?

Merci encore !!

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[Résolu] Vérifier qu'un service est démarré en VBS

Sujets relatifs
[Resolu] Impossible de valider la page en XHTML...	[résolu]Problème Carateres japonais UTF8 et IE7 php
[Résolu] Connexion sécurisée à une base de données MySQL	[Résolu] Order By et Union
Pb Erreur changer MDP Admin local via domain [RESOLU]	[RESOLU]Mise en forme conditionnelle 15 condition / différente cellule
[Resolu] Problème portabilité entre PC sous WinXP	[RESOLU] Problème PHP4 --> PHP5
[Résolu][HTML]Problème avec la balise <a href>	[Résolu] - [Php] - Fonction Isset
Plus de sujets relatifs à : [Résolu] Vérifier qu'un service est démarré en VBS

Page générée en 0.051 secondes