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:

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