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
GELÖST

Benutzer via VB-Script anlegen

Frage Entwicklung VB for Applications

Mitglied: whatzzup

whatzzup (Level 1) - Jetzt verbinden

07.03.2013, aktualisiert 10:15 Uhr, 1654 Aufrufe, 9 Kommentare

Hallo Zusammen,

ich habe ein VB-Script zum anlegen von Benutzer in einer AD. Jetzt wollte ich noch die Möglichkeit einbauen, nach anlegen des Benutzer, auswählen zu können in welche OU dieser verschoben werden soll.

01.
strOU = InputBox("in welche OU soll der Nutzer " & Trim(details(0)) & " angelegt werden?") 
02.
 
03.
  Set objOU = GetObject("LDAP://cn=Users,dc=schulnetz,dc=local") 
04.
  objOU.MoveHere _ 
05.
        "LDAP://ou=" & strOU & ",ou=Schule,dc=schulnetz,dc=local",vbNullString 
06.
 
Mein Problem ist jetzt nun das ich die Fehlermeldung bekomme "Zugriff verweigert" mit der Zeilenangabe 74 (objOU.MoveHere _ ...). Ich bin als Admin auf dem DC (in einer VM).

Ich danke schon mal im Voraus für jede Hilfe.

Gruß

Mitglied: B4DschK4Pp
07.03.2013 um 10:47 Uhr
Hi,

01.
strOU = InputBox("in welche OU soll der Nutzer " & Trim(details(0)) & " angelegt werden?") 
02.
 
03.
  Set objOU = GetObject("LDAP://cn=Users,dc=schulnetz,dc=local") 
04.
  objOU.MoveHere("LDAP://ou=" & strOU & ",ou=Schule,dc=schulnetz,dc=local",vbNullString)
Geht das?

Gruß
B4DschK4Pp
Bitte warten ..
Mitglied: whatzzup
07.03.2013 um 11:03 Uhr
Ne dann kommt "Beim Aufrufen einer Unterroutine (Sub) dürfen keine Klammern verwendet werden"
Bitte warten ..
Mitglied: B4DschK4Pp
07.03.2013 um 13:37 Uhr
Puh, ok. Also hier:
Habe eine Funktion gebaut, die du noch einbauen kannst.

01.
Sub moveToOU(OUName, Username) 
02.
 On Error Resume Next 
03.
 
04.
 Const ADS_SCOPE_SUBTREE = 2 
05.
 
06.
 Set objOU = GetObject("LDAP://OU=" & OUName & ",OU=Schule,dc=schulnetz,dc=local") 
07.
 
08.
 Set objConnection = CreateObject("ADODB.Connection") 
09.
 Set objCommand =   CreateObject("ADODB.Command") 
10.
 objConnection.Provider = "ADsDSOObject" 
11.
 objConnection.Open "Active Directory Provider" 
12.
 Set objCommand.ActiveConnection = objConnection 
13.
 
14.
 objCommand.Properties("Page Size") = 1000 
15.
 objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE 
16.
 
17.
 objCommand.CommandText = _ 
18.
     "SELECT ADsPath FROM 'LDAP://dc=schulnetz,dc=local' WHERE objectCategory='user' " & _ 
19.
         "AND Name='" & Username & "'" 
20.
 Set objRecordSet = objCommand.Execute 
21.
 
22.
 objRecordSet.MoveFirst 
23.
 
24.
 Do Until objRecordSet.EOF 
25.
     strADsPath = objRecordSet.Fields("ADsPath").Value 
26.
     objOU.MoveHere strADsPath, vbNullString 
27.
     objRecordSet.MoveNext 
28.
 Loop 
29.
End Sub
Der Funktion musst du also nur noch die ZielOU mitgeben, sowie den User, der verschoben werden soll.
Also meinetwegen:
01.
strOU = InputBox("in welche OU soll der Nutzer " & Trim(details(0)) & " angelegt werden?")  
02.
moveToOU strOU, Trim(Details(0))
Gruß
B4DschK4Pp
Bitte warten ..
Mitglied: whatzzup
07.03.2013, aktualisiert um 14:41 Uhr
Wow danke erstmal das du dir die Zeit genommen hast. Ich bekomme nur die Fehlermelung für ein Syntaxfehler bei " Sub moveToOU(OUName, Username)
Bitte warten ..
Mitglied: B4DschK4Pp
07.03.2013 um 15:03 Uhr
Kann ich nicht nachvollziehen. Es funktioniert einwandfrei bei mir.
Bitte warten ..
Mitglied: whatzzup
07.03.2013 um 15:26 Uhr
ich verstehe gerade auch nicht wieso es nicht klappt denn jetzt funktioniert meine alte Subfunktion auch nicht. Die hatte die Konten zu Gruppen hinzugefügt
Bitte warten ..
Mitglied: whatzzup
07.03.2013 um 15:32 Uhr
ääähm ich habe gerade eine Kopie des funktionierenden Scripts gemacht und dein Code eingefügt jetzt funktioniert es ...

wieder mal vielen vielen dank
Bitte warten ..
Mitglied: B4DschK4Pp
07.03.2013 um 15:50 Uhr
Als gelöst markieren nicht vergessen ;)
Bitte warten ..
Mitglied: whatzzup
07.03.2013 um 15:56 Uhr
Jop die nächste Frage wird aber wahrscheinlich nicht lang auf sich warten lassen
Bitte warten ..
Ähnliche Inhalte
VB for Applications
VB-Script in VB-Script starten und Parameter übergeben
gelöst Frage von denkisVB for Applications7 Kommentare

Hallo liebe Scriptgemeinde, ich muss mehrere Rechner für den Übergang in eine neue Domäne vorbereiten. Dafür sind drei wesentliche ...

Batch & Shell
Probleme bei der Ausführung eines VB-Scriptes
Frage von AuricGoldfingerBatch & Shell1 Kommentar

Hallo zusammen, ich habe folgendes Script geschrieben: Leider bekomme ich bei der Ausführung den Fehler Was mache ich falsch?? ...

Windows Server
Drucker entfernen in VB-Script
gelöst Frage von NilsvLehnWindows Server2 Kommentare

Hallo ich habe eine kleine Frage bzgl. unseres Anmeldeskriptes. Ich habe ein IT-netzwerk an einer Uni übernommen. Ich arbeite ...

Entwicklung
VB Script Drucker hinzufügen
Frage von Marcel1989Entwicklung3 Kommentare

Funktionsweise sollte definitiv sein das mit einem Script sich 2 verschiedene Betriebssysteme ein und denselben Drucker holen. Mein Script ...

Neue Wissensbeiträge
Apple

IOS 11.2.1 stopft HomeKit-Remote-Lücke

Tipp von BassFishFox vor 4 StundenApple

Das Update für iPhone, iPad und Apple TV soll die Fernsteuerung von Smart-Home-Geräten wieder in vollem Umfang ermöglichen. Apple ...

Windows 10

Windows 10 v1709 EN murkst bei den Regionseinstellungen

Tipp von DerWoWusste vor 9 StundenWindows 10

Dieser kurze Tipp richtet sich an den kleinen Personenkreis, der Win10 v1709 EN-US frisch installiert und dabei die englische ...

Webbrowser

Kein Ton bei Firefox Quantum über RDP

Tipp von Moddry vor 10 StundenWebbrowser

Hallo Kollegen! Hatte das Problem, dass der neue Firefox bei mir auf der Kiste keinen Ton hat, wenn ich ...

Internet

EU-DSGVO: WHOIS soll weniger Informationen liefern

Information von sabines vor 22 StundenInternet4 Kommentare

Wegen der europäische Datenschutzgrundverordnung stehen die Prozesse um die Registrierung von Domains auf dem Prüfstand. Sollte die Forderungen umgesetzt ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
Von rj11 auf rj45
Frage von jensgebkenLAN, WAN, Wireless19 Kommentare

Hallo Gemeinschaft, könnt ihr mir vielleicht bei der anfertigung eines Kabels helfen - habe ein rj 11 stecker und ...

Netzwerkmanagement
Firefox Profieles im Roaming
gelöst Frage von Hendrik2586Netzwerkmanagement17 Kommentare

Hallo liebe Leute. :) Ich hab da ein kleines Problem, welches anscheinend nicht unbekannt ist. Wir nutzen hier in ...

LAN, WAN, Wireless
Häufig Probleme beim Anmelden in WLAN
Frage von mabue88LAN, WAN, Wireless15 Kommentare

Hallo zusammen, in einem Netzwerk gibt es relativ häufig (1-2 mal pro Woche) Probleme mit der WLAN-Verbindung. Zunächst mal ...

Windows Server
Remotesteuerung der Sitzung (Kennung XX) fehlgeschlagen
gelöst Frage von Stefan91Windows Server14 Kommentare

Hallo Zusammen, seit kurzem bekomme ich oben genannte Fehlermeldung, wenn ich versuche eine Remotesitzung über den Taskmanager fernzusteuern (Rechtsklick ...