Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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

Beim anlegen eines Active Directory Bentzer mittels visual basic kommt eine Fehlermeldung

Frage Entwicklung Visual Studio

Mitglied: Bayano

Bayano (Level 1) - Jetzt verbinden

18.07.2007 um 10:27 Uhr, 3316 Aufrufe

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:

01.
Private Sub Command1_Click() 
02.
On Error GoTo Fehler 
03.
 
04.
  Set rootDSE = GetObject("LDAP://RootDSE") 
05.
  domainname = rootDSE.Get("defaultnamingcontext") 
06.
    
07.
  Set oContainer = GetObject("LDAP://" & domainname) 
08.
    '-- Neuen Benutzer erzeugen 
09.
  Set oUser = oContainer.Create("user", "CN=" & Text3.Text & ",CN=Users") 
10.
  '--Attribute setzen 
11.
  oUser.Put "samAccountName", Text3.Text 
12.
  oUser.Put "userPrincipalName", Text3.Text 
13.
  If Text7.Text = "" Then 
14.
    'MsgBox "Es muss noch ein Anzeigename angegeben werden." 
15.
  Else 
16.
    oUser.Put "displayName", Text7.Text 
17.
  End If 
18.
  If Text2.Text = "" Then 
19.
    'MsgBox "Es muss ein Vorname angegeben werden." 
20.
  Else 
21.
    oUser.Put "givenName", Text2.Text 
22.
  End If 
23.
  If Text1.Text = "" Then 
24.
    'MsgBox "Es muss ein Nachname angegeben werden." 
25.
  Else 
26.
    oUser.Put "sn", Text1.Text 
27.
  End If 
28.
  If Text5.Text = "" Then 
29.
    'MsgBox "Es muss eine Telefonnummer angegeben werden." 
30.
  Else 
31.
    oUser.Put "telephoneNumber", Text5.Text 
32.
    oUser.Put "facsimileTelephoneNumber", "+49 2381 1710" & Text5.Text 
33.
  End If 
34.
  If Text4.Text = "" Then 
35.
    'MsgBox "Es muss eine Mailadresse angegeben werden." 
36.
  Else 
37.
    oUser.Put "mail", Text4.Text 
38.
  End If 
39.
  If Text6.Text = "" Then 
40.
    'MsgBox "Es muss eine Zimmernummer angegeben werden." 
41.
  Else 
42.
      oUser.Put "physicalDeliveryOfficeName", Text6.Text 
43.
  End If 
44.
  If List2.List(List2.ListIndex) = "" Then 
45.
    'MsgBox "Es muss noch eine Abteilung ausgewählt werden." 
46.
  Else 
47.
    oUser.Put "department", List2.List(List2.ListIndex) 
48.
  End If 
49.
  If Text8.Text = "" Then 
50.
    'MsgBox "Es muss eine Beschreibung angegeben werden." 
51.
  Else 
52.
    oUser.Put "description", Text8.Text 
53.
  End If 
54.
  If List1.List(List1.ListIndex) = "" Then 
55.
    'MsgBox "Es muss eine Adresse angegeben werden." 
56.
  Else 
57.
    strasse = Trim(Split(List1.List(List1.ListIndex), ";")(0)) 
58.
    gebaeude = Trim(Split(List1.List(List1.ListIndex), ";")(1)) 
59.
    plz_ort = Trim(Split(List1.List(List1.ListIndex), ";")(2)) 
60.
    plz = Trim(Split(plz_ort, " ")(0)) 
61.
    ort = Trim(Split(plz_ort, " ")(1)) 
62.
    oUser.Put "streetAddress", strasse & vbCrLf & gebaeude 
63.
    If plz = "" Then 
64.
        'MsgBox "Es gibt keine PLZ" 
65.
    Else 
66.
        oUser.Put "postalCode", plz 
67.
        oUser.Put "l", ort 
68.
    End If 
69.
  End If 
70.
  If Text9.Text = "" Then 
71.
    'MsgBox "Es muss ein Anmeldescript angegeben werden." 
72.
  Else 
73.
    oUser.Put "scriptPath", Text9.Text 
74.
  End If 
75.
 
76.
  oUser.SetInfo 
77.
  oUser.SetPassword "5tandarD" 
78.
 
79.
  '--Konto aktivieren 
80.
  oUser.AccountDisabled = False 
81.
  oUser.SetInfo 
82.
    
83.
  'Gruppenmitgleidschaft zuordnen 
84.
  For a = 0 To List4.ListCount 
85.
    membership = List4.List(a) 
86.
    For Each oGroup In container 
87.
        If oGroup.samAccountName = membership Then 
88.
            oGroup.Add oUser.ADsPath 
89.
            oGroup.SetInfo 
90.
        End If 
91.
    Next 
92.
  Next 
93.
     
94.
  MsgBox "Der User " & Text7.Text & " wurde angelegt." 
95.
   
96.
Fehler: 
97.
 'Fehlerabfrage 
98.
 If Err.Number <> 0 Then 
99.
    MsgBox "Beim Erstellen des Benutzers ist ein Fehler aufgetreten." 
100.
    If Err.Number = "80071392" Then 
101.
        MsgBox "Der Benutzer existiert schon" 
102.
    End If 
103.
 End If 
104.
End Sub 
105.
 


Hoffendlich kann mir von euch einer helfen.

MFG
Sascha
Ähnliche Inhalte
Windows Server
Serie: Active Directory Zertifikatsdienste (Teil 1-8)

Link von pewa2303 zum Thema Windows Server ...

Windows Userverwaltung
gelöst Active Directory: Basisordner automatisch füllen lassen? (5)

Frage von Rene12345 zum Thema Windows Userverwaltung ...

Neue Wissensbeiträge
RedHat, CentOS, Fedora

Fedora, RedHat, Centos: DNS-Search Domain setzen

(11)

Tipp von Frank zum Thema RedHat, CentOS, Fedora ...

Drucker und Scanner

Samsung SL-M4025ND, firmware update und (kompatible) Tonerkassetten

(1)

Erfahrungsbericht von markus-1969 zum Thema Drucker und Scanner ...

Heiß diskutierte Inhalte
Windows 10
Windows für Privatanwender "nicht mehr handhabbar" (26)

Frage von FA-jka zum Thema Windows 10 ...

LAN, WAN, Wireless
Brauche Hilfe: Mit (schnellem) WLAN Strecke überbrücken (23)

Frage von pierrehansen zum Thema LAN, WAN, Wireless ...

Backup
Backup Wochen- Monats- Jahressicherung (13)

Frage von Meterpeter zum Thema Backup ...