strComputer = "имя машины"

Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objSWbemServices = objSWbemLocator.ConnectServer _ 
(strComputer, "root\cimv2", _ 
"ДОМЕН\юзер", "12345")
Set colListOfServices = objSWbemServices.ExecQuery _
 ("Select * from Win32_Service Where Name ='имя службы'")
For Each objService in colListOfServices
    objService.StopService()
    objService.ChangeStartMode("Disabled")
    WScript.Echo "Stop and Disable Alerter service"
    WScript.Quit 1
Next

Option Explicit

Dim strComputer

Dim objSWbemLocator
Dim objSWbemServicesEx
Dim collSWbemObjectSet
Dim objSWbemObjectEx


strComputer = "."

Set objSWbemLocator    = WScript.CreateObject("WbemScripting.SWbemLocator")
Set objSWbemServicesEx = objSWbemLocator.ConnectServer(strComputer, "root\cimv2")
Set collSWbemObjectSet = objSWbemServicesEx.ExecQuery("SELECT * FROM Win32_Service WHERE Name = 'Messenger'")

For Each objSWbemObjectEx In collSWbemObjectSet
    If Not objSWbemObjectEx.ChangeStartMode("Disabled") = 0 Then
        WScript.Echo "Can't change start mode to [Disabled] for [Messenger] service."
        WScript.Quit 1
    End If
Next

Set collSWbemObjectSet = Nothing
Set objSWbemServicesEx = Nothing
Set objSWbemLocator    = Nothing

WScript.Quit 0