Top-Themen

Aktuelle Themen (A bis Z)

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

Frage Entwicklung Visual Studio

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

Mitglied: Bayano

Bayano (Level 1) - Jetzt verbinden

18.07.2007 um 10:27 Uhr, 3330 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
Anlegen eines Benutzers in der Active Directory durch einen Laien
Frage von akadawaWindows Server2 Kommentare

Tach liebe Community, ich bearbeite z.Z. an meinem Projekt fürn meine Prüfung und mir fehlen ein Paar Infos bzw ...

Visual Studio
Visual Basic für anfänger
gelöst Frage von Daoudi1973Visual Studio12 Kommentare

ich möchte Visual Basic lernen, kann jemand mir Tipps geben. PS: ich habe nur im 1999 mit Fortran 90 ...

VB for Applications
Visual Basic Checkbox drucken?
gelöst Frage von GERz0cKErZVB for Applications10 Kommentare

Hallo, ich habe ein Programm wo man mehrere checkboxen anklicken kann. Der Text der checkboxen soll am Ende gedruckt ...

Visual Studio
Bitcoin-Miner mit Visual Basic ?
Frage von Aicher1998Visual Studio2 Kommentare

Hallo, kennt jemand einen Ansatz, wie ich mit Visual Basic Bitcoins mine? Ich würde auch auf eine Python-DLL zurückgreifen ...

Neue Wissensbeiträge
Tipps & Tricks

Solutio Charly Updater Fehlermeldung: Das Abgleichen der Dateien in -Pfad- mit dem Datenobject ist fehlgeschlagen

Tipp von StefanKittel vor 14 StundenTipps & Tricks

Hallo, hier einmal als Tipp für alle unter Euch die mit der Zahnarztabrechnungssoftware Charly von Solutio zu tun haben. ...

Sicherheit

Meltdown und Spectre: Wir brauchen eine "Abwrackprämie", die die CPU-Hersteller bezahlen

Information von Frank vor 15 StundenSicherheit9 Kommentare

Zum aktuellen Thema Meltdown und Spectre: Ich wünsche mir von den CPU-Herstellern wie Intel, AMD oder ARM eine Art ...

Sicherheit

Meltdown und Spectre: Realitätscheck

Information von Frank vor 15 StundenSicherheit9 Kommentare

Die unangenehme Realität Der Prozessorfehler mit seinen Varianten Meltdown und Spectre ist seit Juni 2017 bekannt. Trotzdem sind immer ...

Sicherheit

Meltdown und Spectre: Die machen uns alle was vor

Information von Frank vor 16 StundenSicherheit12 Kommentare

Aktuell sieht es in den Medien so aus, als hätten die Hersteller wie Intel, Microsoft und Co den aktuellen ...

Heiß diskutierte Inhalte
Windows 10
Netbook erkennt Soundkarte nicht - keinerlei Info zum Hersteller und Modell vom Netbook und Hardware bekannt
Frage von 92943Windows 1031 Kommentare

Guten Tag, meine Schwester reist in einigen Wochen für ein paar Monate ins Ausland und hat sich dafür ein ...

Batch & Shell
Anmeldevorgang für Informatikraum (Schule) unter Windows
gelöst Frage von IngenieursBatch & Shell29 Kommentare

Hey zusammen, ich werde in naher Zukunft den Informatik Raum meiner jetzigen Schule von dem aktuellen Betreiber übernehmen (Vertrag ...

Netzwerkgrundlagen
Welches Modem für VDSL 50000 der T-Com
gelöst Frage von Windows10GegnerNetzwerkgrundlagen21 Kommentare

Hallo, ein Kollege von mir will sich VDSL50000 von der T-Com holen, um daran einen Server zu betreiben. Ich ...

Batch & Shell
AD-Abfrage in Batchdatei und Ergebnis als Variable verarbeiten
gelöst Frage von Winfried-HHBatch & Shell19 Kommentare

Hallo in die Runde! Ich habe eine Ergänzungsfrage zu einem alten Thread von mir. Ausgangslage ist die Batchdatei, die ...