Discussion :

[a-dawg]

bonjour,

J'ai besoin dans un script VBS de récupérer l'état d'un service windows et de tester sa valeur afin d'opérer d'autres commande.
La commande pour récupérer l'état du service que j'utilise est

Code :

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

1
2
 
cmd = sc interrogate nom_service | find /c /i "running"

Ensuite je m'occupe du problème de quotes et je lance cette commande et récupère l'état :

Code :

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

1
2
3
4
 
cmd = Replace("sc interrogate aspnet_state | find /c /i $$running$$", "$$", chr(34))
service_state = WshShell.run(cmd, 2, true)
wscript.echo service_state

Et pour mon echo j'obtiens toujours la valeur 0 (service arrété) meme si le "vrai" état dans la console mmc ou en CLI affiche 1 (pour démarré)

Alors comment ce fait-il que je n'obtiens pas le meme résultat qu'en CLI ou dans les services.msc?

Merci de votre aide

[SfJ5Rpw8]

Run retourne un entier, mais celui-ci n'est pas en rapport avec ce qui est affiché sur la sortie standard... pour récupérer la sortie standard utilise StdOut :

Code :

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

1
2
3
4
5
cmd = "cmd /c sc interrogate ""iPod Service"" | find /c /i ""running"""
Set WshShell = CreateObject("WScript.Shell")
Set oExec    = WshShell.Exec(cmd)
service_state = Cint(oExec.StdOut.ReadAll)
wscript.echo ">" & service_state & "<"

Nota :pour mettre des guillemets dans une chaine en VB il suffit de doubler ces guillemets, pas la peine d'utiliser ces replace et Chr(34).



et avec WMI ?

voir Comment lister les services actifs ?

Code :

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

1
2
3
4
5
6
7
8
9
strComputer = "."
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
    Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Service Where Name = 'aspnet_state'",,48)
    For Each objItem in colItems
        Wscript.Echo "Service : " & objItem.Name & " : " & objItem.State
    Next
 
    Set colItems = Nothing
    Set objWMIService = Nothing

[a-dawg]

Merci pour ton aide
j'ai enfin pu tester et ça fonctionne très bien