Antarmuka IADsService (iads.h)

Artikel
02/26/2024

Antarmuka IADsService adalah antarmuka ganda yang mewarisi dari IAD. Ini dirancang untuk mempertahankan data tentang layanan sistem yang berjalan di komputer host. Contoh layanan tersebut termasuk "FAX" untuk Layanan Faks Microsoft, "RemoteAccess" untuk Perutean dan Layanan RemoteAccess, dan "seclogon" untuk Layanan Masuk Sekunder. Contoh data tentang layanan sistem apa pun termasuk jalur ke file yang dapat dieksekusi di komputer host, jenis layanan, layanan atau grup beban lain yang diperlukan untuk menjalankan layanan tertentu, dan lainnya. IADsService mengekspos beberapa properti untuk mewakili data tersebut.

Warisan

Antarmuka IADsService mewarisi dari IDispatch dan IAD. IADsService juga memiliki jenis anggota berikut:

Keterangan

Layanan sistem diterbitkan dalam direktori yang mendasar. Beberapa mungkin berjalan, yang lain mungkin tidak. Untuk memverifikasi status atau untuk beroperasi pada salah satu layanan, gunakan properti dan metode antarmuka IADsServiceOperations .

Layanan file adalah kasus khusus dari layanan sistem. Antarmuka IADsFileService dan IADsFileServiceOperations mendukung fitur tambahan yang unik untuk layanan file.

Contoh

Untuk mengidentifikasi layanan yang tersedia di komputer host, pertama-tama ikat ke komputer lalu hitung layanan yang tersedia di komputer tersebut. Contoh kode berikut menunjukkan cara melakukan ini.

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