Bonjour Vinker,
Je suis nouveau sur le forum c'est pourquoi je ne te répond que maintenant.
J'utilise cette fonction pour maper un disque réseau depuis pas mal de temps et j'en suis satisfait.
Il y a quatre parametres à passer lors de l'appel:
DriveMap: la lettre du lecteur (exemple X:\)
Path: Chemin du répertoire qui t'interesse sur le lecteur que tu map
user: le login de connection
password: le mot de passe
Function MapDisk(ByVal DriveMap As Object, ByVal Path As Object, ByVal user As String, ByVal password As String)
'Déclaration des objets
Dim objNet As Object
Try
'Instanciation des objets
objNet = CreateObject("Wscript.Network" )
'Vérifie si le lecteur ("H:" par exemple) existe
Dim cdrive = My.Computer.FileSystem.GetDriveInfo(DriveMap)
If Not cdrive.isready Then
'il n'existe pas on le mappe
objNet.MapNetworkDrive(DriveMap, Path, "false", user, password)
'objNet.MapNetworkDrive(lettre,chemin de type "\\10.0.2.44\Partage",reconnection au démarrage du pc,utilisateur,mot de passe)
'Il n'est pas obligatoire d'indiquer l'utilisateur et le mot de passe selon les droits du disque à monter
Else
'il existe alors on le démappe et on le remappe (si c'est le même lecteur permet de réactiver le disque)
objNet.RemoveNetworkDrive(DriveMap, True)
objNet.MapNetworkDrive(DriveMap, Path, "false", user, password)
End If
Catch err As System.Exception
'Capture de l'erreur éventuelle
MsgBox("Map->" + DriveMap + Path + " || " + err.ToString)
End Try
Return (DriveMap)
End Function
ci-dessous, une fonction qui demap le disque réseau.
Function DeMapDisk(ByVal DriveMap As Object)
Dim objNet As Object = CreateObject("Wscript.Network" )
objNet.RemoveNetworkDrive(DriveMap, True)
Return DriveMap
End Function
Si cela peut t'aider.
