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, 3318 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
Visual Studio
Visual Basic für anfänger (6)

Frage von Daoudi1973 zum Thema Visual Studio ...

Windows Userverwaltung
gelöst Server 2012 R2 Active Directory über den Webbrowser öffnen (4)

Frage von blackhawk17 zum Thema Windows Userverwaltung ...

Windows Server
Exchange 2010 Active Directory und Windows Server 2016 (4)

Erfahrungsbericht von Herbrich19 zum Thema Windows Server ...

Neue Wissensbeiträge
Administrator.de Feedback

Umgangsformen auf der Seite

Information von Frank zum Thema Administrator.de Feedback ...

Windows 10

Windows 8.x oder 10 Lizenz-Key aus dem ROM auslesen mit Linux

(6)

Tipp von Lochkartenstanzer zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Windows 10
gelöst Windows 10 Home "Netzlaufwerk nicht bereit" (19)

Frage von Oggy01 zum Thema Windows 10 ...

Exchange Server
gelöst RU 17 Exchange 2010 . Erfahrungen? (10)

Frage von keine-ahnung zum Thema Exchange Server ...

Windows Server
Festplatten Ruhezustand Windows Server 2016 (10)

Frage von ahaeuser zum Thema Windows Server ...

Datenbanken
gelöst MySQL Zeiterfassungs-Problematik (wer ist eingecheckt) (9)

Frage von NativeMode zum Thema Datenbanken ...