Discussion :

[helldieu]

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 :

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ced600]

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

[ced600]

essaye cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim Folder
Set Folder = oShell.NameSpace(lettre)
Folder.parsename(Folder.Title).Name = nom

[helldieu]

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.

[wape]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
lettre = "T:\"
nom = "toto"

oShell.NameSpace(lettre).Self.Name = nom

wape

[ced600]

Je n'avais pas vu, mais ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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