Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Bismark Prods
Option Explicit Dim UserName As String
' access GetUserNameA function in advapi32.dll call GetUserName Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _ (ByVal lpBuffer As String, nSize As Long) As Long
Public Property Get Get_UserName() As String If UserName = "" Then Dim lpBuff As String * 25 Dim ret As Long
' Get the user name minus any trailing spaces found in the name ret = GetUserName(lpBuff, 25) UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
End If Get_UserName = UserName End Property
Private Sub Form_Load() MsgBox Get_UserName End Sub
"sandrine" a écrit dans le message de news:075c01c34473$66bdd2f0$
Adio, Comment puis je recuperer le nom de l'utilisateurs connecte sur ma machine, et faire un test dessus Merci
Option Explicit
Dim UserName As String
' access GetUserNameA function in advapi32.dll call GetUserName
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA"
_
(ByVal lpBuffer As String, nSize As Long) As Long
Public Property Get Get_UserName() As String
If UserName = "" Then
Dim lpBuff As String * 25
Dim ret As Long
' Get the user name minus any trailing spaces found in the name
ret = GetUserName(lpBuff, 25)
UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
End If
Get_UserName = UserName
End Property
Private Sub Form_Load()
MsgBox Get_UserName
End Sub
"sandrine" <lapinou15@yahoo.fr> a écrit dans le message de
news:075c01c34473$66bdd2f0$a501280a@phx.gbl...
Adio,
Comment puis je recuperer le nom de l'utilisateurs
connecte sur ma machine, et faire un test dessus
Merci
' access GetUserNameA function in advapi32.dll call GetUserName Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _ (ByVal lpBuffer As String, nSize As Long) As Long
Public Property Get Get_UserName() As String If UserName = "" Then Dim lpBuff As String * 25 Dim ret As Long
' Get the user name minus any trailing spaces found in the name ret = GetUserName(lpBuff, 25) UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
End If Get_UserName = UserName End Property
Private Sub Form_Load() MsgBox Get_UserName End Sub
"sandrine" a écrit dans le message de news:075c01c34473$66bdd2f0$
Adio, Comment puis je recuperer le nom de l'utilisateurs connecte sur ma machine, et faire un test dessus Merci
Bismark Prods
Mon cher Guy,
Je voudrais pas passer pour celui que je ne suis pas ! La solution que j'ai postée est celle de APIGuide !
"Guy Detienne" a écrit dans le message de news:uKm$
Salut,
La solution de Bismark est très bonne (et c'est celle que j'utilise habituellement), mais l'on peut aussi utiliser la fonction Environ pour connaître certaines variables d'environnement du sytème.
Il existe la variable %username% qui permet de connaître l'utilisateur en cours.
Exemple:
MsgBox Environ("username")
Bonne prog'
Guy DETIENNE
"sandrine" a écrit dans le message de news:075c01c34473$66bdd2f0$ > Adio, > Comment puis je recuperer le nom de l'utilisateurs > connecte sur ma machine, et faire un test dessus > Merci
Mon cher Guy,
Je voudrais pas passer pour celui que je ne suis pas ! La solution que j'ai
postée est celle de APIGuide !
"Guy Detienne" <gd@tchao.net> a écrit dans le message de
news:uKm$hEjRDHA.1552@TK2MSFTNGP10.phx.gbl...
Salut,
La solution de Bismark est très bonne (et c'est celle que j'utilise
habituellement), mais l'on peut aussi utiliser la fonction Environ pour
connaître certaines variables d'environnement du sytème.
Il existe la variable %username% qui permet de connaître l'utilisateur en
cours.
Exemple:
MsgBox Environ("username")
Bonne prog'
Guy DETIENNE
"sandrine" <lapinou15@yahoo.fr> a écrit dans le message de
news:075c01c34473$66bdd2f0$a501280a@phx.gbl...
> Adio,
> Comment puis je recuperer le nom de l'utilisateurs
> connecte sur ma machine, et faire un test dessus
> Merci
Je voudrais pas passer pour celui que je ne suis pas ! La solution que j'ai postée est celle de APIGuide !
"Guy Detienne" a écrit dans le message de news:uKm$
Salut,
La solution de Bismark est très bonne (et c'est celle que j'utilise habituellement), mais l'on peut aussi utiliser la fonction Environ pour connaître certaines variables d'environnement du sytème.
Il existe la variable %username% qui permet de connaître l'utilisateur en cours.
Exemple:
MsgBox Environ("username")
Bonne prog'
Guy DETIENNE
"sandrine" a écrit dans le message de news:075c01c34473$66bdd2f0$ > Adio, > Comment puis je recuperer le nom de l'utilisateurs > connecte sur ma machine, et faire un test dessus > Merci
