www.IT-Visions.de-Diskussionsforen (Version 2.1)
(Diese Seite wurde noch nicht auf das neue Layout umgestellt!)


Diese Foren stehen den Lesern unserer Bücher und allen anderen registrieren Benutzern dieser Website zur Verfügung. Wir würden uns freuen, wenn viele Nutzer dieser Website hier nicht nur Fragen stellen, sondern auch die Fragen anderer Nutzer beantworten. Diese Foren sind ein ehrenamtlicher, nicht-kommerzieller, unmoderierter Community-Dienst von www.IT-Visions.de. Wenn Sie kommerzielle Unterstützung für .NET/Scripting/PowerShell suchen, schauen Sie bitte auf unser Support-Angebot und unsere Schulungsangebote für Scripting und Schulungsangebote für .NET.



Probleme AD-Programm
Autor:  Kai
E-mail:  Antworten bitte nur in das Forum!
Datum:  21.01.2008 12:14:34
Subject:  Probleme AD-Programm
Bezug zum Buch: 
Message:  Hi alle zusammen....

hier programmiere zur zeit ein kleines Active Directory Verwaltungstool komme aber nicht weiter mit der Funktion Benutzer anlegen

Erst kommt der Quellcode und dann der Fehler:

Quellcode:

    Private Sub btBenutzerAdd_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btBenutzerAdd.Click

        ' --- Variablen Deklarationen
        Dim fun As New funktionen
        Dim o As DirectoryEntry
        Dim c As DirectoryEntries
        Dim USER As String
        Dim LDAP As String
        Dim ADMINUSER As String
        Dim ADMINPASSWORD As String
        ' --------------------------------------------------------------------------------------


        ' --- Variablen Bestimmung
        USER = "CN=" & txbNachname.Text & "\, " & txbVorname.Text
        LDAP = "LDAP://majestix/" & cbUserSpeichernIn.Text
        ADMINUSER = txbAdminUser.Text
        ADMINPASSWORD = txbAdminPass.Text
        ' --------------------------------------------------------------------------------------


        ' --- Zugriff auf IADS
        o = New DirectoryEntry(LDAP, ADMINUSER, ADMINPASSWORD)
        ' --------------------------------------------------------------------------------------


        ' --- Zugriff auf IADSContainer
        c = o.Children()
        ' --------------------------------------------------------------------------------------


        ' --- Passwort Einrichtung und Überprüfung
        If (txbPasswort.Text = txbWPasswort.Text) Then

            ' --- Neues Objekt erzeugen und Attribute setzen
            o = c.Add(USER, "user")
            ' --- Verzeichnisattribute festlegen
            o.Properties("displayname").Add(txbNachname.Text & ", " & txbVorname.Text)
            o.Properties("samaccountname").Add(txbSamAcc.Text)
            o.Properties("givenname").Add(txbVorname.Text)
            o.Properties("initials").Add(txbInitialen.Text)
            o.Properties("sn").Add(txbNachname.Text)
            o.Properties("physicaldeliveryofficename").Add(coBoBuero.Text)
            o.Properties("telephonenumber").Add(coBoRufnummer.Text & txbRufnummer.Text)
            o.Properties("streetaddress").Add(cbStraße.Text)
            o.Properties("l").Add(cbOrt.Text)
            o.Properties("st").Add(cbBundesland.Text)
            o.Properties("postalcode").Add(cbPLZ.Text)
            o.Properties("co").Add(cbLand.Text)
            o.Properties("l").Add(cbOrt.Text)
            o.Properties("homephone").Add(txbPrivat.Text)
            o.Properties("mobile").Add(txbMobil.Text)
            o.Properties("facsimiletelephonenumber").Add(txbFax.Text)
            o.Properties("title").Add(cbPosition.Text)
            o.Properties("department").Add(cbAbteilung.Text)
            o.Properties("company").Add(cbFirma.Text)
            o.Properties("c").Add("DE")
            ' --------------------------------------------------------------------------------------


            ' --- Automatische Einrichtung
            o.Properties("homedirectory").Add("\\asterix\user$\" & txbSamAcc.Text)      'Home Directory
            o.Properties("homedrive").Add("I:")                                         'Homedrive
            o.Properties("scriptpath").Add("syslogin.bat")
            o.Properties("objectcategory").Add("LDAP://majestix/CN=Person,CN=Schema,CN=Configuration,DC=stadtbaeckerei,DC=de")
            ' --------------------------------------------------------------------------------------


            ' --- Active Directory Benutzerrechte
            'o.Properties("memberof").Add(lbBenutzerrechte.Text)
            'o.Properties("memberof").Add("CN=Mitarbeiter,OU=Gruppen,OU=Benutzerverwaltung,DC=stadtbaeckerei,DC=de")
            ' --------------------------------------------------------------------------------------


            ' --- Zugriff auf Eintrag
            'o.Invoke("setpassword", txbPasswort.Text)
            o.CommitChanges()
            ' --- Konto aktivieren
            'o.Properties("adspath").Add(cbUserSpeichernIn.Text)
            o.NativeObject.AccountDisabled = False
            o.CommitChanges()

            MessageBox.Show("Benutzer wurde erfolgreich angelegt!", "Benutzer angelegt", MessageBoxButtons.OK, MessageBoxIcon.Information)
            ' --------------------------------------------------------------------------------------

        End If

        If (txbPasswort.Text <> txbWPasswort.Text) Then
            MessageBox.Show("Die Passwörter sind nicht identisch!", "Fehler bei Passwort eingabe", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If

    End Sub


Fehlermeldung:

Informationen über das Aufrufen von JIT-Debuggen
anstelle dieses Dialogfelds finden Sie am Ende dieser Meldung.

************** Ausnahmetext **************
System.DirectoryServices.DirectoryServicesCOMException (0x8007200B): Die Attributsyntax, die dem Verzeichnisdienst übergeben wurde, ist ungültig. (Ausnahme von HRESULT: 0x8007200B)
   bei System.DirectoryServices.DirectoryEntry.CommitChanges()
   bei ADirectorySearcher.Form2.btBenutzerAdd_Click_1(Object sender, EventArgs e) in C:\Dokumente und Einstellungen\kwe\Eigene Dateien\Visual Studio 2005\Projects\ADirectorySearcher2007\Form2.vb:Zeile 83.
   bei System.Windows.Forms.Control.OnClick(EventArgs e)
   bei System.Windows.Forms.Button.OnClick(EventArgs e)
   bei System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)
   bei System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
   bei System.Windows.Forms.Control.WndProc(Message& m)
   bei System.Windows.Forms.ButtonBase.WndProc(Message& m)
   bei System.Windows.Forms.Button.WndProc(Message& m)
   bei System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
   bei System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
   bei System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)


************** Geladene Assemblys **************
mscorlib
    Assembly-Version: 2.0.0.0.
    Win32-Version: 2.0.50727.1433 (REDBITS.050727-1400).
    CodeBase: file:///C:/WINNT/Microsoft.NET/Framework/v2.0.50727/mscorlib.dll.
----------------------------------------
ADirectorySearcher
    Assembly-Version: 1.0.0.0.
    Win32-Version: 1.0.0.1.
    CodeBase: file:///C:/Dokumente%20und%20Einstellungen/kwe/Eigene%20Dateien/Visual%20Studio%202005/Projects/ADirectorySearcher2007/bin/ADirectorySearcher.exe.
----------------------------------------
System.Windows.Forms
    Assembly-Version: 2.0.0.0.
    Win32-Version: 2.0.50727.1433 (REDBITS.050727-1400).
    CodeBase: file:///C:/WINNT/assembly/GAC_MSIL/System.Windows.Forms/2.0.0.0__b77a5c561934e089/System.Windows.Forms.dll.
----------------------------------------
System
    Assembly-Version: 2.0.0.0.
    Win32-Version: 2.0.50727.1433 (REDBITS.050727-1400).
    CodeBase: file:///C:/WINNT/assembly/GAC_MSIL/System/2.0.0.0__b77a5c561934e089/System.dll.
----------------------------------------
System.Drawing
    Assembly-Version: 2.0.0.0.
    Win32-Version: 2.0.50727.1433 (REDBITS.050727-1400).
    CodeBase: file:///C:/WINNT/assembly/GAC_MSIL/System.Drawing/2.0.0.0__b03f5f7f11d50a3a/System.Drawing.dll.
----------------------------------------
Microsoft.VisualBasic
    Assembly-Version: 8.0.0.0.
    Win32-Version: 8.0.50727.1433 (REDBITS.050727-1400).
    CodeBase: file:///C:/WINNT/assembly/GAC_MSIL/Microsoft.VisualBasic/8.0.0.0__b03f5f7f11d50a3a/Microsoft.VisualBasic.dll.
----------------------------------------
System.Configuration
    Assembly-Version: 2.0.0.0.
    Win32-Version: 2.0.50727.1433 (REDBITS.050727-1400).
    CodeBase: file:///C:/WINNT/assembly/GAC_MSIL/System.Configuration/2.0.0.0__b03f5f7f11d50a3a/System.Configuration.dll.
----------------------------------------
System.Xml
    Assembly-Version: 2.0.0.0.
    Win32-Version: 2.0.50727.1433 (REDBITS.050727-1400).
    CodeBase: file:///C:/WINNT/assembly/GAC_MSIL/System.Xml/2.0.0.0__b77a5c561934e089/System.Xml.dll.
----------------------------------------
mscorlib.resources
    Assembly-Version: 2.0.0.0.
    Win32-Version: 2.0.50727.1433 (REDBITS.050727-1400).
    CodeBase: file:///C:/WINNT/Microsoft.NET/Framework/v2.0.50727/mscorlib.dll.
----------------------------------------
System.DirectoryServices
    Assembly-Version: 2.0.0.0.
    Win32-Version: 2.0.50727.1433 (REDBITS.050727-1400).
    CodeBase: file:///C:/WINNT/assembly/GAC_MSIL/System.DirectoryServices/2.0.0.0__b03f5f7f11d50a3a/System.DirectoryServices.dll.
----------------------------------------
System.Windows.Forms.resources
    Assembly-Version: 2.0.0.0.
    Win32-Version: 2.0.50727.42 (RTM.050727-4200).
    CodeBase: file:///C:/WINNT/assembly/GAC_MSIL/System.Windows.Forms.resources/2.0.0.0_de_b77a5c561934e089/System.Windows.Forms.resources.dll.
----------------------------------------

************** JIT-Debuggen **************
Um das JIT-Debuggen (Just-In-Time) zu aktivieren, muss in der
Konfigurationsdatei der Anwendung oder des Computers
(machine.config) der jitDebugging-Wert im Abschnitt system.windows.forms festgelegt werden.
Die Anwendung muss mit aktiviertem Debuggen kompiliert werden.

Zum Beispiel:

<configuration>
    <system.windows.forms jitDebugging="true" />
</configuration>

Wenn das JIT-Debuggen aktiviert ist, werden alle nicht behandelten
Ausnahmen an den JIT-Debugger gesendet, der auf dem
Computer registriert ist, und nicht in diesem Dialogfeld behandelt.


Also diese Fehlermeldung kommt wenn ich versuche einen Benutzer anzulegen.

Vielen Dank!


Gruß Kai


Antworten

  Zurück zum Forum



 .NET Framework-Programmierung -- C#, VB.NET, ASP.NET, u.a.
 Probleme AD-Programm von Kai  am 21.1.2008 12:14:34 PM
 Re: Probleme AD-Programm von Kai  am 22.1.2008 4:56:19 PM
 Re: Probleme AD-Programm von Dr. Holger Schwichtenberg  am 21.1.2008 5:42:04 PM
 Re: Probleme AD-Programm von Kai  am 21.1.2008 6:40:10 PM
 Re: Probleme AD-Programm von Dr. Holger Schwichtenberg  am 21.1.2008 10:44:01 PM
 Re: Probleme AD-Programm von Kai  am 22.1.2008 9:15:19 AM


www.IT-Visions.de - Dr. Holger Schwichtenberg / 1998-2019