script arret d'un service / reboot machine. pouvez-vous me le valider ?

Question

bonjour, j'ai cr&#233;e ce script 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&#233;marr&#233;.

l'ai-je bien construit ? (dois-je mettre un s&#233;parateur entre les 2 scripts ?)
si je veux arreter 2 services, quelle ligne dois-je rajoueter et ou 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

cboulas · Answer

Salut, pour stopper un service, il y a plus simple tu envoi une commande DOS :

   net stop [NomDuService]
   shutdown -r -t 00

La 1&#232;re ligne stop le service, et la 2nd relance le pc

Chris...
Web : Firstruner - eMail : [mailto:support@firstruner.com Support]&nbs

kerberos69 · Answer

merci chris.

en fait, je cherche a me perfectionner sur VB, donc j'essaie d'utiliser ce langage pour arriver a mes fins.

Ok, je suis un peu compliqu&#233; et c'est juste pour ma connaissance personnelle. comme tu dis je pourrais utiliser un batch classique, mais j'ai envie de faire plus tordu ;-)

merci pour ta reponse

cboulas · Answer

Je comprend, je vais essay&#233; de le tester quand j'aurais un moment sur mon pc et te dirais la r&#233;ponse.


Chris...
Web : Firstruner - eMail : [mailto:support@firstruner.com Support]&nbs

kerberos69 · Answer

merci

le reboot local fonctionne super bien, en revanche aucune idee pour savoir si le service est correctement stopp&#233;. c'est un peu &#231;a mon probleme en fait

cboulas · Answer

Si tu le test en local, il te suffit d'aller dans le gestionnaire de service afin de voir s'il est en pause, en marche, ou &#224; l'arr&#234;t, s'il n'y a rien de noter, c'est qu'il est &#224; l'arr&#234;t


Chris...
Web : Firstruner - eMail : [mailto:support@firstruner.com Support]&nbs

crenaud76 · Answer

voici un bout de code &#224; mettre dans un module VB pour arr&#234;ter un service :

Private Const SC_MANAGER_CONNECT As Long = &H1
Private Const SC_MANAGER_CREATE_SERVICE As Long = &H2
Private Const SC_MANAGER_ENUMERATE_SERVICE As Long = &H4
Private Const SC_MANAGER_LOCK As Long = &H8
Private Const SC_MANAGER_MODIFY_BOOT_CONFIG As Long = &H20
Private Const SC_MANAGER_QUERY_LOCK_STATUS As Long = &H10
Private Const STANDARD_RIGHTS_REQUIRED As Long = &HF0000
Private Const SC_MANAGER_ALL_ACCESS As Long = (STANDARD_RIGHTS_REQUIRED Or SC_MANAGER_CONNECT Or SC_MANAGER_CREATE_SERVICE Or SC_MANAGER_ENUMERATE_SERVICE Or SC_MANAGER_LOCK Or SC_MANAGER_QUERY_LOCK_STATUS Or SC_MANAGER_MODIFY_BOOT_CONFIG)


Private Const SERVICE_CONTROL_STOP As Long = &H1
Private Const SERVICE_STOP As Long = &H20


Private Type SERVICE_STATUS
    dwServiceType As Long
    dwCurrentState As Long
    dwControlsAccepted As Long
    dwWin32ExitCode As Long
    dwServiceSpecificExitCode As Long
    dwCheckPoint As Long
    dwWaitHint As Long
End Type


Private Declare Function OpenSCManager Lib "advapi32.dll" Alias "OpenSCManagerA" (ByVal lpMachineName As String, ByVal lpDatabaseName As String, ByVal dwDesiredAccess As Long) As Long
Private Declare Function OpenService Lib "advapi32.dll" Alias "OpenServiceA" (ByVal hSCManager As Long, ByVal lpServiceName As String, ByVal dwDesiredAccess As Long) As Long
Private Declare Function ControlService Lib "advapi32.dll" (ByVal hService As Long, ByVal dwControl As Long, lpServiceStatus As SERVICE_STATUS) As Long
Private Declare Function CloseServiceHandle Lib "advapi32.dll" (ByVal hSCObject As Long) As Long
'---------------------------------------------------------------------------------------
' Proc&#233;dure  : Stop_Service
' Auteur     : Christophe RENAUD
' Objet      : Arr&#234;te un service sur une machine
' Retour     : True si le service a &#233;t&#233; arr&#234;t&#233; et False sinon
' Arguments  : - sServiceName (Entr&#233;e) : Nom du service &#224; arr&#234;ter
'              - sComputername (Entr&#233;e) : Nom NETBIOS de la machine sur laquelle doit &#234;tre
'                                         arr&#234;t&#233; le service
'---------------------------------------------------------------------------------------
'
Public Function Stop_Service(sServiceName As String, sComputername As String) As Boolean
Dim hSCM As Long, hService As Long, RetVal As Long, ServiceStatus As SERVICE_STATUS
        
    hSCM = OpenSCManager("\" & sComputername, vbNullString, SC_MANAGER_ALL_ACCESS)
    If hSCM = 0 Then
        Stop_Service = False
        Exit Function
    End If
    hService = OpenService(hSCM, sServiceName, SERVICE_STOP)
    If hService = 0 Then
        Stop_Service = False
        Exit Function
    End If
    RetVal = ControlService(hService, SERVICE_CONTROL_STOP, ServiceStatus)
    If RetVal = 0 Then
        Stop_Service = False
        Exit Function
    End If
    CloseServiceHandle (hService)
    CloseServiceHandle (hSCM)
    Stop_Service = True
End Function

Christophe R

Script arret d'un service / reboot machine. pouvez-vous me le valider ?

6 réponses

Discussions similaires