Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Comment recupérer son Login NT?

2 réponses
Avatar
Zeb
Bonjour à tous,

Je recherche une fonction qui me permette de recupérer son Login NT au
demarrage de mon programme.
C'est pour une reconnaissance automatique du user au demarrage de mon prog.

Je travail sous NT 4

Merci D'avance à tous

2 réponses

Avatar
Guy Detienne
Salut !

Essaye ce bout de code:

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

Dim strUserName As String

strUserName = String(100, Chr$(0))
'Get the username
GetUserName strUserName, 100
'strip the rest of the buffer
strUserName = Left$(strUserName, InStr(strUserName,
Chr$(0)) - 1)

MsgBox "Le login est : " + strUserName

Bonne prog'

Guy DETIENNE
-----Original Message-----
Bonjour à tous,

Je recherche une fonction qui me permette de recupérer


son Login NT au
demarrage de mon programme.
C'est pour une reconnaissance automatique du user au


demarrage de mon prog.

Je travail sous NT 4

Merci D'avance à tous


.



Avatar
PIRODEAU Sébastien
Autre méthode :

Dim strToto As String

strToto = Environ("USERNAME")