Interfaz IADsService (iads.h)

Artículo
03/14/2023

La interfaz IADsService es una interfaz dual que hereda de los IAD. Está diseñado para mantener datos sobre los servicios del sistema que se ejecutan en un equipo host. Algunos ejemplos de estos servicios incluyen "FAX" para el servicio de fax de Microsoft, "RemoteAccess" para enrutamiento y servicio RemoteAccess, y "seclogon" para el servicio de inicio de sesión secundario. Algunos ejemplos de datos sobre cualquier servicio del sistema incluyen la ruta de acceso al archivo ejecutable en el equipo host, el tipo de servicio, otros servicios o grupo de carga necesarios para ejecutar un servicio determinado y otros. IADsService expone varias propiedades para representar estos datos.

Herencia

La interfaz IADsService hereda de IDispatch e IADs. IADsService también tiene estos tipos de miembros:

Comentarios

Los servicios del sistema se publican en el directorio subyacente. Algunos pueden estar en ejecución, otros pueden no. Para comprobar el estado o operar en cualquiera de los servicios, use las propiedades y los métodos de la interfaz IADsServiceOperations .

El servicio de archivos es un caso especial del servicio del sistema. Las interfaces IADsFileService e IADsFileServiceOperations admiten características adicionales exclusivas de los servicios de archivos.

Ejemplos

Para identificar los servicios disponibles en un equipo host, primero se enlaza al equipo y, a continuación, enumera los servicios disponibles en ese equipo. En el ejemplo de código siguiente se muestra cómo hacerlo.

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