Option Compare Database
Option Explicit

'******************** Code Start **************************
' API: Get Login name
' Author (s)
'Dev Ashish
'
'
'(Q) How do I retrieve the UserName with which the user is logged into the network?
'
'(A) Paste the following code in a new module and call the function fOSUserName.
' This code was originally written by Dev Ashish.
' It is not to be altered or distributed,
' except as part of an application.
' You are free to use it in any application,
' provided the copyright notice is left unchanged.
'
' Code Courtesy of
' Dev Ashish
'
Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Function fOSUserName() As String
' Returns the network login name
Dim lngLen As Long, lngX As Long
Dim strUserName As String
strUserName = String$(254, 0)
lngLen = 255
lngX = apiGetUserName(strUserName, lngLen)
If (lngX > 0) Then
fOSUserName = Left$(strUserName, lngLen - 1)
Else
fOSUserName = vbNullString
End If
End Function
'******************** Code End **************************

Isprobao sam i RADI! Probao sam sa različitim dužinama korisničkog
imena i funkcioniše. Problem mi je što umesto user name-a dobijem
kockice. Da li postoji mogućnost da se umesto kockica ispisuje user
name sa slovima?

BTW, možda ja radim nešto pogrešno (primer je zakačen uz poruku)

Pozivaš funkciju fOSUserName koje nigdje nema jer si joj promijenio ime
i trebala je biti u modulu
Citiram: (A) Paste the following code in a new module..........
sad da li se može ovako da je prepraviš nisam probao
mislim da nemaš ni potrebe da koristi ovu svoju funkciju proba()

OK, funkcioniše. Hvala na pomoći ...