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, 11646 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
Visual Studio
VB.NET Symlink (mklink)
gelöst Frage von duschgasVisual Studio6 Kommentare

Guten Tag, ich bin am verzweifeln. Mittels VB.NET möchte ich per Buttonklick einen Symlink (mklink) einer Datei erstellen. Mein ...

Visual Studio
Vb.net dynamische Logik
Frage von theoberlinVisual Studio6 Kommentare

Hallo zusammen, In der Hoffnung hier tummeln sich auch vb.net programmierer würde ich euch gern eine Frage stellen: Ich ...

Visual Studio
Netzwerkdrucker installieren, vb.net
gelöst Frage von HardExitVisual Studio

Hallo Leute, also nach langem Tüfteln habe ich jetzt einen Funktionierenden Drucker installationscode, den ich gerne mit euch teilen ...

Visual Studio
Variabler Ordnername VB.Net
gelöst Frage von HardExitVisual Studio12 Kommentare

Servus, also ich habe einen Ordner an dem immer ein Datum angehängt ist, diesen Variablen namen müsste ich irgendwie ...

Neue Wissensbeiträge
Internet

CDU Propaganda: Urheberschutz im Internet - Ende des digitalen Wild-West

Information von Frank vor 19 StundenInternet3 Kommentare

Hallo Administratoren, aus einem Kommentar heraus habe ich folgenden Beiträge von Herr Sven Schulze und Axel Voss (beide CDU ...

Router & Routing

Zyxel VMG 1312 B30A - Firmwareupdate nur im "privaten" Firefox Modus möglich

Tipp von the-buccaneer vor 1 TagRouter & Routing2 Kommentare

Hatte hier ein Zyxel 1312 das ums verrecken kein Firmwareupdate durchführen wollte. Datei ist auswählbar, dann kommt der Fortschrittskreisel ...

Windows 7

Windows 7 u. Server 2008 (R2) SHA-2-Update kommt am 12. März 2019

Information von kgborn vor 2 TagenWindows 75 Kommentare

Kleine Info für die Admins der oben genannten Maschinen. Ab Juli 2019 werden Updates von Microsoft nur noch mit ...

Firewall
PfSense 2.5.0 benötigt doch kein AES-NI
Information von ChriBo vor 4 TagenFirewall2 Kommentare

Hallo, Wie sich einige hier erinnern werden hat Jim Thompson in diesem Aritkel beschrieben, daß ab Version 2.5.0 ein ...

Heiß diskutierte Inhalte
Hardware
PC im Selbstbau, Workstation, mittelklasse Gaming
gelöst Frage von MrRobot1997Hardware21 Kommentare

Hallöchen Leute, ich bin seit einigen Jahren leider nicht mehr wirklich im Bild, wenn es um die Hardware und ...

Datenbanken
PHP Fatal error: Uncaught Error: Call to undefined function oci connect
Frage von PlanitecXDatenbanken20 Kommentare

Hallo Zusammen, ich sitze seit Tagen am Problem das ich keine PHP Anwendung mit Anbindung zu Oracle zum laufen ...

Hardware
Welchen Shop Großhandel für EDV?
Frage von opc123Hardware17 Kommentare

Hallo, ich finde kein passendes Thema. Ich suche einen Großhändler für alltägliche EDV Ausstattung: Ethernet Kabel, Switche, Stromverteiler, Handy´s, ...

Windows Server
User auf Server Install-Rechte geben
gelöst Frage von killtecWindows Server17 Kommentare

Hi, ich möchte auf mehreren W2016 Servern einem bestimmten User das Recht zum Installieren von Programmen geben. Er soll ...