Redémarrer un process

Le
Jacques \(BE\)
Bonjour,

Comment redémarrer un service à partir d'un fichier vbs ??

Merci de vos réponses

Jacques
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Gilles LAURENT
Le #659987
"Jacques (BE)" news:
| Bonjour,

Bonjour,

| Comment redémarrer un service à partir d'un fichier vbs ??
|
| Merci de vos réponses
|
| Jacques

Par exemple, pour redémarrer le service 'Avertissement' sur la machine
locale :

--- Coupez ici ---

Dim oSvc
Dim strComputer: strComputer = "."
Dim strSvcName: strSvcName = "Alerter"

Set oSvc = GetObject("winmgmts:\" & strComputer & "rootcimv2:" & _
"Win32_Service.Name='" & strSvcName & "'")
oSvc.StopService
WaitForServiceState strSvcName, "Stopped"
oSvc.StartService
WaitForServiceState strSvcName, "Running"

' procédure utilisée pour attendre que le service spécifié
' soit dans l'état demandé
Sub WaitForServiceState (serviceName, reqServiceState)
Dim oWmi
Dim curServiceState
Dim colServices

Set oWmi = GetObject ("winmgmts:\" & strComputer & "rootcimv2")
curServiceState = 0
Do Until curServiceState = 1
Wscript.Sleep (500)
Set colServices = oWmi.ExecQuery _
("Select * from Win32_Service Where " & _
"Name = '" & serviceName & "' And " & _
"State='" & reqServiceState & "'")
curServiceState = colServices.count
Loop

End Sub

--- Coupez ici ---

--
Gilles LAURENT
http://glsft.free.fr
Méta-MCI
Le #659986
Bonsoir !

Il est toujours possible d'utiliser la commande SC (normalement en invite
de commande, mais possible depuis VBS, avec "Run")

Pour plus de détails : SC /?


@-salutations
--
Michel Claveau
Jacques \(BE\)
Le #659984
Merci vous deux.

Jacques

"Méta-MCI" news:%23nWL$
Bonsoir !

Il est toujours possible d'utiliser la commande SC (normalement en
invite

de commande, mais possible depuis VBS, avec "Run")

Pour plus de détails : SC /?


@-salutations
--
Michel Claveau



Publicité
Poster une réponse
Anonyme