Arreter tous les services

strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colListOfServices = objWMIService.ExecQuery _
        ("Select * from Win32_Service WHERE Name LIKE 'myservicenamelike%'")

Set Shell = WScript.CreateObject("WScript.Shell")

For Each objService in colListOfServices
    'wscript.echo objService.Name
    'wscript.echo objService.State

	'If the service is actually running
    If objService.State = "Running" Then
        commandLine = "Net Stop """ & objService.Name & """"
        'wscript.echo commandLine
        Set oExec = Shell.Exec(commandLine)
    End If
Next

Set Shell = Nothing