logon script til windows 2000

Hej jeg har en W2003 Server som køre AD.

Jeg har fundet et script som skulle rename et netværks drev men det virker ikke i windows 2000

Option Explicit
Dim objNetwork, strDrive, objShell, objUNC
Dim strRemotePath, strDriveLetter, strNewName

' Section to map the network drive
Set objNetwork = CreateObject("WScript.Network")

strDriveLetter = "Z:"
strRemotePath = "\\lansrv\" & objNetwork.UserName
strNewName = "Bruger"

objNetwork.MapNetworkDrive strDriveLetter, strRemotePath

' Section which actually (re)names the Mapped Drive
Set objShell = CreateObject("Shell.Application")
objShell.NameSpace(strDriveLetter).Self.Name = strNewName

Wscript.Echo "Check : "& strDriveLetter & " for " & strNewName
WScript.Quit

nogen der kan sige mig hvorfor? ifølge msdn så burde det virke i windows 2000