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

.Net - Active Directory Abfragen, weitere Fragen

Mitglied: aivilon

aivilon (Level 1) - Jetzt verbinden

10.05.2012 um 12:11 Uhr, 3597 Aufrufe

Hallo Zusammen.

Im Vorraus, ich bin noch recht frisch auf .Net.

Also meine erste Frage:

Ich habe eine Windows Forms Anwendung mit einer login Form. Mittels dieser kann ich mich mit meinem Geschäftslogin an der Domäne Anmelden. geht super. Jetzt frag ich mich aber, ob die Forms Anwendung dauerhaft mit diesem Benutzer läuft. Ich hab das mit einer Funktion gemacht:

01.
    Public Function ValidateActiveDirectoryLogin(ByVal strDomain As String, ByVal strUsername As String, ByVal strPassword As String) As Boolean 
02.
 
03.
        strUsername = My.Forms.LoginForm1.UsernameTextBox.Text 
04.
        strPassword = My.Forms.LoginForm1.PasswordTextBox.Text 
05.
        strDomain = My.Forms.LoginForm1.DomainTextBox.Text 
06.
 
07.
        Dim Success As Boolean = False 
08.
        Dim dirEntry As New System.DirectoryServices.DirectoryEntry("LDAP://" & strDomain, strUsername, strPassword) 
09.
        Dim Searcher As New System.DirectoryServices.DirectorySearcher(dirEntry) 
10.
 
11.
        dirEntry.AuthenticationType = AuthenticationTypes.Secure 
12.
 
13.
        Searcher.SearchScope = DirectoryServices.SearchScope.OneLevel 
14.
        Try 
15.
            Dim Results As System.DirectoryServices.SearchResult = Searcher.FindOne 
16.
            Success = Not (Results Is Nothing) 
17.
        Catch 
18.
            Success = False 
19.
        End Try 
20.
        Return Success 
21.
    End Function
Aufgerufen wird das ganze bei einem Klick auf OK:
01.
    Private Sub OK_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles OK.Click 
02.
        If PasswordTextBox.Text = "KTbAe2445-qwhfaoiszd8hqwe" Then 
03.
            MsgBox("Bitte geben sie ein Passwort ein!", vbOKOnly, "Passwort eingeben") 
04.
            Exit Sub 
05.
        End If 
06.
 
07.
        'Do Until ValidateActiveDirectoryLogin(strUsername, strPassword, strDomain) = True 
08.
        If ValidateActiveDirectoryLogin(strUsername, strPassword, strDomain) = True Then 
09.
            MsgBox("Succsess") 
10.
        Else 
11.
            MsgBox("Login Fehlgeschlagen", vbOKOnly, "Böser Login") 
12.
            PasswordTextBox.Text = Nothing 
13.
            Exit Sub 
14.
            Return 
15.
        End If 
16.
        'Loop 
17.
        Me.Close() 
18.
        Form1.Opacity = 1 
19.
    End Sub
Des weitern möchte ich nun auf einer weiteren Form eine AD Abfrage machen. Bin schon seit mehreren Stunden am nachlesen und am ausprobieren. Bislang noch ohne grossem Erfolg.
Was ich möchte ist, dass ich in der Form per ComboBox die Objekte definieren kann (Benutzer, Computer, Gruppen). In einer Textbox kann man den Namen des Benutzers eingeben, oder den Login Namen, Computername oder Gruppenname. Per klick auf suchen wird nun im Hintergrund die gesamte AD durchsucht. Die ergebnisse sollen in einer ListView in verschiedenen Spalten angezeigt werden: Objekt Typ, Name, Login Name, UNC Pfad.
Auch hier versuche ich gerade, eine Funktion zusammen zu Stiefeln:
01.
Public Function FindAccount(ByVal strLogin As String, ByVal strTyp As String) 
02.
        Dim dirEntry As New System.DirectoryServices.DirectoryEntry("LDAP://" & strDomain, strUsername, strPassword) 
03.
        Dim dirSearcher As DirectorySearcher = New DirectorySearcher(ValidateActiveDirectoryLogin(strDomain, strUsername, strPassword)) 
04.
        dirSearcher.Filter = "(&(objectCategory=" & strTyp & ")(SAMAccountName=" & strLogin & "))" 
05.
        dirSearcher.SearchScope = SearchScope.Subtree 
06.
        Dim results As SearchResult = dirSearcher.FindOne() 
07.
        Dim SubItem As ListViewItem 
08.
        If strTyp = "User" Then 
09.
            strTyp = "Benutzer" 
10.
        End If 
11.
        With Form1.ListView1.Items 
12.
            SubItem = .Add(strTyp) 
13.
            SubItem.SubItems.Add(System.DirectoryServices.) 
14.
        End With 
15.
 
16.
        dirEntry.Close() 
17.
End Function
Kann mir da wer Helfen, respektive, hat das schon mal jemand gemacht und wäre so freundlich mir den Quellcode zu geben =)
Wär euch dankbar

Grüsse
aivilon
Ähnliche Inhalte
Sonstige Systeme

Active Directory Abfragen konfigurieren oder andere erstllen als vorhanden

gelöst Frage von SnvRCalleSonstige Systeme3 Kommentare

Hallo zusammen. Ich suche nach einer Abfrage im AD um die Benutzer oder Gruppen zu sehen, an denen als ...

Windows Netzwerk

Frage zum Hinzufügen einer Gruppe zu einem User im Active Directory

Frage von ScrollerWindows Netzwerk1 Kommentar

Hi, Hallo, wir haben für die Berechtigung im Filesystem Gruppen angelegt. Die Namen entsprechen der Ordnerstruktur. Bsp: für c:\ebene1\ebene2\ebene3 ...

Windows Server

Active Directory Vertrauensstellung

Frage von ukulele-7Windows Server11 Kommentare

Ich muss sagen das ist meine erste Vertrauensstellung. Ich habe sie in unserer alten AD ads.domain.local Windows 2003 und ...

Windows Server

Active Directory - Umlaute ersetzen

gelöst Frage von duschgasWindows Server5 Kommentare

Hallo liebe Community, Ich besitze ein AD, das historisch gewachsen ist. Unter anderem enthält es Umlaute wie Ä Ü ...

Neue Wissensbeiträge
Humor (lol)
IoT-Gefahr: Smartes Aquarium leckt!
Information von Lochkartenstanzer vor 2 TagenHumor (lol)3 Kommentare

Moin, Die IoT-Manie hat weitere Opfer gefunden. Ein Casino-Leck durch ein smartes Aquarium: Allerdings haben sie kein Wasser, sondern ...

Router & Routing

Alte Fritzbox 7270 mit VPN und SIP-Telefonie hinter O2 Homebox 6641 als "Modem"

Erfahrungsbericht von the-buccaneer vor 3 TagenRouter & Routing3 Kommentare

Nun war es soweit: Auch O2 hat mich mit VOIP zwangsbeglückt. Heute am Privatanschluss, in 2 Wochen ist das ...

Sicherheit

Ungepatchte Remote Code Execution-Lücke in LG NAS

Information von kgborn vor 3 TagenSicherheit

Nutzt wer LG NAS-Einheiten? In den NAS-Einheiten der LG Network Storage-Einheiten gibt es eine sehr unschöne Schwachstelle, die einen ...

Windows Update

Neue Version KB4099950 NIC Einstellungen gehen verloren

Information von sabines vor 3 TagenWindows Update2 Kommentare

Es ist eine neue Version des KB4099950 verfügbar, die das Problem mit den verlorenen Netzwerkeinstellungen lösen soll. Das Datum ...

Heiß diskutierte Inhalte
Netzwerkmanagement
Netzwerkmanagment im Haus mit Switch, Panel und pfsense
gelöst Frage von CorraggiounoNetzwerkmanagement19 Kommentare

hi zusammen, wir sind gerade dabei das ganze Haus bzw. die einzelnen Zimmer mit netzwerkdosen zu versorgen. Vom Keller ...

Netzwerkgrundlagen
VLAN - Offene Fragen
Frage von KnettenbrechNetzwerkgrundlagen17 Kommentare

Hallo zusammen, ich befasse mich derzeit mit dem Thema VLAN. Hierzu habe ich schon einige Guides gelesen, einschließlich des ...

Google Android
Empfehlung: Android Ortungsapp
gelöst Frage von certifiedit.netGoogle Android13 Kommentare

Guten Morgen, grundsätzlich vorweg, ich wollte mich eben schlau machen, bzgl einer Ortungsapp, welche Androidbasiert einem anderen Androidsmartphone mitteilt, ...

Router & Routing
VPN hinter zweiter Fritzbox nutzen im Nachbarhaus
gelöst Frage von georg2204Router & Routing11 Kommentare

Hallo zusammen, ich blicke hier leider nicht mehr so ganz durch. In Haus 1 steht eine Fritzbox 7390, diese ...