récupération du password windows avec VB6
Bonjour,
Je travaille sur une application VB6 qui envoi des mails en utilisant le serveur SMTP de l'entreprise. le problème est qu'il faut un accès authentifié pour permettre l'envoi aux adresses mails externes.
Cette authentification est faite avec l'identifiant et le mot de passe windows de l'utilisateur de l'application. Pour l'instant j'arrive à récupérer l'identifiant windows en utilisant le code suivant:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
Private Declare Function WNetGetUser& Lib "Mpr" Alias "WNetGetUserA" (lpname As Any, ByVal lpUserName$, lpnLength&)
Private Sub Command2_Click()
Dim username As String
Dim cbusername As Long
Dim ret As Integer
username = Space(256)
cbusername = Len(username)
ret = WNetGetUser(ByVal 0&, username, cbusername)
If ret = 0 Then
' Success - strip off the null.
username = Left(username, InStr(username, Chr(0)) - 1)
Password = Left(Password, InStr(Password, Chr(0)) - 1)
Else
username = ""
End If
Call MsgBox(username)
End Sub |
Y a t'il d'autres fonctions API équivalentes qui permettent de récupérer le password et le domaine.
Merci pour vos réponses.
