Script VBS - Mappage lecteur réseau
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
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
2 réponses
-
Bonjour,
en en complément :
objReseau.MapNetworkDrive "U:", NomRepertoire, True, username, MotDePasse
Lupin -
Set Net = CreateObject("WScript.Network")
Username= Net.UserName
Set objNetwork = CreateObject("WScript.Network")
objNetwork.MapNetworkDrive "U:", "\\<server>\" + Username
Ca peut toujours servir à d'autres ;)-
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 -
@Jack78Pourquoi 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
-
