VBS Logon-Script für die Nutzer einrichten

Hallo Forum,

ich habe mir aus einer Vorlage hier im Forum ein VSB-Script gebastelt, um meine Netzlauferke bei Anmeldung zu mappen. Bisher lief das über Batch und die Zordnung des Logon-Scripts über das AD-Benutzerprofil, was auch gut funktioniert hat.

Jetzt habe ich das gleiche mit dem VBS Script versucht. Das Script im Netlogon-Ordner abgelegt. Im AD-Benutzer als logon (ohne Pfad und Endung VBS) den Namen des Scripts hinterlegt. Das Script wird aber nicht ausgeführt und auch die Netzlaufwerke dementsprechend nicht gemappt. das Script an sich funktioniert aber, wenn ich es nach der Anmeldung manuell ausführe.

Kann mir jemand sagen, warum das nicht funktiniert, was ich da falsch mache. Jetzt werdet Ihr vielleicht sagen, mach es über GPO, aber zum einen ist es mir so lieber und zum anderen würde ich gerne wissen, warum es auf dem Weg nicht funktioniert.

Läuft dass mit VBS-Logon Scripten anders als mit einer Batch beim Mappen der Laufwerke bei der Benutzeranmeldung?

Danke schonmal für Hinweise
Rababar

 
 -------------------------------------------------------'  
' MapDrives.vbs  
' by fritzo@stop1984.org in 12/2010  
' VBScript to map multiple network drives  
' enhancement of namedrive.vbs by Guy Thomas and Barry Maybury  
' -------------------------------------------------------'  
Option Explicit
Dim objNetwork, objShell, objFile
Dim drv, drvpath, drvname

Set objNetwork = CreateObject("WScript.Network")  
Set objShell = CreateObject("Shell.Application")  
Set objFile = CreateObject("Scripting.FileSystemObject")	  

MapDrive "X:", "\\fileserver\Daten1", "Daten1"  
MapDrive "Y:", "\\fileserver\Daten2", "Daten2"  
MapDrive "Z:", "\\fileserver\Daten3", "Daten3"  

Set objNetwork = Nothing
Set objShell = Nothing
Set objFile = Nothing
Wscript.Quit

Sub MapDrive (drv, drvpath, drvname)
	If objFile.DriveExists(drv) Then
		WScript.Echo "Drive already exists"  
		Exit Sub
	Else
		objNetwork.MapNetworkDrive drv, drvpath
		objShell.NameSpace(drv).Self.Name = drvname
	End If
End Sub

If exist %temp%\loginscript.vbs del /s /q %temp%\loginscript.vbs
Copy %logonserver%\netlogon\loginscript.vbs %temp

Cscript.exe %temp%\loginscript.vbs

  msgbox "Script Start"  

>   msgbox "Script Start"  
> 

Sub MapDrive (drv, drvpath, drvname)
  On Error Resume Next
  If objFile.DriveExists(drv) Then
    WScript.Echo "Drive already exists"  
    Exit Sub
  Else
    Err.Clear
    objNetwork.MapNetworkDrive drv, drvpath
    If Err.Number = 0 then
      objShell.NameSpace(drv).Self.Name = drvname
    else
      'ignorieren oder MessageBox oder sonstwas  
    end if
  End If
End Sub