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