Sub ListOfServices(Optional CompName As String)
    Dim Services As Object, Service As Object
    Dim strSQL   As String
    
    If Len(CompName) = 0 Then
        CompName = InputBox("Введите имя компьютера", "Остановка служб", ".")
        If Len(CompName) = 0 Then Exit Sub
    End If
    
    strSQL = "SELECT * FROM Win32_Service"
    Set Services = GetObject("winmgmts:\\" & CompName & "\root\cimv2").ExecQuery(strSQL)
    For Each Service In Services
        Debug.Print Service.Name
    Next
    
    Set Service = Nothing
    Set Services = Nothing
End Sub

Function StartOrStopService(ServiceName As String, _
        ToStart As Boolean, Optional CompName As String) As String
    Dim Services  As Object, Service As Object
    Dim strSQL    As String
    Dim Result    As Long
    Dim strResult As String
    
    If Len(CompName) = 0 Then
        CompName = InputBox("Введите имя или IP адрес компьютера", _
            "Наименование или IP адрес компьютера", ".")
        If Len(CompName) = 0 Then Exit Function
    End If
    
    If Len(ServiceName) = 0 Then
        ServiceName = InputBox("Введите имя службы", "Наименование службы")
        If Len(ServiceName) = 0 Then Exit Function
    End If
    
    strSQL = "SELECT * FROM Win32_Service WHERE Name = '" & ServiceName & "'"
    Set Services = GetObject("winmgmts:\\" & CompName & "\root\cimv2").ExecQuery(strSQL)
    For Each Service In Services
        If ToStart = True Then
            Result = Service.StartService()
        Else
            Result = Service.StopService()
        End If
        Select Case Result
        Case 0: strResult = "Success"
        Case 1: strResult = "Not Supported"
        Case 2: strResult = "Access Denied"
        Case 3: strResult = "Dependent Services Running"
        Case 4: strResult = "Invalid Service Control"
        Case 5: strResult = "Service Cannot Accept Control"
        Case 6: strResult = "Service Not Active"
        Case 7: strResult = "Service Request Timeout"
        Case 8: strResult = "Unknown Failure"
        Case 9: strResult = "Path Not Found"
        Case 10: strResult = IIf(ToStart, "Service Already Running", "Service Already Stopped")
        Case 11: strResult = "Service Database Locked"
        Case 12: strResult = "Service Dependency Deleted"
        Case 13: strResult = "Service Dependency Failure"
        Case 14: strResult = "Service Disabled"
        Case 15: strResult = "Service Logon Failure"
        Case 16: strResult = "Service Marked For Deletion"
        Case 17: strResult = "Service No Thread"
        Case 18: strResult = "Status Circular Dependency"
        Case 19: strResult = "Status Duplicate Name"
        Case 20: strResult = "Status Invalid Name"
        Case 21: strResult = "Status Invalid Parameter"
        Case 22: strResult = "Status Invalid Service Account"
        Case 23: strResult = "Status Service Exists"
        Case 24: strResult = "Service Already Paused"
        End Select
    Next Service
    
    Set Service = Nothing
    Set Services = Nothing
    
    StartOrStopService = strResult
End Function