Script VBS - Mappage lecteur réseau
Nicoche
-
Cyrille -
Cyrille -
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
A voir également:
- Script mappage lecteur avec authentification
- Script vidéo youtube - Guide
- Lecteur windows media - Télécharger - Lecture
- Double authentification google - Guide
- Lecteur pptx - Télécharger - Présentation
- Lecteur xml - Télécharger - Édition & Programmation
2 réponses
Bonjour,
en en complément :
objReseau.MapNetworkDrive "U:", NomRepertoire, True, username, MotDePasse
Lupin
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 ;)
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
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
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
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