Binaryworld - GetPDCName - The name of the Primary Domain Controller ... [ VB -> Networking ]

Private Declare Function NetGetDCName Lib "netapi32.dll" (strServerName As Any, _
  strDomainName As Any, pBuffer As Long) As Long
Private Declare Function NetApiBufferFree Lib "netapi32.dll" (buffer As Any) As _
  Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (dest As _
  Any, source As Any, ByVal bytes As Long)

' Return the name of the Primary Domain Controller (PDC)
'
' server names are preceded by a double slash

Function GetPDCName() As String
  Dim lpBuffer As Long
  Dim buffer As String

  If NetGetDCName(vbNullString, vbNullString, lpBuffer) = 0 Then
    ' a zero return value means success
    buffer = Space$(128)
    ' copy into local buffer
    CopyMemory ByVal StrPtr(buffer), ByVal lpBuffer, LenB(buffer)
    ' trim excess chars
    GetPDCName = Left$(buffer, InStr(buffer & vbNullChar, vbNullChar) - 1)
    ' release memory
    NetApiBufferFree lpBuffer
  End If

End Function