Interface IADsService (iads.h)

Artigo
03/14/2023

A interface IADsService é uma interface dupla que herda de IADs. Ele foi projetado para manter dados sobre serviços do sistema em execução em um computador host. Exemplos desses serviços incluem "FAX" para o Serviço de Fax da Microsoft, "RemoteAccess" para Serviço de Roteamento e RemoteAccess e "seclogon" para o Serviço de Logon Secundário. Exemplos dos dados sobre qualquer serviço do sistema incluem o caminho para o arquivo executável no computador host, o tipo do serviço, outros serviços ou grupo de carga necessários para executar um serviço específico e outros. IADsService expõe várias propriedades para representar esses dados.

Herança

A interface IADsService herda de IDispatch e IADs. IADsService também tem estes tipos de membros:

Comentários

Os serviços do sistema são publicados no diretório subjacente. Alguns podem estar em execução, outros podem não. Para verificar o status ou operar em qualquer um dos serviços, use as propriedades e os métodos da interface IADsServiceOperations.

O serviço de arquivo é um caso especial do serviço do sistema. As interfaces IADsFileService e IADsFileServiceOperations dão suporte a recursos adicionais exclusivos para serviços de arquivos.

Exemplos

Para identificar os serviços disponíveis em um computador host, primeiro associe-se ao computador e, em seguida, enumere os serviços disponíveis nesse computador. O exemplo de código a seguir mostra como fazer isso.

Public Sub ListServicesOnComputer(ComputerName As String)
    Dim comp As IADsComputer
    Dim srvc As IADsServiceOperations
    
    On Error GoTo Cleanup
    
    Set comp = GetObject("WinNT://" + ComputerName + ",Computer")
    comp.Filter = Array("Service")
    For Each srvc In comp
        ' The srvc object is an IADsServiceOperations object that can be 
        ' used to obtain the status of the service with the Status property. 
        ' Other IADs properties can also be obtained.
    Next
    
Cleanup:
    If (Err.Number <> 0) Then
        MsgBox (Err.Description & vbLf & vbLf & " Error number = " & Err.Number)
    End If
    Set comp = Nothing
End Sub