Enumerate Windows NT Trusted Domains

Category:

Network/Internet

Type:

Snippets

Difficulty:

Advanced

Author:

Waty

Version Compatibility:

More information:

Enumerate Windows NT Trusted Domains. Populate a collection of Windows NT trusted domains. Returns the number of trusted domains found, and populates the collection.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
' (None)

Code:

' #VBIDEUtils#************************************************************
' * Programmer Name  : Matthew Ruffell
' * Web Site         : www.geocities.com/ResearchTriangle/6311/
' * E-Mail           : waty.thierry@usa.net
' * Date             : 01/10/1999
' * Time             : 12:08
' **********************************************************************
' * Comments         : Enumerate Windows NT Trusted Domains
' * Populate a collection of Windows NT trusted domains
' * returns the number of trusted domains found, and populates the collection.
' *
' **********************************************************************

Private Declare Function NetEnumerateTrustedDomains Lib "netapi32.dll" (yServerName As Byte, DomainNames As Long) As Long

Private Declare Function lstrlenW Lib "kernel32" (ByVal lpString As Long) As Long

Private Declare Sub CopyMem Lib "kernel32" Alias "RtlMoveMemory" (pTo As Any, uFrom As Any, ByVal lSize As Long)

Private Declare Function NetApiBufferFree Lib "netapi32.dll" (ByVal Ptr As Long) As Long

Public Function EnumerateTrustedDomains(colCollection As Collection) As Long

Dim lngLen As Long
   Dim lngPosition As Long
   Dim lngDomains As Long
   Dim strDomains As String
   Dim strBuffer As String
   Dim intNull As Integer
   Dim bytBuffer() As Byte

On Error Goto error_EnumerateTrustedDomains

'// Call enumerate domains
   If NetEnumerateTrustedDomains(0, lngDomains) <> 0 Then Exit Function

'// First domain
   lngLen = lstrlenW(lngDomains) * 2
   ReDim bytBuffer(lngLen - 1) As Byte
   CopyMem bytBuffer(0), ByVal lngDomains, lngLen
   strBuffer = bytBuffer()
   If strBuffer = vbNullChar Then Exit Function
   colCollection.Add strBuffer

'// Other domains (append each character)
   lngPosition = lngLen

Do While intNull < 2
      ReDim bytBuffer(1) As Byte
      lngPosition = lngPosition + 2
      CopyMem bytBuffer(0), ByVal lngDomains + lngPosition, 1
      strBuffer = bytBuffer()

If strBuffer <> vbNullChar Then
         strDomains = strDomains & strBuffer
         intNull = 0
      Else

If Len(strDomains) > 0 Then
            colCollection.Add strDomains
            strDomains = vbNullString
         End If

intNull = intNull + 1
      End If

Loop

error_EnumerateTrustedDomains:

EnumerateTrustedDomains = colCollection.Count

'// Free pointers from memory
   Call NetApiBufferFree(lngDomains)
End Function