VB - Existing Users in a Domain.

[techyspecy]

Option Explicit
 
Private Function DomainUsers(ByVal p_strDomain As String) As String()
On Error GoTo LocalErr
Dim l_objMember As Object, l_objMyComputer As Object, l_objCompClass As Object
Dim l_strArray() As String
 
    Me.MousePointer = vbHourglass
    ReDim l_strArray(0)
    
    ' Get the instance of nt of specified domain
    Set l_objMyComputer = GetObject("WinNT://" & p_strDomain)
    Set l_objCompClass = GetObject(l_objMyComputer.Schema)
    
    ' Filter the object against the array(user)
    l_objMyComputer.Filter = Array("user")
    ' Get the each member
    For Each l_objMember In l_objMyComputer
        l_strArray(UBound(l_strArray)) = Trim(l_objMember.Name)
        ReDim Preserve l_strArray(UBound(l_strArray) + 1)
    Next
    
    DomainUsers = l_strArray
    
LocalExit:
    Me.MousePointer = vbNormal
    Set l_objMyComputer = Nothing
    Set l_objMember = Nothing
    Set l_objCompClass = Nothing
    Exit Function
LocalErr:
    Me.MousePointer = vbNormal
    MsgBox Err.Number & " " & Err.Source & " " & Err.Description
End Function