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
Lupin.A 972Messages postés 15 mars 2006Date d'inscription 20 juil. 2007 à 17:18
Bonjour,

en en complément :

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

Lupin

 Ajouter un commentaire
Ajouter un commentaire
Réponse
+1
moins plus
Socom 20 juil. 2007 à 14:37
Set Net = CreateObject("WScript.Network")
Username= Net.UserName

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

Ca peut toujours servir à d'autres ;)

 Ajouter un commentaire
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
Posez votre question
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 ?