Renommer un disques (VBScript)

Le script suivant utilise la propriété VolumeName pour modifier le nom du lecteur (disque).

Code VisualBASIC ou VBA ou VBS (script vbs : ChNameDisk) (7 lignes)

Sub ChNameDisk dim objFSO, objDrive
	Set objFSO = CreateObject("Scripting.FileSystemObject")
	Set objDrive = objFSO.Drives ("C")
	objDrive.VolumeName = "SYSTEM" 
	Set objFSO = Nothing 
	Set objDrive = Nothing
End Sub

Version en cache

21/12/2024 17:25:38 Cette version de la page est en cache (à la date du 21/12/2024 17:25:38) afin d'accélérer le traitement. Vous pouvez activer le mode utilisateur dans le menu en haut pour afficher la dernère version de la page.

Document créé le 11/06/2004, dernière modification le 26/10/2018
Source du document imprimé : https://www.gaudry.be/vbs-renommer-disque.html

L'infobrol est un site personnel dont le contenu n'engage que moi. Le texte est mis à disposition sous licence CreativeCommons(BY-NC-SA). Plus d'info sur les conditions d'utilisation et sur l'auteur.

Set WshNetwork = WScript.CreateObject("WScript.Network")
Call MapNetworkDrive("u:", "\\****\*****\" & WshNetwork.UserName, "", "", "Disque UTILISATEUR")
Call MapNetworkDrive("t:", "\\******\****", "", "", "Disque COMMUN")
Call MapNetworkDrive("Z:", "\\****\*****", "", "", "Logiciels & Drivers")
Sub MapNetworkDrive(lettre,chemin,user,password,nom)
Set oDrives = WshNetwork.EnumNetworkDrives
For i = 0 to oDrives.Count - 1 Step 2
If oDrives.Item(i) = lettre Then
WshNetwork.RemoveNetworkDrive lettre, True
End If
Next
If user = "" Then
WshNetwork.MapNetworkDrive lettre, chemin
Else
WshNetwork.MapNetworkDrive lettre, chemin, , user, password
End If
lettre = lettre & "\"
If nom = "" Then
Exit Sub
End If
Set oShell = CreateObject("Shell.Application")
oShell.NameSpace(lettre).Self.Name = nom
Set oShell = nothing
End Sub

Commentaires

19/07/2006 09:36:52 : par arbath J'avais trouvé ceci sur le net pour renommer des lecteurs réseau:

Code VisualBASIC ou VBA ou VBS (26 lignes)

Set WshNetwork = WScript.CreateObject("WScript.Network") 
 
Call MapNetworkDrive("u:", "\\****\*****\" & WshNetwork.UserName, "", "", "Disque UTILISATEUR") 
Call MapNetworkDrive("t:", "\\******\****", "", "", "Disque COMMUN") 
Call MapNetworkDrive("Z:", "\\****\*****", "", "", "Logiciels & Drivers") 
 
Sub MapNetworkDrive(lettre,chemin,user,password,nom) 
	Set oDrives = WshNetwork.EnumNetworkDrives 
	For i = 0 to oDrives.Count - 1 Step 2 
		If oDrives.Item(i) = lettre Then 
			WshNetwork.RemoveNetworkDrive lettre, True 
		End If 
	Next 
	If user = "" Then 
		WshNetwork.MapNetworkDrive lettre, chemin 
	Else 
		WshNetwork.MapNetworkDrive lettre, chemin, , user, password 
	End If 
	lettre = lettre & "\" 
	If nom = "" Then 
		Exit Sub 
	End If 
	Set oShell = CreateObject("Shell.Application") 
	oShell.NameSpace(lettre).Self.Name = nom 
	Set oShell = nothing 
End Sub

Retourner au début du code

Ca peut toujours servir

26/03/2007 16:29:40 : par invité Trop de la balle!
merci beaucoup
je cherchais depuis...... trop longtemps!

27/03/2007 20:21:54 : par arbath de rien :-)
27/03/2007 20:23:11 : par arbath Il y a un message d'un invité, mais ce message ne s'affiche pas
17/05/2009 07:42:26 : par vincm70 Hello,

Pour renommer la lettre d'un periphérique je pense que l'on peut adapter ce coder, mais vu mes connaissance faible en VBS j'y arrive.

Si kelkun peut m'aider, please!