VBS Logon Skript will nicht

Hab heute ein wenig gebastelt und ein relativ einfaches Login Skript erstellt, welches aus dem AD die Organisation ausliest und dann je nach dem die Netzlaufwerke und Drucker verbindet oder nicht.

Jedoch ohne Erfolg. Bin ratlos, an was das liegen könnte.

Code:

'Anmeldescript

'Initialisierung der Zuordnungsmöglichkeit
Set objMapNWDrive = CreateObject("WScript.Network")

'Initialisierung der AD-Suchmöglichkeit, und suche nach Benutzerobjekt
set WshAD = CreateObject("ADSystemInfo")
Set WshADUser = GetObject("LDAP://ganahl.local/" & WshAD.UserName )

'Feststellen der Abteilung und Umwandlung in Grossbuchstaben
UserDepartment = UCase(WshADUser.Department)

'Auch bei Fehler weitermachen
On Error Resume Next

'Standard Zuweisung

objMapNWDrive.RemoveNetworkDrive "S:"
objMapNWDrive.RemoveNetworkDrive "X:"
objMapNWDrive.RemoveNetworkDrive "Y:"

'Zuweisung nur für Buero

if userDepartment = "Buero" then

objMapNWDrive.MapNetworkDrive "x:", "\\192.168.126.230\public\Ganahl Dateien"

end if

Hab jetzt natürlich nur den oberen Teil drin, die anderen Organisationen habe ich heraus gelöscht.

ich denke mal, dass hier der hund vergraben liegt:

Code:

Set WshADUser = GetObject("LDAP://ganahl.local/" & WshAD.UserName )

du willst hier ein bind auf ein ldap-objekt machen, ohne den kompletten CN anzugeben, so geht das nicht

so wärs richtig

Code:

Set WshADUser = GetObject("LDAP://" & WshAD.UserName )

WshAD.UserName liefert dir den kompletten CN des aktuellen users.


und vbscript ist nicht case-sensitive

Funktioniert leider immer noch nicht. Der Pfad ist zu 100% Richtig. Wie gehe ich hier am besten Schritt für Schritt vor, um zu sehen, an welchem Teil des Skripts ein Fehler passiert? Gibt es dafür ein Tool?

Ich möchte das ganze erst einmal so lösen. Danach kann ich mit meinen Ideen ein wenig weiter spielen!

Könnte es an dem Leerzeichen von diesem Ordner liegen?

objMapNWDrive.MapNetworkDrive "x:", "\\192.168.126.230\public\Ganahl Dateien"

Werde es Morgen mal probieren.

Danke