bonjour,  
 
je ne suis pas expert en VB, mais j'ai crée ce script (en prenant des modeles) afin d'arreter un service et de rebooter la machine.
 mon probleme est que je ne sais pas si le service s'arrete proprement car le reboot fonctionne, et du coup au redemarrage le service est démarré.
 
l'ai-je bien construit ? (dois-je mettre un séparateur entre les 2 scripts ?)
si je veux arreter 1 service supplementaire, quelle ligne dois-je rajouter et où svp ?
 
merci beaucoup !!!
 
 
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )
 
Set colServiceList = objWMIService.ExecQuery("Associators of " _
    & "{Win32_Service.Name='spooler'} Where " _
        & "AssocClass=Win32_DependentService " & "Role=Antecedent" )
 
For Each objService in colServiceList
    objService.StopService()
Next
 
Wscript.Sleep 20000
 
Set colServiceList = objWMIService.ExecQuery _
        ("Select * from Win32_Service where Name='spooler'" )
For Each objService in colServiceList
    errReturn = objService.StopService()
Next
 
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate,(Shutdown)}!\\" & strComputer & "\root\cimv2" )
 
Set colOperatingSystems = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem" )
 
For Each objOperatingSystem in colOperatingSystems
    objOperatingSystem.Reboot()
Next