' 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
"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"
' 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
' 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
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
Bonsoir !
Il est toujours possible d'utiliser la commande SC (normalement en invite
de commande, mais possible depuis VBS, avec "Run")