Existe t'il une commande VB qui soit similaire au NET USE qui permet de connecter un lecteur réseau ??

NET USE P: \\SERVEUR\C par exemple ?
Merci

'Ajouer en début :

Private Declare Function WNetCancelConnection Lib "mpr.dll" Alias "WNetCancelConnectionA" (ByVal lpszName As String, ByVal bForce As Long) As Long

Private Declare Function WNetAddConnection Lib "mpr.dll" Alias "WNetAddConnectionA" (ByVal lpszNetPath As String, ByVal lpszstrPassword As String, ByVal lpszLocalName As String) As Long


'puis, sous un bouton "connexion" par exemple le code suivant :

private sub connexion_click()

Dim strLocalDriveLetter As String
Dim strPassword As String
Dim strNetworkPathName As String

strLocalDriveLetter = "T:"
strPassword = "ARTHUR"
strNetworkPathName = "\\HPSYSTEM\SAVEDATA"
DoEvents
rc = WNetAddConnection(strNetworkPathName, strPassword, strLocalDriveLetter)
DoEvents

end sub

'Pour deconnecter cette drive crée, ajouter par exemple un deuxième bouton "déconnection" avec le code suivant :

private sub deconnection_click()

rc = WNetCancelConnection("T:" + Chr(0), 0)

end sub


'Je n'ai pas de problème pour ne connecter avec cela à une machine en OS2 et Lanserver, en W95, en W98. Par conter avec NT server, je n'y arrive pas et suis également à la recherche d'une solution (prob avec le mot de passe.
'
'Cordialement,
'jlm


-------------------------------
Réponse au message :
-------------------------------

Existe t'il une commande VB qui soit similaire au NET USE qui permet de connecter un lecteur réseau ??

NET USE P: \\SERVEUR\C par exemple ?
Merci

Pour NT, il faut que tu utilises une autre API : WNetAddConnection2

Private Type NETRESOURCE
dwScope As Long
dwType As Long
dwDisplayType As Long
dwUsage As Long
pLocalName As Long
pRemoteName As Long
pComment As Long
pProvider As Long
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

Je fais également un programme qui l'a met en place en ce moment.

Good luck :)

Spacemanouche


-------------------------------
Réponse au message :
-------------------------------

> 'Ajouer en début :
>
> Private Declare Function WNetCancelConnection Lib "mpr.dll" Alias "WNetCancelConnectionA" (ByVal lpszName As String, ByVal bForce As Long) As Long
>
> Private Declare Function WNetAddConnection Lib "mpr.dll" Alias "WNetAddConnectionA" (ByVal lpszNetPath As String, ByVal lpszstrPassword As String, ByVal lpszLocalName As String) As Long
>
>
> 'puis, sous un bouton "connexion" par exemple le code suivant :
>
> private sub connexion_click()
>
> Dim strLocalDriveLetter As String
> Dim strPassword As String
> Dim strNetworkPathName As String
>
> strLocalDriveLetter = "T:"
> strPassword = "ARTHUR"
> strNetworkPathName = "\\HPSYSTEM\SAVEDATA"
> DoEvents
> rc = WNetAddConnection(strNetworkPathName, strPassword, strLocalDriveLetter)
> DoEvents
>
> end sub
>
> 'Pour deconnecter cette drive crée, ajouter par exemple un deuxième bouton "déconnection" avec le code suivant :
>
> private sub deconnection_click()
>
> rc = WNetCancelConnection("T:" + Chr(0), 0)
>
> end sub
>
>
> 'Je n'ai pas de problème pour ne connecter avec cela à une machine en OS2 et Lanserver, en W95, en W98. Par conter avec NT server, je n'y arrive pas et suis également à la recherche d'une solution (prob avec le mot de passe.
> '
> 'Cordialement,
> 'jlm
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> Existe t'il une commande VB qui soit similaire au NET USE qui permet de connecter un lecteur réseau ??
>
> NET USE P: \\SERVEUR\C par exemple ?
> Merci
>