LISTING 2: The GetPrimaryDCName Function
Public Function GetPrimaryDCName(stMName As String, _
	stDName As String) As String
.
.
.
btMNArray = stMName & vbNullCharbtDNArray = stDName & vbNullChar
lgResult = NetGetDCName(btMNArray(0), btDNArray(0), lgDCNPtr)

If lgResult <> 0 Then
	MsgBox "Error: " & CStr(lgResult)
	Exit Function
End If

'* Dereference the pointer
lgResult = PtrToStr(btDCNArray(0), lgDCNPtr)

'* Free the buffer in memory
lgResult = NetAPIBufferFree(lgDCNPtr)
stDCName = btDCNArray()
GetPrimaryDCName = stDCName

End Function