Option Explicit
Dim objNetwork
Dim strDriveLetter, strRemotePath, strUser, strPassword, strProfile
strDriveLetter = "M:"
strRemotePath = "\\serveur2\PRP SAS"
strUser = "a$$$$$"
strPassword = ""
strProfile = "false"
Set objNetwork = WScript.CreateObject("WScript.Network" )
objNetwork.MapNetworkDrive strDriveLetter, strRemotePath, strProfile, strUser, strPassword
strDriveLetter = "P:"
strRemotePath = "\\serveur2\Agnès"
strUser = "a$$$$$"
strPassword = ""
strProfile = "false"
Set objNetwork = WScript.CreateObject("WScript.Network" )
objNetwork.MapNetworkDrive strDriveLetter, strRemotePath, strProfile, strUser, strPassword
|