Set objWMIService  = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colServiceList = objWMIService.ExecQuery  ("Select * from Win32_Service where Name='CaptureService'")

For Each objService in colServiceList
    errReturn = objService.StopService()
Next