Checker un service en VBS avec variable

Bonjour

Ma question peux paraitre simple. En fait, je veux verifier l'état d'un service (start ou stop) en vbs


J'ai trouver le code suivant mais on rentre ici le service en "dur" (Alerter)

Code:

---

1 2	Set sh = CreateObject("Shell.Application") MsgBox sh.IsServiceRunning("Alerter")

---

Le passage d'une variable ne fonctionne pas a priorie. Avez vous une solution pour ce code ou un code alternatif sous la main qui me fait la meme chose
Merci d'avance

Balthior

on peu voir ton code avec une variable ..?

Bonjour

Code:

---

1 2 3 4 5 6 7 8 9

Dim ETAT_SERVICE Dim WIN_SERVICE1 Set args = Wscript.Arguments ETAT_SERVICE = args(0) WIN_SERVICE1 = args(1)   Set sh = CreateObject("Shell.Application") MsgBox sh.IsServiceRunning(WIN_SERVICE1)

---

Voili, voilou

Citation:

---

Meme probleme avec une variable

---

je comprends pas j'avais compris qu'en écrivant en dur le paramétre cela fonctionné..?
toujours est-t'il que pour moi tes 2 codes fonctionnes...!

Bonjour

Le second code avec l'argument (WIN_SERVICE1) ne plante pas mais me renvoie la valeur faux alors que le service est demarré (il devrait me retourner vrai)


Petit historique : je lance sous dos le vbs en lui passant en argument le nom du service
exemple : toto.vbs 'alerter'

je recuepere cette valeur Alerter dans arg(0)
Je dit que arg(0) = WIN_SERVICE1
et je veux juste affciher l'etat de WIN_SERVICE1 (donc de arg(0) et donc de Alerter) qui a la valeur vai oufaux suivant si Aleter est demaré ou arrété

Pouvez vous m'aidez?
Merci

dans ton code tu n'utilise pas Arg(0) pour winService... mais Arg(1) ! ... ensuite pour exécuter ton code ne met pas de quote ' autour d'alerter..!

Salut

Effectivement sans les cotes, ça fonctionne, je recup vrai quant le service est demarré et faux quant il est arrété.

Mais ne pas mettre de cote autour d'Alerter me pose probleme
La commande que je passe est la suivante

Code:

---

1 2	ludo.vbs "Startservice" 'Alerter'

---

Ce code me permet de demarrer ou d'arreter le service Alerter
en passant des arguments.

Donc je doit mettre des cotes pour que le demarrage/arret d'un service fonctionne et doit les enlever pour faire le check du service via
la comamnde

Code:

---

1 2 3

Set sh = CreateObject("Shell.Application") MsgBox sh.IsServiceRunning(WIN_SERVICE1)

---

As tu une idée pour faire les deux?

il y as quoi dans ludo.vbs...? il doit être facile d'y rajouter par défaut les ' .. pour ne pas avoir à les mettre en arguments ..? non ..?

Hello

un petit travail sur la chaine de caractère

Code:

---

1 2	WIN_SERVICE1 = replace(WIN_SERVICE1,"'","")

---

et tout rentre dans l'ordre

merci encore