Interface IADsService (iads.h)

Article
02/26/2024

L’interface IADsService est une interface double qui hérite des IAD. Il est conçu pour gérer les données relatives aux services système s’exécutant sur un ordinateur hôte. Parmi les exemples de tels services, citons « FAX » pour le service de télécopie Microsoft, « RemoteAccess » pour routage et service RemoteAccess et « seclogon » pour le service d’ouverture de session secondaire. Les exemples de données relatives à un service système incluent le chemin d’accès au fichier exécutable sur l’ordinateur hôte, le type du service, d’autres services ou groupes de charge requis pour exécuter un service particulier, et d’autres. IADsService expose plusieurs propriétés pour représenter ces données.

Héritage

L’interface IADsService hérite des IDispatch et des IAD. IADsService possède également les types de membres suivants :

Remarques

Les services système sont publiés dans le répertoire sous-jacent. Certains peuvent être en cours d’exécution, d’autres pas. Pour vérifier l’status ou pour fonctionner sur l’un des services, utilisez les propriétés et les méthodes de l’interface IADsServiceOperations.

Le service de fichiers est un cas particulier du service système. Les interfaces IADsFileService et IADsFileServiceOperations prennent en charge des fonctionnalités supplémentaires propres aux services de fichiers.

Exemples

Pour identifier les services disponibles sur un ordinateur hôte, commencez par le lier à l’ordinateur, puis énumérez les services disponibles sur cet ordinateur. L’exemple de code suivant montre comment procéder.

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