Re: Probleme AD-Programm

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.

Autor:	Kai
E-mail:	Antworten bitte nur in das Forum!
Datum:	22.01.2008 16:56:19
Subject:	Re: Probleme AD-Programm
Bezug zum Buch:
Message:	Meine Nachricht: ---------------- Nachtrag: Ich versuche auch noch User zur eine Gruppe hinzuzufügen mit folgendem Quellcode: Sub ADS_Benutzer_zu_Gruppe() Dim LDAPgruppe As String Dim LDAPuser As String LDAPgruppe = "LDAP://" LDAPuser = "LDAP://" Dim o As DirectoryEntry ' —- Zugriff auf Eintrag o = New DirectoryEntry(LDAPgruppe) ' —- IADSGroup::Add() aufrufen o.Invoke("Add", LDAPuser) End Sub Aber es kommt immer eine Fehlermeldung bei "o.Invoke("Add", LDAPuser)" der Zeile...was habe ich falsch gemacht? Informationen über das Aufrufen von JIT-Debuggen anstelle dieses Dialogfelds finden Sie am Ende dieser Meldung. ************ Ausnahmetext ********** System.Reflection.TargetInvocationException: Ein Aufrufziel hat einen Ausnahmefehler verursacht. ---> System.UnauthorizedAccessException: Zugriff verweigert (Ausnahme von HRESULT: 0x80070005 (E_ACCESSDENIED)) --- Ende der internen Ausnahmestapelüberwachung --- bei System.DirectoryServices.DirectoryEntry.Invoke(String methodName, Object[] args) bei ADirectorySearcher.funktionen.ADS_Benutzer_zu_Gruppe() in C:\Dokumente und Einstellungen\kwe\Eigene Dateien\Visual Studio 2005\Projects\ADirectorySearcher2007\funktionen.vb:Zeile 21. Vielen Dank! Gruss Kai Ich beziehe mich auf folgenden Beitrag: --------------------------------------- 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