7
Alle Computer aus AD auslesen mit VB.net
Ich möchte mit VB.net 2010 alle Computer aus der Active Direktory auslesen.
Ich hab bisher folgenden Code der aber leider nicht korekkt ist.
DomainIP ist die Ip Adresse des Domain Controllers und Domain ist der NetBIOS Name. Ich bin noch neu in der Programmierwelt. Deswegen schomma tschuldigung für die blöde Frage. Username und Password sind die Variablen wo Benutzername und Passwort drin stehen
DomainIP ist die Ip Adresse des Domain Controllers und Domain ist der NetBIOS Name. Ich bin noch neu in der Programmierwelt. Deswegen schomma tschuldigung für die blöde Frage. Username und Password sind die Variablen wo Benutzername und Passwort drin stehen
Private Sub GetDirectoryEntry(ByVal DomainIP As String)
Dim domainquery As DirectoryEntry = New DirectoryEntry("LDAP://" + DomainIP + "/CN=Computers;DC=" + Domain)
domainquery.Username = Domain + "\" + Username
domainquery.Password = Password
For Each child As DirectoryEntry In domainquery.Children
ListBox1.Items.Add(child.Name)
Next
End Sub
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 174045
Url: https://administrator.de/contentid/174045
Printed on: April 19, 2024 at 21:04 o'clock
7 Comments
Latest comment
und Domain ist der NetBIOS Name.
Das ist falsch!
Der LDAP-Name wird aus dem DNS-Namen gebildet und zwar wird
ad.firma.de zu DC=ad,DC=firma,DC=de usw.Und es ist ohnehin schlauer die aktive Domain automatisch zu suchen http://msdn.microsoft.com/en-us/library/system.directoryservices.direct ... (siehe unten).
entschuldige aber ich werd aus dem link nicht wirklich schlau. :D kannst du mir das vielleicht ein bisschen genauer erklären ? Also ein bisschen Idioten sicherer. Vielen Dank schon für deine Antowort !
Hallo pokermaster2007!
In VBS-Schreibweise wäre das:
Grüße
bastla
In VBS-Schreibweise wäre das:
Set objRootDSE = GetObject("LDAP://RootDSE")
strDNSDomain = objRootDSE.Get("DefaultNamingContext") bastla
Warum baut ihr euch den sowas selbst wenns da sehr gute Gratistools wie JOSE gibt.
Jose liest dir alle infos aus die du brauchst und is kinderleicht zu bedienen.
LG Andreas
Jose liest dir alle infos aus die du brauchst und is kinderleicht zu bedienen.
LG Andreas
ok. hab das soweit jetzt kapiert. strDNSDomain habe ich als String deklariert. nur als was muss ich das objRootDSE deklarieren ?
Danke schonmal für die Antworten
Danke schonmal für die Antworten
Hallo pokermaster2007!
Wenn damit ein "
Grüße
bastla
Wenn damit ein "
GetObject()" ausgeführt werden soll - was würde sich vermutlich anbieten? Grüße
bastla
ok habs jetzt geschafft.
Dim objRootDSE As New DirectoryEntry("LDAP://RootDSE")
Dim strADsPath As String
Dim netpcs As ArrayList
Dim i As Integer
Try
strADsPath = "LDAP://" + objRootDSE.Properties("defaultNamingContext").Value.ToString
Catch ex As Exception
MsgBox(ex.Message)
End Try
Dim netpcs As ArrayList = GetDomainHosts(strADsPath)
Do
ListBox1.Items.Add(netpcs.Item(i).ToString)
i += 1
Loop Until i = netpcs.Count
i = 0 Function GetDomainHosts(ByVal LDAPDir As String, Optional ByVal RegexHost As String = "") As ArrayList
Dim pc As New ArrayList
' 1. connect to your domain controller, binding using currently logged on credentials
Dim root As New DirectoryServices.DirectoryEntry(LDAPDir)
' 2. put together an ldap query to retrieve all computer accounts
Dim searcher As New DirectoryServices.DirectorySearcher(root)
searcher.Filter = "(objectClass=computer)"
searcher.SearchScope = DirectoryServices.SearchScope.Subtree
searcher.Sort = New DirectoryServices.SortOption("displayName", DirectoryServices.SortDirection.Descending)
' 3. execute the query
Dim results As DirectoryServices.SearchResultCollection = searcher.FindAll()
Dim pcname As String = ""
' 4. loop through the results
For Each computer As DirectoryServices.SearchResult In results
pcname = computer.GetDirectoryEntry().Properties("displayName").Value
If Not pcname = Nothing Then
pcname = pcname.Replace("$", "").ToLower
If RegexMatchingHost(pcname, RegexHost) Then
pc.Add(pcname)
End If
End If
Next
Return pc
End Function
