Mapper lecteurs reseau et renommage ?

Bonjour,

J'ai mis en place un script d'ouverture de session en VBScript qui connecte des lecteurs réseau puis les renomme.
Celui-ci fonctionne très bien sous Windows XP mais declenche une erreur sous Windows 2000 :

Citation:

---

Object required: 'oShell.NameSpace(...)'
Code : 800A01A8

---

Après vérification, mes objets 'lettre' et 'nom' existent bien dans l'appel de la fonction. J'ai plutot l'impression que Windows 2000 ne reconnais pas l'application Shell ou que son shell ne dispose pas de la propriété objet NameSpace alors qu'elle est reconnue sous XP... ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

' *******Definition de Fonctions******* Sub ForceMapDrive (lettre, chemin) On Error Resume Next NT.RemoveNetworkDrive lettre NT.MapNetworkDrive lettre, chemin 'Msgbox "Lecteur: " & lettre & " Monte" On Error Goto 0 End Sub   '*******Fonction de renommage des lecteurs reseaux*********** Sub RenNetworkDrive (lettre,nom) 'On Error Resume Next Set oShell = WScript.CreateObject("Shell.Application") oShell.NameSpace(lettre).Self.Name = nom 'MsgBox "Erreur : " & err.number & " | Descrip:" & err.description 'Set oShell = nothing End Sub

---

Citation:

---

NameSpace Method

Method Information

Minimum DLL version: shell32.dll version 4.71 or laterMinimum
operating systems : Windows 2000, Windows NT 4.0 with Internet Explorer 4.0, Windows 98, Windows 95 with Internet Explorer 4.0

---

regarde ici :
http://msdn.microsoft.com/library/de...hell/shell.asp

essaye cela :

Code:

---

1 2 3 4

Dim Folder Set Folder = oShell.NameSpace(lettre) Folder.parsename(Folder.Title).Name = nom

---

Ma version de Shell32.dll est la 5.0.3900.71.05
Mon IE est le v6.0.2800.1106

J'ai testé ta proposition de modif ca ne passe pas non plus j'ai exactement la meme erreur.

Bonjour,

Essaye d'ajouter, si ce n'est pas le cas actuellement, un "\" à la fin de la variable lettre :

Code:

---

1 2 3 4

lettre = "T:\" nom = "toto" oShell.NameSpace(lettre).Self.Name = nom

---

wape

Je n'avais pas vu, mais ça :

Code:

---

Set oShell = WScript.CreateObject("Shell.Application")

---

ça ne marche pas.
Essaye plutôt cela :

Code:

---

1 2	Set oShell = CreateObject("WScript.Shell")

---