Label Disque Réseau

Version imprimable

Label Disque Réseau

Bonjour,
disposant de plusieurs pc à la maison, j'ai décidé pour centraliser les documents, et le multimédia de tout stocker sur un serveur Debian / Samba.
Ainsi, à chaque connexion d'un utilisateur sur n'importe quel pc, un script s'exécute, connectant divers lecteur réseaux au serveur Samba.

Ce script fonctionne :
Code:

1 2 3 4 5 6 7 Set WSHNetwork = WScript.CreateObject("WScript.Network" ) on error resume next WSHNetwork.MapNetworkDrive "M:", "\\192.168.0.5\hdc1\medias", -1, "jeremyt", "****" WSHNetwork.MapNetworkDrive "P:", "\\192.168.0.5\hdc1\programs", -1, "jeremyt", "****" WSHNetwork.MapNetworkDrive "T:", "\\192.168.0.5\hdc1\datas", -1, "jeremyt", "****" WSHNetwork.MapNetworkDrive "U:", "\\192.168.0.5\hdc1\datas\Jeremy", -1, "jeremyt", "****"
Au début, je le faisant en DOS (.bat), mais je me suis dit pourquoi ne pas essayer en VBS.
Voici le code DOS :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 @echo off if exist "M:\" net use /delete m: /y if exist "P:\" net use /delete p: /y if exist "T:\" net use /delete t: /y if exist "U:\" net use /delete u: /y @echo off if not exist "M:\" net use M: \\192.168.0.5\hdc1\medias **** /user:jeremyt if not exist "P:\" net use P: \\192.168.0.5\hdc1\programs **** /user:jeremyt if not exist "T:\" net use T: \\192.168.0.5\hdc1\datas **** /user:jeremyt if not exist "U:\" net use U: \\192.168.0.5\hdc1\datas\Jeremy **** /user:jeremyt @echo off label /Mp M: Multimédia label /Mp P: Programmes label /Mp T: Documents des Utilisateurs label /Mp U: Mes Documents
Seulement, la troisième partie de ce code DOS, sensé renommer ces disque réseau ne fonctionne pas. J'obtients une erreur de droit.

Donc si vous pouviez m'aider à corriger ce code DOS, ou à completer le code VBS, afin de renommer ces disques dur réseau.

(En passant, les droits ne sont pas un soucis, puisque si dans poste de travail, on fait bouton de droite, renommer, sa marche.)

Merci

20/05/2011, 10h06
ffs69

Bonjour,

Je relance le sujet sans réponse, avez-vous trouvé une solution pour renommer les lecteurs réseaux du poste de travail dans le login.bat ?

Code:

label /Mp M: Multimédia

Ne fonctionne pas chez moi non plus.

Merci :o)

(peut-être que la catégorie VBA ne convient plus, je ne sais s'il faudrait changer pour le post entier sachant que mon problème fait partie intégrante du cas énoncé)

Salut.
En VBS, essaye comme cela :
Code:

1 2 3 4 5 6 Set WSHNetwork = WScript.CreateObject("WScript.Network" ) Set WSHShell = CreateObject("Shell.Application") WSHNetwork.MapNetworkDrive "M:", "\\192.168.0.5\hdc1\medias", -1, "jeremyt", "****" WSHShell.NameSpace("M:").Self.Name = "Multimédia"
Attention, le label affecté à une lettre réseau est placé en base de registre et restera la même quelque soit le partage que tu mappes...
Un renommage de label comme ci-dessus doit donc être réalisé à chaque fois qu'un nouveau lecteur réseau sera affecté à une lettre donnée.

Bonne continuation