Redémarrer un process

"Jacques (BE)" <jac_be@hotmail.com> a écrit dans le message de
news:echv3BEgHHA.4188@TK2MSFTNGP02.phx.gbl
| 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

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

Merci vous deux.

Jacques

"Méta-MCI" <enleverlesX.XmcX@XmclaveauX.com> a écrit dans le message de
news:%23nWL$ZEgHHA.4552@TK2MSFTNGP04.phx.gbl...

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