Script renommer lecteur réseau

Bonjour à tous,

Voilà j'ai un petit bout de code qui me permet de renommer mes lecteurs réseaux

je l execute via logonscript

sur XP nickel Sur 7 une fois sur deux le lecteur n'est pas renommé ...

Avez-vous une idée ?

merci

Code:

---

1 2 3 4 5

Set oShell = CreateObject("Shell.Application" ) sDrive = "X:\" oShell.NameSpace(sDrive).Self.Name = "NOM1" sDrive = "U:\" oShell.NameSpace(sDrive).Self.Name = "NOM2"

---