Interfaz IADsService (iads.h)
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.
La interfaz IADsService hereda de IDispatch e IADs. IADsService también tiene estos tipos de miembros:
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.
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
Requisito | Value |
---|---|
Cliente mínimo compatible | Windows Vista |
Servidor mínimo compatible | Windows Server 2008 |
Plataforma de destino | Windows |
Encabezado | iads.h |