Utilisation API SetVolumeLabel

Version imprimable

29/03/2007, 10h50
mdriesbach

Utilisation API SetVolumeLabel

Bonjour.

J'ai besoin de modifier la chaîne liée à un lecteur réseau par le code.
Sur la MSDN j'ai trouvé l'API SetVolumeLabel, mais ça n'a pas l'air de fonctionner (l'API renvoie 0 et rien n'est modifié) ...

Je la déclare comme ça :

Code:

Private Declare Function SetVolumeLabel Lib "Kernel32.dll" Alias "SetVolumeLabelA" (lpRootPathName As String, ByVal lpVolumeName As String) As Long

Je l'appelle comme ça :

Code:

If SetVolumeLabel("G:\", "Nouveau nom") = 0 Then MsgBox "Erreur"

Je suis sous Windows NT

Une idée ?
29/03/2007, 11h00
OhMonBato

Que veux tu faire exactement ? Changer la lettre associée au lecteur ou changer le nom du disque ?
29/03/2007, 11h05
mdriesbach

Changer le nom du disque car dans celui-ci apparaît le nom du serveur que l'uilisateur ne doit pas voir ...
C'est moi qui réalise la connexion donc la lettre c'est OK.
29/03/2007, 11h34
OhMonBato

A priori cette fonciton n'est pas valable pour un nom de lecteur réseau, si j'en crois ce qui se dit là :

http://www.roth.net/perl/adminmisc/

Il est dit : "$Drive may not be a UNC."
29/03/2007, 11h41
mdriesbach

Il ne s'agit pas d'un chemin UNC mais bien d'une lettre réseau (à savoir G: )
29/03/2007, 11h52
Theocourant

Bonjour,

Sous quelle version de NT travailles-tu ? car a priori cela ne fonctionne que pour NT 3.1 et plus...

Théo
29/03/2007, 12h07
OhMonBato

Citation:

Envoyé par mdriesbach

Il ne s'agit pas d'un chemin UNC mais bien d'une lettre réseau (à savoir G: )

Moi tu sais, ce que j'en dis....
J'ai juste fait l'essai sur ma machine en XP, ca renvoie 0 aussi quand j'essaye avec un lecteur réseau et ça marche très bien sinon, mais si c'est pas ça la raison, tant mieux :)
29/03/2007, 13h31
mdriesbach

Je suis sous NT 4.0, j'ai aussi essayé sous XP, je n'ai pas non plus réussi ...
Je vais essayer de creuser la différence disque réseau / disque local, je vous fais savoir s'il y a du neuf ...
29/03/2007, 15h35
mdriesbach

Mes tests supplémentaires me donnent les résultats suivants :

Sur NT :
1) le nom du disque local C: peut être modifié à la main mais pas par le code
2) le nom d'un disque réseau ne peut être modifié ni à la main, ni par le code

Sur XP :
3) le nom d'un disque réseau peut être modifié à la main mais pas par le code
4) le nom du disque local C: ne peut être modifié ni à la main, ni par le code

En plus des problèmes réseaux / local, il semble y avoir des problèmes de droits d'accès différents ...

Si vous avez des idées, surtout pour le point 3 ...
29/03/2007, 15h43
Theocourant

C'est certain que pour quelle manip que ce soit, il faut avoir les droits administrateur sur le poste pour le faire.

A priori il y a un problème avec NT 4.0 ... : http://support.microsoft.com/kb/156853/fr
29/03/2007, 15h50
OhMonBato

C'est peut ete contourner le problème mais es tu obligé d'aficher quelquepart ce nom de volume dans ton programme ?
Ne peux tu pas afficher autre chose à la place ? Quel controle utilises tu pour afficher ?
29/03/2007, 15h52
Theocourant

Une autre remarque : tu pourrais essayer de récupérer la dernière erreur avec GetLastError comme cela tu pourras avoir plus d'infos ...
29/03/2007, 16h11
OhMonBato

Je crois que c'est 144 le code erreur.

Mais sous XP je PEUX changer le nom de mon disque !
C'est peut être le ByVal qui manque dans ta délcaration de fonction pour que ça marche sous XP

Public Declare Function SetVolumeLabel Lib "kernel32" Alias "SetVolumeLabelA" (ByVal lpRootPathName As String, ByVal lpVolumeName As String) As Long
29/03/2007, 16h21
Theocourant

Citation:

Envoyé par OhMonBato

Je crois que c'est 144 le code erreur.

Mais sous XP je PEUX changer le nom de mon disque !

Je viens de regarder sur MSDN l'explication du code erreur :

Citation:

Envoyé par MSDN

144 The directory is not a subdirectory of the root directory. ERROR_DIR_NOT_ROOT

Alors je me pose une question : ton lecteur G c'est la racine d'un disque physique du poste ou un alias sur un répertoire ???? car si c'est un alias c'est normal que tu aies une erreur.... En fait, la fonction SetVolumeLabel permet de créer un alias, il faut donc lui fournir une adresse physique réelle .

Théo
29/03/2007, 17h22
mdriesbach

En fait c'est un peu compliqué :

Actuellement :
- des documents sont produits par un serveur UNIX et déposés dans un répertoire donné de ce serveur. Ce répertoire a des droits en lecture / écriture.
- le répertoire en question est mappé sur un serveur Windows par un partage NFS.
- les postes utilisateur se connectent sur ce partage sans affecter de lecteur réseau (accès via chemin UNC au sein d'une application VB6 qui contrôle les actions)
=> l'utilisateur ne voit jamais le nom du serveur.

Le besoin : sur le poste client, ces documents doivent être mis à disposition d'un outil Intranet auquel on ne peut pas toucher. Celui-ci accède aux documents par une fenêtre "Ouvrir" Windows standard.
=> besoin d'un lecteur réseau connecté accessible en lecture seule ...

Le développement :
- création d'un nouveau partage en lecture seule sur le serveur windows
- connexion d'un lecteur réseau sur le nouveau partage (la connexion est réalisée à l'ouverture de session par l'exécutable que je dois développer)
=> le lecteur apparaît dans l'explorateur Windows avec un nom du genre : Partage sur 'Serveur' (G: )
Du coup, on veut changer le nom pour ne pas afficher dans l'explorateur le nom du serveur (avec le nom du serveur les utilisateurs pourraient aller chercher le partage en lecture / écriture et se le connecter => plus aucun contrôle possible)

Les postes utilisateurs sont sous XP
Je dois développer sur un poste NT 4 :? mais j'ai un poste de test sous XP
Le serveur windows est un 2000 serveur

Merci de m'avoir lu en entier ...
Si vous avez des idées ...
Je précise que sur le poste de test, je peux changer le nom du lecteur à la main, mais la modification par le code échoue. J'ai également essayé de passer les paramètres ByVal / ByRef mais rien ne semble fonctionner. Je suis un peu perdu ...