' 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

The Future of iOS App Development: Trends to Watch
When it launched in 2008, the Apple App Store only had 500 apps available. By the first quarter of 2022, the store had about 2.18 million iOS-exclusive apps. Average monthly app releases for the platform reached 34,000 in the first half of 2022, indicating rapid growth in iOS app development.