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

Frage Entwicklung Visual Studio

.Net - Active Directory Abfragen, weitere Fragen

Mitglied: aivilon

aivilon (Level 1) - Jetzt verbinden

10.05.2012 um 12:11 Uhr, 3585 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
Mit Tastenkürzel im Active Directory navigieren?
gelöst Frage von Fish01Windows Server3 Kommentare

Hallo! Folgender Fall als Beispiel: Habe in einer OU ca. 100 User und möchte zB: bei jedem User kontrollieren, ...

Neue Wissensbeiträge
Linux

Meltdown und Spectre: Linux Update

Information von Frank vor 20 StundenLinux

Meltdown (Variante 3 des Prozessorfehlers) Der Kernel 4.14.13 mit den Page-Table-Isolation-Code (PTI) ist nun für Fedora freigegeben worden. Er ...

Tipps & Tricks

Solutio Charly Updater Fehlermeldung: Das Abgleichen der Dateien in -Pfad- mit dem Datenobject ist fehlgeschlagen

Tipp von StefanKittel vor 1 TagTipps & Tricks

Hallo, hier einmal als Tipp für alle unter Euch die mit der Zahnarztabrechnungssoftware Charly von Solutio zu tun haben. ...

Sicherheit

Meltdown und Spectre: Wir brauchen eine "Abwrackprämie", die die CPU-Hersteller bezahlen

Information von Frank vor 1 TagSicherheit12 Kommentare

Zum aktuellen Thema Meltdown und Spectre: Ich wünsche mir von den CPU-Herstellern wie Intel, AMD oder ARM eine Art ...

Sicherheit

Meltdown und Spectre: Realitätscheck

Information von Frank vor 1 TagSicherheit9 Kommentare

Die unangenehme Realität Der Prozessorfehler mit seinen Varianten Meltdown und Spectre ist seit Juni 2017 bekannt. Trotzdem sind immer ...

Heiß diskutierte Inhalte
Sicherheit
Meltdown und Spectre: Die machen uns alle was vor
Information von FrankSicherheit25 Kommentare

Aktuell sieht es in den Medien so aus, als hätten die Hersteller wie Intel, Microsoft und Co den aktuellen ...

Netzwerke
Packet loss bei "InternetLeitungsvollauslastung"
gelöst Frage von Freak-On-SiliconNetzwerke17 Kommentare

Servus; Ja der Titel klingt komisch, is aber so. Wenn die Internetleitung voll ausgelastet ist, hab ich extreme packet ...

Ubuntu
Ubuntu - Starter für nicht vertrauenswürdige Anwendungen
Frage von adm2015Ubuntu17 Kommentare

Hallo zusammen, Ich verwende derzeit die Ubuntu Versionen 17.10 bzw. im Test 18.04. Ich habe mehrere .desktop Dateien in ...

Windows 10
Automatische daten kopieren, USB zu USB unter Win10 im Hintergrund
Frage von DerEisigeWindows 1016 Kommentare

Hallo Leute, ich bin auf der Suche nach einem Skript, dass von einem USB Stick automatisch nach dem einstecken ...