- Function MapDisk(ByVal DriveMap As Object, ByVal Path As Object)
- 'Déclaration des objets
- Dim objNet, objFSO As Object
-
- Try
- 'Instanciation des objets
- 'objFSO = CreateObject("Scripting.FileSystemObject")
- objNet = CreateObject("Wscript.Network")
- 'Vérifie si le lecteur ("H:" par exemple) existe
- If Not objFSO.DriveExists(DriveMap) Then
- 'il n'existe pas on le mappe
- objNet.MapNetworkDrive(DriveMap, Path, "true", "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, "true", "user", "password")
- End If
- Catch err As System.Exception
- 'Capture de l'erreur éventuelle
- MsgBox("Map->" + DriveMap + Path + " || " + err.ToString)
- End Try
- End Function
Function MapDisk(ByVal DriveMap As Object, ByVal Path As Object)
'Déclaration des objets
Dim objNet, objFSO As Object
Try
'Instanciation des objets
'objFSO = CreateObject("Scripting.FileSystemObject")
objNet = CreateObject("Wscript.Network")
'Vérifie si le lecteur ("H:" par exemple) existe
If Not objFSO.DriveExists(DriveMap) Then
'il n'existe pas on le mappe
objNet.MapNetworkDrive(DriveMap, Path, "true", "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, "true", "user", "password")
End If
Catch err As System.Exception
'Capture de l'erreur éventuelle
MsgBox("Map->" + DriveMap + Path + " || " + err.ToString)
End Try
End Function