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

Per VBS Organisationseinheit auslesen und entsprechend Netzlaufwerk mappen

Frage Microsoft Windows Netzwerk

Mitglied: bierkoenig

bierkoenig (Level 1) - Jetzt verbinden

11.06.2008, aktualisiert 14:55 Uhr, 8904 Aufrufe, 3 Kommentare

Hallo zusammen,

ich habe folgendes Problem:
Ich möchte unser Login-Skript für sämtliche Standorte vereinheitlichen. An unseren Außenbüros ist jeweils ein File-Server auf dem die Home-Verzeichnisse der User liegen. Nun möchte ich ein Skript erstellen, welches anhand der zugeteilten OU des Users (nicht Gruppenzugehörigkeit!) verschiedene "Home-Server" bereitstellt.
Sprich das Script sollte folgendemassen aussehen:

wenn user in OU= Bremen
homeserver= server1
wenn user in OU= Hamburg
homerserver=server2

mappe Netzlaufwerk u: \\homerserver\users\%username%

Ich habe massiv Probleme an das Objekt OU im AD per vbs ranzukommen. Leider bin ich auch wirklich nicht der VBS-König...... Hat jemand eine Idee oder perfekterweise ein Scripting-Beispiel?

Vielen Dank.

Grüße

der Bierkoenig
Mitglied: Logan000
11.06.2008 um 13:39 Uhr
Hi
Ich hab bei mir folgenden Code Fetzen gefunden:
01.
Set objOU = GetObject("LDAP://OU=Hamburg,dc=MyDomain,dc=de") 
02.
Set objUserProperties = GetObject("LDAP://MYDC/schema/container") 
03.
objOU.Filter = Array("person") 
04.
For Each objUser in objOU 
05.
	Dim text 
06.
   For Each strAttribute in objUserProperties.MandatoryProperties 
07.
		strValues = objUser.GetEx(strAttribute) 
08.
		For Each strItem in strValues 
09.
			text = text & " " & strAttribute & " -- " & strItem & Chr(13) & chr(10) 
10.
		Next 
11.
	Next 
12.
	msgbox text 
13.
	text = "" 
14.
Next
Ich hoffe das hilft dir weiter.
Bitte warten ..
Mitglied: bastla
11.06.2008 um 14:08 Uhr
... ansonsten etwa (ungetestet):
01.
UserPath = CreateObject("ADSystemInfo").UserName 
02.
OUList = Array("Bremen","Hamburg","...") 
03.
SrvList = Array("server1","server2","...") 
04.
Server = "" 
05.
For i = 0 To UBound(OUList) 
06.
    If InStr(1, UserPath, "OU=" & OUList(i), vbTextCompare) Then 
07.
        Server = SrvList(i) 
08.
        Exit For 
09.
    End If 
10.
Next 
11.
If Server <> "" Then ...
Die "OUList" und die "SrvList" müssen die gleiche Anzahl an (einander zugeordneten) Einträgen enthalten.

Grüße
bastla
Bitte warten ..
Mitglied: bierkoenig
11.06.2008 um 14:55 Uhr
Hi Bastla,

das Script funktioniert 1a! Vielen Dank für deinen Einsatz! Hast mir soeben das Leben sehr vereinfacht und und den baldigen Feierabend versüßt

Grüße

Bierkoenig
Bitte warten ..
Neuester Wissensbeitrag
CPU, RAM, Mainboards

Angetestet: PC Engines APU 3a2 im Rack-Gehäuse

(1)

Erfahrungsbericht von ashnod zum Thema CPU, RAM, Mainboards ...

Ähnliche Inhalte
Batch & Shell
Eventlog Druckjobs mit VBS auslesen (2)

Frage von joni2000de zum Thema Batch & Shell ...

Entwicklung
Zählerstände über SNMP und VBS auslesen (4)

Frage von motofuzy zum Thema Entwicklung ...

VB for Applications
gelöst VB Netzlaufwerk trennen und mappen klappt nicht so richtig (21)

Frage von Dr.Cornwallis zum Thema VB for Applications ...

Heiß diskutierte Inhalte
Switche und Hubs
Trunk für 2xCisco Switch. Wo liegt der Fehler? (13)

Frage von JayyyH zum Thema Switche und Hubs ...

DSL, VDSL
DSL-Signal bewerten (13)

Frage von SarekHL zum Thema DSL, VDSL ...

Backup
Clients als Server missbrauchen? (9)

Frage von 1410640014 zum Thema Backup ...

Windows Server
Mailserver auf Windows Server 2012 (9)

Frage von StefanT81 zum Thema Windows Server ...