Interfaccia IADsService (iads.h)

Articolo
03/13/2024

L'interfaccia IADsService è un'interfaccia doppia che eredita dagli ID. È progettato per mantenere i dati relativi ai servizi di sistema in esecuzione in un computer host. Esempi di tali servizi includono "FAX" per il servizio fax Microsoft, "RemoteAccess" per routing e servizio RemoteAccess e "seclogon" per il servizio di accesso secondario. Esempi di dati relativi a qualsiasi servizio di sistema includono il percorso del file eseguibile nel computer host, il tipo del servizio, altri servizi o gruppo di carico necessari per eseguire un determinato servizio e altri. IADsService espone diverse proprietà per rappresentare tali dati.

Ereditarietà

L'interfaccia IADsService eredita da IDispatch e ID. IADsService include anche questi tipi di membri:

Commenti

I servizi di sistema vengono pubblicati nella directory sottostante. Alcuni potrebbero essere in esecuzione, altri potrebbero non essere in esecuzione. Per verificare lo stato o per operare su uno dei servizi, usare le proprietà e i metodi dell'interfaccia IADsServiceOperations .

Il servizio file è un caso speciale del servizio di sistema. Le interfacce IADsFileService e IADsFileServiceOperations supportano funzionalità aggiuntive univoche per i servizi file.

Esempio

Per identificare i servizi disponibili in un computer host, eseguire innanzitutto l'associazione al computer e quindi enumerare i servizi disponibili nel computer. Nell'esempio di codice seguente viene illustrato come eseguire questa operazione.

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