Display All Domain Names on the Network

[Jeff Waskiewicz]

Hello,

I think the subject says it all I am trying to return a list of domain names
to later display in a combobox. I found a number of VB6 samples that show
how to do this using the WNetOpenEnum and WNetEnumResourc e API calls. I have
modified the code to work in VB 2003 but I keep getting a 487 -
ERROR_INVALID_A DDRESS error. My envioronment is W2K with a W2003 DC. So I
have 2 questions:

1) Is this the best way to do this in .NET? Is there an easier way to get
what I need?

2) If this is the right way here is the code? Any ideas what my issue may be?

Option Explicit On
Option Strict Off

Imports System
Imports System.Text
Imports System.Director yServices
Imports System.Security .Principal
Imports System.Runtime. InteropServices
Imports System.Runtime. InteropServices .Marshal

Module Module1
'***** Declare Variables and API declarations required to build
Domain List
<StructLayout(L ayoutKind.Seque ntial, CharSet:=CharSe t.Ansi)> _
Public Structure NETRESOURCE
Dim dwScope As Integer
Dim dwType As Integer
Dim dwDisplayType As Integer
Dim dwUsage As Integer
Dim lpLocalName As String
Dim lpRemoteName As String
Dim lpComment As String
Dim lpProvider As String
End Structure

Private Declare Function WNetOpenEnum _
Lib "mpr.dll" Alias "WNetOpenEn umA" _
(ByVal ByValdwScope As Integer, _
ByVal dwType As Integer, _
ByVal dwUsage As Integer, _
ByVal ByReflpNetResou rce As NETRESOURCE, _
ByRef lphEnum As Integer) As Integer

Private Declare Function WNetEnumResourc e _
Lib "mpr.dll" Alias "WNetEnumResour ceA" _
(ByVal hEnum As Integer, _
ByRef lpcCount As Integer, _
ByRef lpBuffer As NETRESOURCE, _
ByRef lpBufferSize As Integer) As Integer

Private Declare Function WNetCloseEnum _
Lib "mpr.dll" (ByVal hEnum As Integer) As Integer

Private Declare Function StrLenA _
Lib "kernel32" Alias "lstrlenA" _
(ByVal Ptr As Long) As Long

Private Declare Function StrCopyA _
Lib "kernel32" Alias "lstrcpyA" _
(ByVal RetVal As String, _
ByVal Ptr As Long) As Long

Private Const RESOURCE_GLOBAL NET As Integer = &H2
Private Const RESOURCETYPE_AN Y As Integer = &H0
Private Const RESOURCEUSAGE_A LL As Integer = &H0
Private Const RESOURCE_ENUM_A LL As Integer = &HFFFFS
Private Const MAX_RESOURCES As Integer = 256

Private Const NO_ERROR As Integer = 0
Private Const ERROR_NO_MORE_I TEMS As Integer = 259&
'************** *************** *************** ***********
Private Function GetDomainList() As String()
Dim NetResource(MAX _RESOURCES) As NETRESOURCE
Dim intBufferSize As Integer
Dim intEnumHwnd As Integer
Dim intReturn As Integer
Dim intCount As Integer
Dim intLoop As Integer
Dim strDomainInfo() As String

intReturn = WNetOpenEnum(RE SOURCE_GLOBALNE T, RESOURCETYPE_AN Y,
RESOURCEUSAGE_A LL, NetResource(0), intEnumHwnd)

If intReturn = NO_ERROR Then
intCount = RESOURCE_ENUM_A LL
intBufferSize = UBound(NetResou rce) * Len(NetResource (0))
intReturn = WNetEnumResourc e(intEnumHwnd, intCount,
NetResource(0), intBufferSize)
If intCount > 0 Then
ReDim strDomainInfo(i ntCount)
For intLoop = 0 To intCount - 1
'// Add domain to collection
strDomainInfo(i ntLoop) =
PointerToAsciiS tr(NetResource( intLoop).lpRemo teName)
Next intLoop
End If
Return strDomainInfo
End If

End Function
Private Function PointerToAsciiS tr(ByVal xi_lngPtrToStri ng As Long)
As String

On Error Resume Next ' Don't accept an error here

Dim p_lngLen As Long
Dim p_strStringValu e As String
Dim p_lngNullPos As Long
Dim p_lngRtn As Long

p_lngLen = StrLenA(xi_lngP trToString)
If xi_lngPtrToStri ng > 0 And p_lngLen > 0 Then
p_strStringValu e = Space$(p_lngLen + 1)
p_lngRtn = StrCopyA(p_strS tringValue, xi_lngPtrToStri ng)
p_lngNullPos = InStr(p_strStri ngValue, Chr(0))
If p_lngNullPos > 0 Then
PointerToAsciiS tr = Left$(p_strStri ngValue, _
p_lngNullPos - 1) 'Lose the null terminator...
Else
'Just pass the string...
PointerToAsciiS tr = p_strStringValu e
End If
Else
PointerToAsciiS tr = ""
End If

End Function

Thanks in Advance,

Jeff

[Stuart Nathan]

Have a look at ManagementObjec t etc.
Imports System.Manageme nt

[Jeff Waskiewicz]

Thanks, that got me going however I created 2 questions....

First here is a simple console app sample...

*************** *************** ***
Imports System
Imports System.Manageme nt

Module Module1

Sub Main()
Dim objSearcher As New ManagementObjec tSearcher("SELE CT * FROM
Win32_NTDomain" )
Dim objDomain As ManagementObjec t

For Each objDomain In objSearcher.Get ()
Console.WriteLi ne("Domain = " & objDomain("Name ").ToString ())
Next objDomain
Do Until LCase(Console.R eadLine()) = "exit"
Loop

End Sub

End Module
*************** *************** ***

For the most part this gets me what I need a list of all available domains
however while testing it I ran into 2 issues:

1) I get the following exception when running the code on a Windows 2000 SP4
with Framework 1.1.4322.573. It works fine on XP boxes...

*************** *************** ***
Unhandled Exception: System.Manageme nt.ManagementEx ception: Invalid class

at
System.Manageme nt.ManagementEx ception.ThrowWi thExtendedInfo( ManagementStatu s
errorCode)
at System.Manageme nt.ManagementOb jectEnumerator. MoveNext()
at DomianNames.Mod ule1.Main()
*************** *************** ***

I have looked at just about everything I can think of and I am at a loss.

2) The objSearcher.Get () is very slow. The network I am working on has 25
domains in the forest. It takes about 1.5 minutes to execute. Is there any
way to speed this up?

Thanks again,

Jeff Waskiewicz

[Peter Proost]

Hi to answer your first question, I just checked it (using wbemtest and
connect to root\cimv2) the Win32_NTDomain class doesn't exist on windows
2000, so that should explain your error. I'll see if I can find a win2000
sample
With the second question I can't help you.

Greetz Peter

--
Programming today is a race between software engineers striving to build
bigger and better idiot-proof programs, and the Universe trying to produce
bigger and better idiots. So far, the Universe is winning. (Rich Cook)

"Jeff Waskiewicz" <Je************ @discussions.mi crosoft.com> schreef in
bericht news:36******** *************** ***********@mic rosoft.com...

Thanks, that got me going however I created 2 questions....

First here is a simple console app sample...

*************** *************** ***
Imports System
Imports System.Manageme nt

Module Module1

Sub Main()
Dim objSearcher As New ManagementObjec tSearcher("SELE CT * FROM
Win32_NTDomain" )
Dim objDomain As ManagementObjec t

For Each objDomain In objSearcher.Get ()
Console.WriteLi ne("Domain = " & objDomain("Name ").ToString ())
Next objDomain
Do Until LCase(Console.R eadLine()) = "exit"
Loop

End Sub

End Module
*************** *************** ***

For the most part this gets me what I need a list of all available domains
however while testing it I ran into 2 issues:

1) I get the following exception when running the code on a Windows 2000 SP4 with Framework 1.1.4322.573. It works fine on XP boxes...

*************** *************** ***
Unhandled Exception: System.Manageme nt.ManagementEx ception: Invalid class

at
System.Manageme nt.ManagementEx ception.ThrowWi thExtendedInfo( ManagementStatu s errorCode)
at System.Manageme nt.ManagementOb jectEnumerator. MoveNext()
at DomianNames.Mod ule1.Main()
*************** *************** ***

I have looked at just about everything I can think of and I am at a loss.

2) The objSearcher.Get () is very slow. The network I am working on has 25
domains in the forest. It takes about 1.5 minutes to execute. Is there any way to speed this up?

Thanks again,

Jeff Waskiewicz