, 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