[VB6] Conoscere il nome utente

[x69asterix]

in access con "Current User" mi ritorna il nome dell'utente loggato in win. Ma in VB6 come fare?

[x69asterix]

ho trovato questo listato non ho avuto modo di provarlo ma potrebbe funzionare?

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Module
Public Function UserName() As String
Dim cn As String
Dim ls As Long
Dim res As Long

cn = String(1024, 0)
ls = 1024
res = GetUserName(cn, ls)
If res <> 0 Then
UserName = Mid(cn, 1, InStr(cn, Chr(0)) - 1)
Else
UserName = ""
End If
End Function

[x69asterix]

ho anche trovato questo:

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As Long


Public OK As Boolean
Private Sub Form_Load()
Dim sBuffer As String
Dim lSize As Long


sBuffer = Space$(255)
lSize = Len(sBuffer)
Call GetUserName(sBuffer, lSize)
If lSize > 0 Then
txtUserName.Text = Left$(sBuffer, lSize)
Else
txtUserName.Text = vbNullString
End If
End Sub

chi mi risponde

[oregon]

Funzionano tutti e due ... ma non facevi prima a provarli ?

[x69asterix]

Originariamente inviato da oregon
Funzionano tutti e due ... ma non facevi prima a provarli ?

si in effetti se sulla macchina da dove stò dgt ci fosse stato vb6, avrei fatto prima
allora ho una o l'altra.
ciao

[oregon]

O una o l'altra ...