GetServiceNames – Retrieve names of all services using Active Directory

GetServiceNames – Retrieve names of all services using Active Directory

' Get the names of all the installed Windows GetServiceNames using Active ' Directory'' if you pass True, the display names are returned' otherwise the internal names are returned' (internal names can be used as arguments to other service routines)'' NOTE: requires a reference to the Active DS Type library'' Usage:'   Dim svr As Variant'   For Each svr In GetServiceNames()'      List1.AddItem svr'   NextFunction GetServiceNames(ByVal DisplayName As Boolean) As Collection    Dim thisComputer As ActiveDs.IADsComputer    Dim aService As ActiveDs.IADsService    ' we need this object to retrieve computer name    Dim sysInfo As New ActiveDs.WinNTSystemInfo        On Error Resume Next        ' retrieve the AD object corresponding to this computer    Set thisComputer = GetObject("WinNT://" & sysInfo.ComputerName & _        ",computer")    ' filter service information    thisComputer.Filter = Array("Service")       ' prepare the result    Set GetServiceNames = New Collection    ' add individual GetServiceNames to the result    For Each aService In thisComputer        If DisplayName Then            GetServiceNames.Add aService.DisplayName        Else            GetServiceNames.Add aService.Name        End If    NextEnd Function

See also  Essential Measures for Safeguarding Your Digital Data

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist