VBS Script um Netzlaufwerknamen zu ändern

Hallo zusammen,

ich habe folgendes Script ins Loginverfahren implementiert, allerdings zieht das VBS Script nur sporadisch. d.h. mal wird das Laufwerk richtig umbennant und mal nicht. Lokal auf meinem Rechner funktioniert es aber in der Terminalsitzung eben nicht. Hat dazu evtl. jemand eine Idee?

Anbei der Source:

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

For Each oShFolderItem In oShFolder.Items
select case oShFolderItem.Path
case "B:\" oShFolderItem.Name = "xxx1"
case "I:\" oShFolderItem.Name = "xxx2"
case "J:\" oShFolderItem.Name = "xxx3"
case "M:\" oShFolderItem.Name = "xxx4"
case "N:\" oShFolderItem.Name = "xxx5"
case "O:\" oShFolderItem.Name = "xxx6"
case "P:\" oShFolderItem.Name = "xxx7"
case "Q:\" oShFolderItem.Name = "xxx8"
case "R:\" oShFolderItem.Name = "xxx9"
case "S:\" oShFolderItem.Name = "xxx10"
case "T:\" oShFolderItem.Name = "xxx11"
case "U:\" oShFolderItem.Name = "xxx12"
case "V:\" oShFolderItem.Name = "xxx13"
case "W:\" oShFolderItem.Name = "xxx14"
case "X:\" oShFolderItem.Name = "xxx15"

End select
Next

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


Bin für jeden Lösungsansatz dankbar!

Danke Christian