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, 9104 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 ..
Ähnliche Inhalte
VB for Applications
gelöst Bestimmte Spalten aus CSV-Datei auslesen (VBS) (9)

Frage von Gurkenhobel zum Thema VB for Applications ...

Batch & Shell
Eventlog Druckjobs mit VBS auslesen (4)

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 Wo ist der Fehler in diesem VBS Codeausschnitt? (2)

Frage von gabrixl zum Thema VB for Applications ...

Neue Wissensbeiträge
Batch & Shell

Batch - ein paar Basics die man kennen sollte

Tipp von Pedant zum Thema Batch & Shell ...

Microsoft

Restrictor: Profi-Schutz für jedes Window

(6)

Tipp von AlFalcone zum Thema Microsoft ...

Batch & Shell

Batch zum Zurücksetzen eines lokalen Profils

Tipp von Mr.Error zum Thema Batch & Shell ...

Heiß diskutierte Inhalte
Windows Server
gelöst Benutzer lässt sich nur an einem Clientcomputer anmelden (17)

Frage von Ammann zum Thema Windows Server ...

Vmware
gelöst Wie würdet Ihr eine ESXi Cluster Farm managen? (11)

Frage von AlFalcone zum Thema Vmware ...

Batch & Shell
gelöst Gruppenzugehörigkeit von AD Usern ermitteln - die Perfektion fehlt (11)

Frage von Stefan007 zum Thema Batch & Shell ...