Navngivning af netværksdrev

Hej.
Jeg har flg. kode, der ændrer navnet på et netværksdrev:

 Public objShell
 Public strDrev
 strDrev = "S:"
 Set objShell = CreateObject("Shell.Application")
 objShell.NameSpace(strDrev).Self.Name = "case01"
 MsgBox objShell.NameSpace(strDrev).Self.Name

Koden fungerer fint på Windows XP, men på Windows 7
slår navn-ændringen ikke igennem rent visuelt (netværks-
drevet har stadigvæk det samme navn). Dog kan jeg se
på MsgBox'en at navnet er skiftet.
Jeg har testet koden på flere XP-pc'ere og
Windows7- pc'ere med samme resultat.

Er der nogen, der kan hjælpe?

mvh
Stone888