<- disques info (vbs) Copie de fichiers (vbs) ->

Renommer un disques (VBScript)

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

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

<- disques info (vbs) Copie de fichiers (vbs) ->

Réseaux sociaux

|Plus d'options...

Vous pouvez modifier vos préférences dans votre profil pour ne plus afficher les interactions avec les réseaux sociaux sur ces pages.

Nuage de mots clés

25 mots clés dont 0 définis manuellement (plus d'information...).

Avertissement

Cette page ne possède pas encore de mots clés manuels, ceci est donc un exemple automatique (les niveaux de pertinence sont fictifs, mais les liens sont valables). Pour tester le nuage avec une page qui contient des mots définis manuellement, vous pouvez cliquer ici.

Vous pouvez modifier vos préférences dans votre profil pour ne plus afficher le nuage de mots clés.

Expériences des broliens...

Mercredi 19 Juillet 2006, 08:36 : Renommer un disque réseau

J'avais trouvé ceci sur le net pour renommer des lecteurs réseau:

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

Ca peut toujours servir

- arbath -

Structure du document

Réseaux sociaux
Nuage de mots clés
- Avertissement :
Expériences des broliens...

Astuce pour imprimer les couleurs des cellules de tableaux : http://www.gaudry.be/ast-rf-450.html

tection. Enregistrement IDDN n° 5329-403
Document créé le 11/06/04 04:10, dernière modification le Vendredi 17 Juin 2011, 11:12
Source du document imprimé : http://www.gaudry.be/vbs-renommer-disque.html Document affiché 16 fois ce mois de Février.
St.Gaudry©07.01.02