VBS: Logon-Skript läuft nicht sauber....

Bob Byte · 07.04.2006

Hallo,

ich soll ein kleines Logon-Skript für meinen Chef schreiben in VBScript. Da ich unglücklicherweise davon keine Ahnung habe, habe ich mir dann was zusammengestrickt. Das Skript soll folgendes tun: überprüfen in welcher AD-Gruppe der Benutzer ist der sich anmelden will und ihm dann bestimmte Laufwerke verbinden bzw. diese vorher trennen.

( Ich habe das Script etwas gekürzt das das Verfahren für die anderen Gruppen identisch ist )

Code:

Set WshNetwork = WScript.CreateObject("WScript.Network")              'Bereitstellen der notwendigen Netzwerk- Bibliothek
Set wshShell = WScript.CreateObject("Wscript.Shell")   'Bereitstellen der Kommandozeile
dsRoot = "WinNT://sgluehe/" & WshNetwork.UserName           'Pfad zur Domäne
Set dsObj = GetObject(dsRoot)

On Error Resume Next		 'Übergabe des Domänenpfades an die Variable dsObj

For Each Prop In dsObj.groups
	WScript.echo Prop.Name 	                                'Ausgabe der Gruppennamen

If Prop.Name = "SGL_EDV" Then
	WshNetwork.RemoveNetworkDrive "F:"
        WshNetwork.MapNetworkDrive "F:", "\\2003srv1\Amt_fuer_Finanzen"
	WshNetwork.RemoveNetworkDrive "g:"
        WshNetwork.MapNetworkDrive "g:", "\\2003srv1\ratsinfo"
	WshNetwork.RemoveNetworkDrive "h:"
        WshNetwork.MapNetworkDrive "h:", "\\2003srv1\aemter"
	WshNetwork.RemoveNetworkDrive "i:"
        WshNetwork.MapNetworkDrive "i:", "\\2003srv1\standesamt"
        WshNetwork.RemoveNetworkDrive "j:"
        WshNetwork.MapNetworkDrive "j:", "\\2003srv2\Cipkom"
	WshNetwork.RemoveNetworkDrive "l:"
        WshNetwork.MapNetworkDrive "l:", "\\2003srv1\Sozialamt"
	WshNetwork.RemoveNetworkDrive "m:"
        WshNetwork.MapNetworkDrive "m:", "\\2003srv1\varial"
	WshNetwork.RemoveNetworkDrive "o:"
        WshNetwork.MapNetworkDrive "o:", "\\2003srv1\hsh"
	WshNetwork.RemoveNetworkDrive "q:"
        WshNetwork.MapNetworkDrive "q:", "\\2003srv1\ip_gewerbe"
        WshNetwork.RemoveNetworkDrive "r:"
        WshNetwork.MapNetworkDrive "r:", "\\2003srv1\ALLE"
        WshNetwork.RemoveNetworkDrive "s:"
        WshNetwork.MapNetworkDrive "s:", "\\2003srv1\Wahlen"
        WshNetwork.RemoveNetworkDrive "t:"
        WshNetwork.MapNetworkDrive "t:", "\\2003srv1\bauamt"
	WshNetwork.RemoveNetworkDrive "u:"
        WshNetwork.MapNetworkDrive "u:", "\\2003srv1\buergerbuero"
        WshNetwork.RemoveNetworkDrive "x:"
        WshNetwork.MapNetworkDrive "x:", "\\2003srv1\wohngeld"
        WshNetwork.RemoveNetworkDrive "y:"
        WshNetwork.MapNetworkDrive "y:", "\\2003srv1\rundfunk"
	WshNetwork.RemoveNetworkDrive "z:"
	WshNetwork.MapNetworkDrive "z:", "\\2003srv1\David"
		End If
	Next

Das Skript funktioniert auch soweit so gut, aber... es verbindet mir nicht alle Laufwerke. So werden L,M,Q und Y nicht verbunden. Ich habe keine Ahnung warum. Die Pfade sind richtig.

Als Fehlermeldung bekomme ich:

Skript: \2003srv1\Netlogon\grpFreigabefinal.vbs
Zeile 113 ( Das ist das Laufwerk S )
Zeichen: 9
Fehler: Das Objekt unterstützt die Eigenschaft oder Methode nicht 'WshNetwork.Map'
Code: 800A01B6
Quelle: Laufzeitfehler in Microsoft VBScript

Unter der Codebezeichnung finde ich nichts gescheites, was mir weiterhelfen würde.

Habt ihr ne Idee wo der Fehler liegt

Gruß BB

VBS: Logon-Skript läuft nicht sauber....

Bob Byte

Admiral Special

Ähnliche Themen