-

   rss_sql_ru_access_programming

 - e-mail

 

 -

 LiveInternet.ru:
: 16.03.2006
:
:
: 4

:


?

, 10 2018 . 19:29 +
, !
1 "" 1 . , " " ( ) "IPetrov". , "master/IPetrov". ? !

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

' Main routine to Dimension variables, retrieve user name
' and display answer.
Function Get_User_Name()

' Dimension variables
Dim lpBuff As String * 25
Dim ret As Long, UserName As String

' Get the user name minus any trailing spaces found in the name.
ret = GetUserName(lpBuff, 25)
UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)

' Display the User Name
Get_User_Name = UserName
End Function

http://www.sql.ru/forum/1290174/imya-polzovatelya-imya-ili-login


: [1] []
 

:
: 

: ( )

:

  URL