Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst Alle Computer aus AD auslesen mit VB.net

Mitglied: pokermaster2007

pokermaster2007 (Level 1) - Jetzt verbinden

02.10.2011 um 18:16 Uhr, 11062 Aufrufe, 7 Kommentare

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


01.
Private Sub GetDirectoryEntry(ByVal DomainIP As String) 
02.
        Dim domainquery As DirectoryEntry = New DirectoryEntry("LDAP://" + DomainIP + "/CN=Computers;DC=" + Domain) 
03.
 
04.
        domainquery.Username = Domain + "\" + Username 
05.
        domainquery.Password = Password 
06.
        For Each child As DirectoryEntry In domainquery.Children 
07.
 
08.
            ListBox1.Items.Add(child.Name)  
09.
 
10.
        Next 
11.
 
12.
    End Sub
Mitglied: dog
02.10.2011 um 18:36 Uhr
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).
Bitte warten ..
Mitglied: pokermaster2007
02.10.2011 um 18:45 Uhr
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 !
Bitte warten ..
Mitglied: bastla
02.10.2011 um 20:40 Uhr
Hallo pokermaster2007!

In VBS-Schreibweise wäre das:
01.
Set objRootDSE = GetObject("LDAP://RootDSE") 
02.
strDNSDomain = objRootDSE.Get("DefaultNamingContext")
Grüße
bastla
Bitte warten ..
Mitglied: Ausserwoeger
03.10.2011 um 10:27 Uhr
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
Bitte warten ..
Mitglied: pokermaster2007
03.10.2011 um 12:09 Uhr
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
Bitte warten ..
Mitglied: bastla
03.10.2011 um 12:31 Uhr
Hallo pokermaster2007!

Wenn damit ein "GetObject()" ausgeführt werden soll - was würde sich vermutlich anbieten?

Grüße
bastla
Bitte warten ..
Mitglied: pokermaster2007
03.10.2011 um 12:33 Uhr
ok habs jetzt geschafft.


01.
Dim objRootDSE As New DirectoryEntry("LDAP://RootDSE") 
02.
Dim strADsPath As String 
03.
Dim netpcs As ArrayList 
04.
Dim i As Integer 
05.
 
06.
        Try 
07.
            strADsPath = "LDAP://" + objRootDSE.Properties("defaultNamingContext").Value.ToString 
08.
        Catch ex As Exception 
09.
            MsgBox(ex.Message) 
10.
        End Try 
11.
 
12.
 
13.
        Dim netpcs As ArrayList = GetDomainHosts(strADsPath) 
14.
 
15.
        Do 
16.
            ListBox1.Items.Add(netpcs.Item(i).ToString) 
17.
            i += 1 
18.
        Loop Until i = netpcs.Count 
19.
 
20.
        i = 0


01.
 Function GetDomainHosts(ByVal LDAPDir As String, Optional ByVal RegexHost As String = "") As ArrayList 
02.
        Dim pc As New ArrayList 
03.
 
04.
        ' 1. connect to your domain controller, binding using currently logged on credentials 
05.
        Dim root As New DirectoryServices.DirectoryEntry(LDAPDir) 
06.
 
07.
        ' 2. put together an ldap query to retrieve all computer accounts 
08.
        Dim searcher As New DirectoryServices.DirectorySearcher(root) 
09.
        searcher.Filter = "(objectClass=computer)" 
10.
        searcher.SearchScope = DirectoryServices.SearchScope.Subtree 
11.
        searcher.Sort = New DirectoryServices.SortOption("displayName", DirectoryServices.SortDirection.Descending) 
12.
 
13.
        ' 3. execute the query 
14.
        Dim results As DirectoryServices.SearchResultCollection = searcher.FindAll() 
15.
        Dim pcname As String = "" 
16.
 
17.
        ' 4. loop through the results 
18.
        For Each computer As DirectoryServices.SearchResult In results 
19.
            pcname = computer.GetDirectoryEntry().Properties("displayName").Value 
20.
            If Not pcname = Nothing Then 
21.
                pcname = pcname.Replace("$", "").ToLower 
22.
                If RegexMatchingHost(pcname, RegexHost) Then 
23.
                    pc.Add(pcname) 
24.
                End If 
25.
            End If 
26.
        Next 
27.
        Return pc 
28.
    End Function
Bitte warten ..
Ähnliche Inhalte
Windows Server

Primary Computer in der AD wird nicht angegnommen

Frage von weku85Windows Server8 Kommentare

Hallo Zusammen, nachdem ich sehr lange nun schon rumprobiere und es nicht gebacken bekommen hier mein Anliegen. Unsere Administratoren ...

Windows Netzwerk

Aktive Computer Gruppenrichtlinie auslesen

gelöst Frage von Markus1977Windows Netzwerk1 Kommentar

Mit dem Befehle gpresult /r kann man die Gruppenrichtlinien anzeigen lassen, jedoch betrifft das nur für die Benutzer Gruppenrichtlinien. ...

Batch & Shell

Powershell Nicht AD Computer identifizieren

Frage von MarabuntaBatch & Shell5 Kommentare

Hallo, ich will Computer identifizieren und den Computern Aufgaben hinterlegen. Der Rohbau den ich gerade angefangen habe sieht so ...

Windows Userverwaltung

AD Gruppen User auslesen

Frage von pgWindows Userverwaltung1 Kommentar

Guten Tag, ich bin auf der Suche nach einem Programm welches mit die User eines AD ausliest und mir ...

Neue Wissensbeiträge
CMS
Erneut kritische Zero-Day-Lücke in Drupal
Tipp von Reini82 vor 10 MinutenCMS

Laut einem Bericht auf t3n gibt es eine Schwere Sicherheitslücke in Drupal die auch schon ausgenutzt wird. Betroffen sind ...

Sicherheit

MikroTik-Router patchen, Schwachstelle wird ausgenutzt

Information von kgborn vor 20 StundenSicherheit

Am 23. April 2018 wurde von Mikrotik ein Security Advisory herausgegeben, welches auf eine Schwachstelle im RouterOS hinwies. Mikrotik ...

Windows 10

Microcode-Updates KB4090007, KB4091663, KB4091664, KB4091666 für Windows 10

Information von kgborn vor 1 TagWindows 101 Kommentar

Kurze Information für Administratoren von Windows 10-Systemen, die mit neueren Intel CPUs laufen. Microsoft hat zum 23. April 2018 ...

iOS
Updates für Iphone und Co
Information von sabines vor 1 TagiOS

Gestern abend ist iOS 11.3.1 erschienen, ein kleineres Update, dass einige Lücken schließt und "Lahmlegen" nach einem Display Tausch ...

Heiß diskutierte Inhalte
Batch & Shell
Powershell: Im AD nach Rechnern mit bestimmten IP-Adressen suchen
gelöst Frage von Raven42Batch & Shell36 Kommentare

Hallo zusammen, ich suche nach einer Möglichkeit nach Computern im AD zu suchen , deren IP-Adresse mit 10.11.12. beginnt. ...

C und C++
Frage1 C Programmierung-Makefile Frage2 PHP-Programmierung HTTP-Fehler 404
Frage von KatalinaC und C++34 Kommentare

Hallo, ich habe 2 Fragen, die nichts miteinander zu tun haben aber mit denen ich mich gerade beschäftige: 1. ...

Windows Server
Alten DC entfernen
Frage von smartinoWindows Server24 Kommentare

Hallo zusammen, ich habe hier eine Umgebung übernommen und erstmal einen DCDIAG gemacht. Dabei fällt auf, daß eine ganze ...

Ausbildung
Wie gelingt ein guter Einstieg in die FiSi-Ausbildung? (Umschulung)
Frage von SiAnKoAusbildung23 Kommentare

Schönen guten Tag, ich bin SiAnKo und habe seit dem 1.04.2018 eine Umschulung als FiSi angefangen. Ich möchte natürlich ...