Je cherche un script pour démarrer un service

'-----------------------------------------------------------­------------------------------------------------------------­-----------------
' Fichier VBScript : "StartService.vbs"
' Démarrage du service
'----------------------------------------------------------------------------------------------------------------------------------------
    Dim objFSO, objWMIService, objService, colServiceList
    Dim objReseau, Ordinateur
    Dim Reponse

    Set objReseau = CreateObject("WScript.Network")
    Ordinateur = LCase(objReseau.ComputerName)
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objWMIService = GetObject("winmgmts:" & _
                                     "{impersonationLevel=impersonate}!\\" & Ordinateur & "\root\cimv2")
    Set colServiceList = objWMIService.ExecQuery _
                                    ("Select * from Win32_Service where Name='MonService'")
    For Each objService In colServiceList
        If (objService.Name = "MonService") Then
            Reponse = objService.StartService()
        End If
    Next
    Set objFSO = Nothing
    Set objReseau = Nothing
WScript.Quit	
'--------------------------------------------------------------------------------------------------------------------------------------