recuperer des arguments Dos en VBS

Bonjour

Je me retrouve encore face a une difficultée en VBS. En fait, le but est de lancé mon fichier vbs pour que celui ci demarre ou arrete un service de mon choix en lui passant des parametres suivant


Appel en DOS

Code:

---

d:\Testludo.vbs 'Startservice' 'helpsvc'

---

Startservice ou Stopservice en premier parametre
'nom-du-service-windows' en second parametre


Script VBS

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

'Variables nous remontant l'etat du service et son nom Dim ETAT_SERVICE 'startservice ou stopservice Dim WIN_SERVICE 'nom-du-service-windows Dim objWMIService, objItem, objService Dim colListOfServices, strComputer, intSleep strComputer = "." intSleep = 5000 On Error Resume Next ' NB strService is case sensitive. Set args = Wscript.Arguments 'declaration des 2 variables avec la methode arg() WIN_SERVICE = args(1) ETAT_SERVICE = args(0) Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & strComputer & "\root\cimv2") Set colListOfServices = objWMIService.ExecQuery _ ("Select * from Win32_Service Where Name ="_ & WIN_SERVICE & " ") For Each objService in colListOfServices 'cette commande marche sans pb et arrete le service passer en dos objService.StartService("WIN_SERVICE") 'Cette commande qui est ma commande finale ne marche pas objService.ETAT_SERVICE("WIN_SERVICE") WSCript.Sleep intSleep Next

---

Est que le fait d''avoir un . precedent mon premier argument gene et si oui comment contourner cela

Merci d'avance
Ludovic

Quelle est l'erreur que l'interpreteur te retourne ? Et donne la ligne du code affecté par l'erreur.
Et utilise la balise code (le bouton #) lorsque tu poste ton code, c'est plus jolie :D .
Ha et ça m'etonnerais que ça marche :

Code:

---

1 2	objService.ETAT_SERVICE("WIN_SERVICE")

---

Je ne pense pas que ETAT_SERVICE soit une méthode de l'objet service.
Ici tu as toutes les infos pour l'utilisation de l'objet services de windows :
http://msdn.microsoft.com/library/de...__services.asp

BonjourC'est justement la mon pb. ETAT_SERVICE n'est une méthode de l'objet. Je voudrais simplement qu'a la place de ETAT_SERVICE,il me remonte mon arg (0) que je passe en premier parametre en dos .

Le but ultime est d'voir un scrip qui me permet soit de demarrer, soit d'arreter n'importe quel services Windows tout cela passer en argument.

Merci de ton aide

Tu peut faire plus simple, ton parametre recupere une chaine de caractere.
Tu peut faire un If Then. Tu compares ton argument à "StartService" ou "StopService", et en fonction du résultat tu exécute la bonne méthode.
Exemple:

Code:

---

1 2 3 4 5 6

If ETAT_SERVICE = "Startservice" Then objService.StartService("WIN_SERVICE") Else If ETAT_SERVICE = "Stopservice" Then objService.StopService("WIN_SERVICE") End If

---