[RESOLVED] DsGetDcName / Return Flag Integer back to Enum

[MagellanTX]

Hello, I am by no means a guru to API calls so this one took me a while to do but what I would like is take my Integer Value for FLAGS and break that back down into the individual flags (the enumeration). Is there an easy way to do this?

Imports System.Runtime.InteropServices
Module Module1
    Private Enum Flags As Integer
        DS_FLAGS_NONE = &H0
        DS_FORCE_REDISCOVERY = &H1
        DS_DIRECTORY_SERVICE_REQUIRED = &H10
        DS_DIRECTORY_SERVICE_PREFERRED = &H20
        DS_GC_SERVER_REQUIRED = &H40
        DS_PDC_REQUIRED = &H80
        DS_BACKGROUND_ONLY = &H100
        DS_IP_REQUIRED = &H200
        DS_KDC_REQUIRED = &H400
        DS_TIMESERV_REQUIRED = &H800
        DS_WRITABLE_REQUIRED = &H1000
        DS_GOOD_TIMESERV_PREFERRED = &H2000
        DS_AVOID_SELF = &H4000
        DS_ONLY_LDAP_NEEDED = &H8000
        DS_IS_FLAT_NAME = &H10000
        DS_IS_DNS_NAME = &H20000
        DS_RETURN_DNS_NAME = &H40000000
        DS_RETURN_FLAT_NAME = &H80000000
    End Enum
    
 
    Private Enum AddressTypes As UInteger
        DS_INET_ADDRESS = 1
        DS_NETBIOS_ADDRESS = 2
    End Enum
 
    Sub Main()
        Dim pDCI As IntPtr = IntPtr.Zero
        Dim dcName As DOMAIN_CONTROLLER_INFO = Nothing
 
        Console.WriteLine("Enter the domain to query:")
        Dim Domain As String = Console.ReadLine
        If Domain = "" Then End
 
        Dim retval As Integer = DsGetDcName("", Domain, 0, "", Flags.DS_FLAGS_NONE, pDCI)
 
        If retval = 0 Then
            NetApiBufferFree(pDCI)
            dcName = Marshal.PtrToStructure(pDCI, GetType(DOMAIN_CONTROLLER_INFO))
            Console.WriteLine("Domain Controller Name:         " & dcName.DomainControllerName)
            Console.WriteLine("Domain Controller Address:      " & dcName.DomainControllerAddress)
            Console.WriteLine("Domain Controller Address Type: " & dcName.DomainControllerAddressType.ToString)
            Console.WriteLine("Domain Guid:                    " & dcName.DomainGuid.ToString)
            Console.WriteLine("Domain Name:                    " & dcName.DomainName)
            Console.WriteLine("DNS Forest Name:                " & dcName.DnsForestName)
            Console.WriteLine("Domain Controller Site Name:    " & dcName.DcSiteName)
            Console.WriteLine("Client Site Name:               " & dcName.ClientSiteName)
            Console.WriteLine("Flags Passed:                   " & dcName.Flags)
            Console.WriteLine()
            Console.WriteLine("Any key to exit")
            Console.ReadKey()
        Else
            Stop
        End If
 
    End Sub
 
    Private Structure DOMAIN_CONTROLLER_INFO
        <MarshalAs(UnmanagedType.LPWStr)> Dim DomainControllerName As String
        <MarshalAs(UnmanagedType.LPWStr)> Dim DomainControllerAddress As String
        <MarshalAs(UnmanagedType.U4)> Dim DomainControllerAddressType As AddressTypes
        Dim DomainGuid As System.Guid
        <MarshalAs(UnmanagedType.LPWStr)> Dim DomainName As String
        <MarshalAs(UnmanagedType.LPWStr)> Dim DnsForestName As String
        <MarshalAs(UnmanagedType.U4)> Dim Flags As Flags
        <MarshalAs(UnmanagedType.LPWStr)> Dim DcSiteName As String
        <MarshalAs(UnmanagedType.LPWStr)> Dim ClientSiteName As String
    End Structure
 
    <DllImport("Netapi32.dll", CharSet:=CharSet.Unicode)> Private Function DsGetDcName( _
    ByVal ComputerName As String, _
    ByVal DomainName As String, _
    ByVal DomainGuid As Integer, _
    ByVal SiteName As String, _
    ByVal Flags As Flags, _
    ByRef pDOMAIN_CONTROLLER_INFO As IntPtr) As Integer
    End Function
 
    <DllImport("Netapi32.dll")> Private Function NetApiBufferFree(ByRef buffer As IntPtr) As Integer
    End Function
End Module

So, if I query a domain I may get an integer returned like -2147483139 and I would like to know what FLAGS that equals to.
Thanks!!

[Hack]

This thread is marked resolved with no posted resolution.

Is it resolved?

If so, what was the resolution? It might help others with the same or similiar problem.

Thanks.