Se connecter à un dossier avec un mots de passe est un id

' MNDArguments.vbs
' VBScript to map a network drive with all 5 arguments.
' Author Guy Thomas [http://computerperformance.co.uk/]
' Version 1.3 - April 24th 2010
' ---------------------------------------------------------'
Option Explicit
Dim objNetwork, objShell
Dim strDriveLetter, strRemotePath, strUser, strPassword, strProfile
Dim bForce, bUpdateProfile

strDriveLetter = "Z:"
strProfile = "false"

bForce = "True"
bUpdateProfile = "True"
err.number = vbempty

strUser=inputBox("Votre identifiant :","Identifiant")
strPassword=inputBox("Votre mot de passe :", "Mot de passe")

' Values of variables set

strRemotePath = "\\172.16.1.1\"& strUser &"\Documents" 

Set objNetwork = CreateObject("WScript.Network")
On Error Resume Next
objNetwork.RemoveNetworkDrive strDriveLetter, _
bforce, bUpdateProfile

Set objNetwork = WScript.CreateObject("WScript.Network")
On Error Resume Next

objNetwork.MapNetworkDrive strDriveLetter, strRemotePath, _
strProfile, strUser, strPassword

If err.number = vbEmpty then
 Set objShell = CreateObject("WScript.Shell")
 objShell.run ("Explorer Z:")
Else Wscript.Echo strRemotePath &" non trouvé..."
End If

WScript.Quit