[VB6] Utente Windows

[jorpis]

Salve a tutti avrei proprio bisogno di sapere quale utente è loggato in windows da un'applicazione in VB, qualche suggerimento ?

[Brigante]

Originariamente inviato da jorpis
Salve a tutti avrei proprio bisogno di sapere quale utente è loggato in windows da un'applicazione in VB, qualche suggerimento ?

Questa qui sotto è la dichiarazione pubblica:
' Ottiene il nome dell'utente loggato sulla macchina.
Public Declare Function WNetGetUserA Lib "mpr" (ByVal lpName As String, ByVal lpUserName As String, lpnLenght As Long) As Long


Questa qui sotto è la funzione, copiatela e incollatela così com'è:
Public Function getNomeUtenteMacchina() As String

' Restituisce il nome dell'utente loggato sulla macchina.

' N.B.: La seguente dichiarazione deve essere dichiarata a livello di modulo:
' Public Declare Function WNetGetUserA Lib "mpr" (ByVal lpName As String, _
ByVal lpUserName As String, _
lpnLenght As Long) As Long
Dim sUserNameBuff As String * 255

sUserNameBuff = Space(255)
Call WNetGetUserA(vbNullString, sUserNameBuff, 255&)
getNomeUtenteMacchina = Left$(sUserNameBuff, InStr(sUserNameBuff, vbNullChar) - 1)

End Function

[jorpis]

perfetto grazie mille !! Sei stato più veloce del Google!

[Brigante]

Originariamente inviato da jorpis
perfetto grazie mille !! Sei stato più veloce del Google!

Bè, si, stavo a lavoro e c'avevo il codice sotto mano.
Quella faccina che fa l'occhiolino, nel codice, ovviamente toglila, al suo posto c'è l'underscore _, cioè & _.