Beim anlegen eines Active Directory Bentzer mittels visual basic kommt eine Fehlermeldung
Hallo,
ich schreibe gerade ein Programm mit Visual Basic womit ein Benutzer im Active Directory angelgt wird. Allerdings kommt beim anlegen immer eine Fehlermeldung.(Fehler 80072035 Automatisierungsfehler) Ich hab auch schon danach gegooglet, aber nichts passendes gefunden.
Hier auch mal der Code womit der Benutzer angelegt wird:
Hoffendlich kann mir von euch einer helfen.
MFG
Sascha
ich schreibe gerade ein Programm mit Visual Basic womit ein Benutzer im Active Directory angelgt wird. Allerdings kommt beim anlegen immer eine Fehlermeldung.(Fehler 80072035 Automatisierungsfehler) Ich hab auch schon danach gegooglet, aber nichts passendes gefunden.
Hier auch mal der Code womit der Benutzer angelegt wird:
Private Sub Command1_Click()
On Error GoTo Fehler
Set rootDSE = GetObject("LDAP://RootDSE")
domainname = rootDSE.Get("defaultnamingcontext")
Set oContainer = GetObject("LDAP://" & domainname)
'-- Neuen Benutzer erzeugen
Set oUser = oContainer.Create("user", "CN=" & Text3.Text & ",CN=Users")
'--Attribute setzen
oUser.Put "samAccountName", Text3.Text
oUser.Put "userPrincipalName", Text3.Text
If Text7.Text = "" Then
'MsgBox "Es muss noch ein Anzeigename angegeben werden."
Else
oUser.Put "displayName", Text7.Text
End If
If Text2.Text = "" Then
'MsgBox "Es muss ein Vorname angegeben werden."
Else
oUser.Put "givenName", Text2.Text
End If
If Text1.Text = "" Then
'MsgBox "Es muss ein Nachname angegeben werden."
Else
oUser.Put "sn", Text1.Text
End If
If Text5.Text = "" Then
'MsgBox "Es muss eine Telefonnummer angegeben werden."
Else
oUser.Put "telephoneNumber", Text5.Text
oUser.Put "facsimileTelephoneNumber", "+49 2381 1710" & Text5.Text
End If
If Text4.Text = "" Then
'MsgBox "Es muss eine Mailadresse angegeben werden."
Else
oUser.Put "mail", Text4.Text
End If
If Text6.Text = "" Then
'MsgBox "Es muss eine Zimmernummer angegeben werden."
Else
oUser.Put "physicalDeliveryOfficeName", Text6.Text
End If
If List2.List(List2.ListIndex) = "" Then
'MsgBox "Es muss noch eine Abteilung ausgewählt werden."
Else
oUser.Put "department", List2.List(List2.ListIndex)
End If
If Text8.Text = "" Then
'MsgBox "Es muss eine Beschreibung angegeben werden."
Else
oUser.Put "description", Text8.Text
End If
If List1.List(List1.ListIndex) = "" Then
'MsgBox "Es muss eine Adresse angegeben werden."
Else
strasse = Trim(Split(List1.List(List1.ListIndex), ";")(0))
gebaeude = Trim(Split(List1.List(List1.ListIndex), ";")(1))
plz_ort = Trim(Split(List1.List(List1.ListIndex), ";")(2))
plz = Trim(Split(plz_ort, " ")(0))
ort = Trim(Split(plz_ort, " ")(1))
oUser.Put "streetAddress", strasse & vbCrLf & gebaeude
If plz = "" Then
'MsgBox "Es gibt keine PLZ"
Else
oUser.Put "postalCode", plz
oUser.Put "l", ort
End If
End If
If Text9.Text = "" Then
'MsgBox "Es muss ein Anmeldescript angegeben werden."
Else
oUser.Put "scriptPath", Text9.Text
End If
oUser.SetInfo
oUser.SetPassword "5tandarD"
'--Konto aktivieren
oUser.AccountDisabled = False
oUser.SetInfo
'Gruppenmitgleidschaft zuordnen
For a = 0 To List4.ListCount
membership = List4.List(a)
For Each oGroup In container
If oGroup.samAccountName = membership Then
oGroup.Add oUser.ADsPath
oGroup.SetInfo
End If
Next
Next
MsgBox "Der User " & Text7.Text & " wurde angelegt."
Fehler:
'Fehlerabfrage
If Err.Number <> 0 Then
MsgBox "Beim Erstellen des Benutzers ist ein Fehler aufgetreten."
If Err.Number = "80071392" Then
MsgBox "Der Benutzer existiert schon"
End If
End If
End Sub
Hoffendlich kann mir von euch einer helfen.
MFG
Sascha
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 64083
Url: https://administrator.de/forum/beim-anlegen-eines-active-directory-bentzer-mittels-visual-basic-kommt-eine-fehlermeldung-64083.html
Ausgedruckt am: 24.12.2024 um 18:12 Uhr