Les Allergies
Alimentaires
Posez votre question Signaler

Script VBS - Mappage lecteur réseau

Nicoche - Dernière réponse le 19 févr. 2009 à 15:43
Bonjour,

J'ai un script VBS (très simple) qui me permet de mapper un lecteur réseau. Le voici :

Dim oNet
Set oNet = CreateObject("Wscript.Network")
oNet.MapNetworkDrive "J:", "\\monserveur\monrepertoire"
WSCript.Quit

Pourriez vous me dire comment je peux faire pour mettre une variable de type %USERNAME% sous DOS.
Je m'explique : Je souhaiterai mapper un répertoire HOME grâce au nom d'utilisateur qui s'est connecté.

Je ne m'y connais pas bp en VBS ...

Merci de votre aide

Nicoche Aliagoche
Schtar Académoche
Lire la suite 

Script VBS - Mappage lecteur réseau »

4 réponses
Réponse
+4
moins plus
Bonjour,

en en complément :

objReseau.MapNetworkDrive "U:", NomRepertoire, True, username, MotDePasse

Lupin
Ajouter un commentaire
Réponse
+1
moins plus
Set Net = CreateObject("WScript.Network")
Username= Net.UserName

Set objNetwork = CreateObject("WScript.Network")
objNetwork.MapNetworkDrive "U:", "\\<server>\" + Username

Ca peut toujours servir à d'autres ;)
Jack78 - 10 nov. 2008 à 12:23
Pourquoi créer un deuxième objet en mémoire ? Il vaut lieux économiser les ressources :

Set wshNetwork = CreateObject("WScript.Network")

With wshNetwork ' permet d'utiliser les classes de l'objet
Set oDrives = .EnumNetworkDrives
Set oPrinters = .EnumPrinterConnections
Username = .UserName
.MapNetworkDrive "U:", "\\<server>\" + Username
End With

' ne pas oublier de libérer l'instance de l'objet en mémoire
Set wshNetwork = Nothing
Cyrille - 19 févr. 2009 à 15:43
Pourquoi créer un deuxième objet en mémoire ? Il vaut lieux économiser les ressources :

Set wshNetwork = CreateObject("WScript.Network")

With wshNetwork ' permet d'utiliser les classes de l'objet
Set oDrives = .EnumNetworkDrives
Set oPrinters = .EnumPrinterConnections
Username = .UserName
.MapNetworkDrive "U:", "\\<server>\" + Username
End With

' ne pas oublier de libérer l'instance de l'objet en mémoire
Set wshNetwork = Nothing

Economise plutot comme ça, ça suffit :

Set wshNetwork = CreateObject("WScript.Network")

With wshNetwork
.MapNetworkDrive "U:", "\\<server>\" & .Username
End with
Ajouter un commentaire
Ce document intitulé « Script VBS - Mappage lecteur réseau » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Dossier à la une
Passage au tout numérique : quel coût pour les particuliers ?