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

Share the Post:
data observability

Data Observability Explained

Data is the lifeblood of any successful business, as it is the driving force behind critical decision-making, insight generation, and strategic development. However, due to its intricate nature, ensuring the

Heading photo, Metadata.

What is Metadata?

What is metadata? Well, It’s an odd concept to wrap your head around. Metadata is essentially the secondary layer of data that tracks details about the “regular” data. The regular