IADsService-Schnittstelle (iads.h)
Die IADsService-Schnittstelle ist eine duale Schnittstelle, die von IADs erbt. Sie dient zum Verwalten von Daten zu Systemdiensten, die auf einem Hostcomputer ausgeführt werden. Beispiele für solche Dienste sind "FAX" für Microsoft Fax Service, "RemoteAccess" für Routing und RemoteAccess Service und "seclogon" für den sekundären Anmeldedienst. Beispiele für Daten über einen beliebigen Systemdienst sind der Pfad zur ausführbaren Datei auf dem Hostcomputer, der Typ des Diensts, andere Dienste oder Ladegruppen, die zum Ausführen eines bestimmten Diensts erforderlich sind, und andere. IADsService macht mehrere Eigenschaften verfügbar, um solche Daten darzustellen.
Vererbung
Die IADsService-Schnittstelle erbt von IDispatch und IADs. IADsService verfügt auch über folgende Arten von Membern:
Hinweise
Die Systemdienste werden im zugrunde liegenden Verzeichnis veröffentlicht. Einige werden möglicherweise ausgeführt, andere nicht. Verwenden Sie die Eigenschaften und Methoden der IADsServiceOperations-Schnittstelle, um die status zu überprüfen oder mit einem der Dienste zu arbeiten.
Der Dateidienst ist ein Sonderfall des Systemdiensts. Die Schnittstellen IADsFileService und IADsFileServiceOperations unterstützen zusätzliche Features, die für Dateidienste einzigartig sind.
Beispiele
Um auf einem Hostcomputer verfügbare Dienste zu identifizieren, binden Sie zunächst an den Computer, und listen Sie dann die dienste auf diesem Computer auf. Im folgenden Codebeispiel wird dies veranschaulicht.
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
Anforderungen
| Anforderung | Wert |
|---|---|
| Unterstützte Mindestversion (Client) | Windows Vista |
| Unterstützte Mindestversion (Server) | Windows Server 2008 |
| Zielplattform | Windows |
| Kopfzeile | iads.h |