Accès à un répertoire distant protégé

Question

Salut, je suis en train de d&#233;velopper une application en VB.Net et je dois r&#233;cup&#233;rer des fichiers qui sont sur le disque dur d'un automate. Le disque est accessible via le r&#233;seau comme n'importe quel disque partag&#233;, mais on doit s'authentifier pour pouvoir y acceder.

Dans mon application, j'utilise un fileSystemObject et je veux aller lire les fichiers de ce fameux r&#233;pertoire. En gros je cherche &#224; faire &#231;a :


Dim fso As New Scripting.FileSystemObject
Dim fol As Scripting.Folder
Dim files As Scripting.Files
Dim f As Scripting.File
   fol = fso.GetFolder("\Automate\Projet")
   files = fol.Files
   Txt.Clear()
   For Each f In files
        Txt.Text &= (f.Name) & vbNewLine
        Analyse(f.Name)

   Next

Si par exemple je me suis connect&#233; en donnant login + mdp avant, via Explorer &#231;a marche, mais je voudrais que &#231;a soit ind&#233;pendant.

Si qqu &#224; une id&#233;e, je suis preneur !   Merci

Kamui74

gaa179 · Answer

Salut,

tu peux utiliser les Apis et WnetAddConnection pour cr&#233;er le mapping du share.
Voici la syntaxe que tu dois placer dans un module:

Const RESOURCETYPE_DISK = &H1


Public Const ERROR_ACCESS_DENIED = 5&
Public Const ERROR_ALREADY_ASSIGNED = 85&
Public Const ERROR_BAD_DEVICE = 1200&
Public Const ERROR_BAD_NET_NAME = 67&
Public Const ERROR_DEVICE_IN_USE = 2404&
Public Const ERROR_INVALID_PASSWORD = 86&
Public Const ERROR_MORE_DATA = 234 '  dderror
Public Const ERROR_NO_NETWORK = 1222&
Public Const ERROR_NO_NET_OR_BAD_PATH = 1203&
Public Const ERROR_NOT_CONNECTED = 2250&
Public Const NO_ERROR = 0 '  dderror


Public Const WN_ACCESS_DENIED = ERROR_ACCESS_DENIED
Public Const WN_ALREADY_CONNECTED = ERROR_ALREADY_ASSIGNED
Public Const WN_BAD_LOCALNAME = ERROR_BAD_DEVICE
Public Const WN_BAD_NETNAME = ERROR_BAD_NET_NAME
Public Const WN_BAD_PASSWORD = ERROR_INVALID_PASSWORD
Public Const WN_DEVICE_IN_USE = ERROR_DEVICE_IN_USE
Public Const WN_MORE_DATA = ERROR_MORE_DATA
Public Const WN_NO_ERROR = NO_ERROR
Public Const WN_NO_NET_OR_BAD_PATH = ERROR_NO_NET_OR_BAD_PATH
Public Const WN_NO_NETWORK = ERROR_NO_NETWORK
Public Const WN_NOT_CONNECTED = ERROR_NOT_CONNECTED
'Public Const WN_BAD_PROFILE = ERROR_BAD_PROFILE


Private Type NETRESOURCE
  dwScope As Long
  dwType As Long
  dwDisplayType As Long
  dwUsage As Long
  lpLocalName As String
  lpRemoteName As String
  lpComment As String
  lpProvider As String
End Type


Private Declare Function WNetAddConnection2 Lib "mpr.dll" Alias "WNetAddConnection2A" (lpNetResource As NETRESOURCE, ByVal lpPassword As String, ByVal lpUserName As String, ByVal dwFlags As Long) As Long
Private Declare Function WNetCancelConnection2 Lib "mpr.dll" Alias "WNetCancelConnection2A" (ByVal lpName As String, ByVal dwFlags As Long, ByVal fForce As Long) As Long


Public Function MapDrive(LocalDrive As String, RemoteName As String, UserName as String, UserPassword as String) As Long
Dim theNetResource As NETRESOURCE
Dim UserName As String
Dim UserPassword As String
    'UserName = Null
    'UserPassword = Null
    With theNetResource
        .dwType = RESOURCETYPE_DISK
        .lpLocalName = LocalDrive
        .lpRemoteName = RemoteName
    End With
    MapDrive = WNetAddConnection2(theNetResource, UserPassword, UserName, 0)
End Function
Public Function DisconnectDrive(LocalDrive As String) As Long
    DisconnectDrive = WNetCancelConnection2(LocalDrive, 0, 0)
End Function


A+

kamui74 · Answer

j'ai mis ton code dans un module et j'ai appell&#233; la fonction:


Mapdrive("Z:", "[file://automate/projet/ \automate\projet\]", "Administrator", "Administrator")

Normalement &#224; partir de ce moment je suis sens&#233; voir un nouveau disque r&#233;seau dan sle poste de travail, non ? En tout cas il ne se passe rien et quand je cherche &#224; acc&#233;der aux fichier, il me dit que le chemin est inconnu (normal si c'est bien sens&#233; faire ce que je pense)

J'ai du adapter un peu le type remplac&#233; par Structure en .NET et il y a des d&#233;clarations en double que j'ai enlev&#233;. Est-ce que &#231;a serait &#231;a qui pose probl&#232;me? 

PS: Je suis sous Windows 2000 !

kamui74 · Answer

J'ai aussi essay&#233; avec :

Mapdrive("Z:", "[file://automate/projet/ \automate\projet\]", "Administrator", "Administrator")

M&#234;me punition !

Accès à un répertoire distant protégé

3 réponses

Discussions similaires