Logonscript med drev?

Hey er det muligt at lave et script der hedder sådan her?


On error resume next

Set wshNetwork = CreateObject("WScript.Network")

wshNetwork.MapNetworkDrive "X:", "\\pdcserver\%Groupname%"
wshNetwork.MapNetworkDrive "Q:", "\\pdcserver\%Username%"

Set wshNetwork = Nothing

Set oShell = CreateObject("Shell.Application")
Set oShFolder = oShell.Namespace(17)

For Each oShFolderItem In oShFolder.Items
  Select Case oShFolderItem.Path
    Case "X:\"
      oShFolderItem.Name = "Fælles drev"
    Case "Q:\"
      oShFolderItem.Name = "Orfeus"
  End Select
Next

Set oShell = Nothing
Set oShFolder = Nothing
Set oShFolderItem = Nothing