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

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, 3340 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
Humor (lol)
IoT-Gefahr: Smartes Aquarium leckt!
Information von Lochkartenstanzer vor 3 TagenHumor (lol)3 Kommentare

Moin, Die IoT-Manie hat weitere Opfer gefunden. Ein Casino-Leck durch ein smartes Aquarium: Allerdings haben sie kein Wasser, sondern ...

Router & Routing

Alte Fritzbox 7270 mit VPN und SIP-Telefonie hinter O2 Homebox 6641 als "Modem"

Erfahrungsbericht von the-buccaneer vor 3 TagenRouter & Routing3 Kommentare

Nun war es soweit: Auch O2 hat mich mit VOIP zwangsbeglückt. Heute am Privatanschluss, in 2 Wochen ist das ...

Sicherheit

Ungepatchte Remote Code Execution-Lücke in LG NAS

Information von kgborn vor 3 TagenSicherheit

Nutzt wer LG NAS-Einheiten? In den NAS-Einheiten der LG Network Storage-Einheiten gibt es eine sehr unschöne Schwachstelle, die einen ...

Windows Update

Neue Version KB4099950 NIC Einstellungen gehen verloren

Information von sabines vor 4 TagenWindows Update2 Kommentare

Es ist eine neue Version des KB4099950 verfügbar, die das Problem mit den verlorenen Netzwerkeinstellungen lösen soll. Das Datum ...

Heiß diskutierte Inhalte
Netzwerkmanagement
Netzwerkmanagment im Haus mit Switch, Panel und pfsense
gelöst Frage von CorraggiounoNetzwerkmanagement20 Kommentare

hi zusammen, wir sind gerade dabei das ganze Haus bzw. die einzelnen Zimmer mit netzwerkdosen zu versorgen. Vom Keller ...

Linux
Linux Server oder Windows Server - lohnt eine Umstellung auf Linux und ebenso basierende SW bei einer langfristigen Planung?
Frage von motus5Linux19 Kommentare

Wir brauchen bei uns einen neuen Server. Dieser wird als Fileserver, Domäne Controller sowie Exchange Server verwendet. Wir versuchen ...

Netzwerkgrundlagen
VLAN - Offene Fragen
Frage von KnettenbrechNetzwerkgrundlagen17 Kommentare

Hallo zusammen, ich befasse mich derzeit mit dem Thema VLAN. Hierzu habe ich schon einige Guides gelesen, einschließlich des ...

Router & Routing
VPN hinter zweiter Fritzbox nutzen im Nachbarhaus
gelöst Frage von georg2204Router & Routing11 Kommentare

Hallo zusammen, ich blicke hier leider nicht mehr so ganz durch. In Haus 1 steht eine Fritzbox 7390, diese ...