Bonjour,
 
Je souhaite, par le biais d'un VBScript, pouvoir mapper un lecteur pour chaque utilisateur de mon réseau.
Je connais la commande batch :
net use z: \\monserveurdefichiers\%USERNAME%
 
En VBScript, j'arrive à choper le USERNAME (dans une boîte de dialogue) en utilisant :
 
Set objNetwork = wscript.CreateObject("wscript.network" )
MsgBox objNetwork.Username
 
Comment intégrer la variable objNetwork.Username dans mon script de mappage :
 
Dim oNet
Set oNet = CreateObject("Wscript.Network" )
oNet.MapNetworkDrive "Z:", "\\monserveurdefichiers\???????"
WSCript.Quit
 
Merci d'avance
 

J'ai oublié de préciser que je suis total débutant en vbs !!!

Bon après avoir un peu fait le tour de  ce qui se fait, j'ai pondu un script VBS (mon tout 1er ! Je fais un voeu !   ) :
 
strComputer = "."
 
Set objWMIService = GetObject("winmgmts:" & "!\\" & strComputer & "\root\cimv2" )
Set colAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = True" )
Set objNetwork = wscript.CreateObject("wscript.network" )
 
For Each objAdapter in colAdapters
 
IP = LBound(objAdapter.IPAddress)
 
If Mid (objAdapter.IPAddress(IP),8,3) = ".3."  then
CreateObject("WScript.Shell" ).Run "C:\mappage.bat"
end if
 
next
 
Le script mappage.bat lancé sera :
 
net use z: \\monserveurdefichiers\%USERNAME%
 
C'est loin d'être parfait et donc j'imagine perfectible (à vos suggestions !).
 
Voilà voilà voilà

Petite explication tout de même : la finalité du script est de monter un lecteur réseau sur le dossier partagé de l'utilisateur si et seulement si celui-ci est connecté à un sous-réseau précis (il y a des utilisateurs nomades qui peuvent se connecter via des agences reliées par VPN ). Donc je lance un test sur le(s) adresse(s) IP des cartes réseaux et si le résultat est conforme, le script batch de mappage sera lancé...