Discussion :

[jt-tronix]

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 :

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

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 :

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
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

[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 :

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

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é)

[pitchalov]

Salut.
En VBS, essaye comme cela :

Code :

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

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