Per VBS Organisationseinheit auslesen und entsprechend Netzlaufwerk mappen

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

Set objOU = GetObject("LDAP://OU=Hamburg,dc=MyDomain,dc=de")  
Set objUserProperties = GetObject("LDAP://MYDC/schema/container")  
objOU.Filter = Array("person")  
For Each objUser in objOU
	Dim text
   For Each strAttribute in objUserProperties.MandatoryProperties
		strValues = objUser.GetEx(strAttribute)
		For Each strItem in strValues
			text = text & " " & strAttribute & " -- " & strItem & Chr(13) & chr(10)  
		Next
	Next
	msgbox text
	text = ""  
Next

UserPath = CreateObject("ADSystemInfo").UserName  
OUList = Array("Bremen","Hamburg","...")  
SrvList = Array("server1","server2","...")  
Server = ""  
For i = 0 To UBound(OUList)
    If InStr(1, UserPath, "OU=" & OUList(i), vbTextCompare) Then  
        Server = SrvList(i)
        Exit For
    End If
Next
If Server <> "" Then ...