Dim Lecteur
Dim Serveur
Dim Partage
Dim WshNetwork

Set Args = WScript.Arguments
NbrArgs = Args.Length

If (NbrArgs <> 3) Then
MsgBox " La syntaxe est : map.vbe <Lecteur> <Serveur> <Partage>" & vbCrLf & "" & vbCrLf & "Exemple : map.vbe I: MonServ MonPart",vbCritical + vbOkOnly + vbApplicationModal + 0,"Rectorat de Créteil"
Else
Lecteur=Args(0)
Serveur=Args(1)
Partage=Args(2)

Set WshNetwork = WScript.CreateObject("WScript.Network")
WshNetwork.MapNetworkDrive Lecteur, "\\"&Serveur&"\"&Partage, False , "login" , "password"
End If