High-Tech Santé Médecine Droit-Finances

Réalisation

vidéo numérique

Rechercher : dans
Par :

Script VBS - Mappage lecteur réseau

Dernière réponse le 19 fév 2009 à 15:43:05 Nicoche, le 22 aoû 2005 à 18:53:32 
 Signaler ce message aux modérateurs

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

Posez votre question Répondre

1

Socom, le 20 jui 2007 à 14:37:58

Set Net = CreateObject("WScript.Network")
Username= Net.UserName

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

Ca peut toujours servir à d'autres ;)

   
Répondre à Socom

3

Jack78, le 10 nov 2008 à 12:23:24

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

   
Répondre à Jack78

4

 Cyrille, le 19 fév 2009 à 15:43:05

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

   
Répondre à Cyrille

2

Lupin.A, le 20 jui 2007 à 17:18:51
  • +2

Bonjour,

en en complément :

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

Lupin

   
Répondre à Lupin.A
Posez votre question Répondre
Ils ont besoin de votre aide