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, 3304 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.

Mit freundlichen Grüßen
Sascha
Neuester Wissensbeitrag
Internet

Unbemerkt - Telekom Netzumschaltung! - BNG - Broadband Network Gateway

(3)

Erfahrungsbericht von ashnod zum Thema Internet ...

Ähnliche Inhalte
Windows Server
gelöst Active Directory CA öffentlich vertrauenswürdig machen, geht das? (2)

Frage von DeathangelCH zum Thema Windows Server ...

Windows Server
gelöst Active Directory File Extension - Associated Program (11)

Frage von adm2015 zum Thema Windows Server ...

Windows 8
gelöst Active Directory Default User.v2 Profile - Windows 8.1 Apps Error (4)

Frage von adm2015 zum Thema Windows 8 ...

Visual Studio
gelöst Remotedienst prüfen mit Visual Basic (1)

Frage von flyingmichael zum Thema Visual Studio ...

Heiß diskutierte Inhalte
Windows Server
Outlook Verbindungsversuch mit Exchange (15)

Frage von xbast1x zum Thema Windows Server ...

Grafikkarten & Monitore
Tonprobleme bei Fernseher mit angeschlossenem Laptop über HDMI (11)

Frage von Y3shix zum Thema Grafikkarten & Monitore ...

Microsoft Office
Keine Updates für Office 2016 (11)

Frage von Motte990 zum Thema Microsoft Office ...