Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
Function ImeKorisnika() As Variant
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
'FUNKCIJA ZA ITANJE IMENA KORISNIKA RAUNARA
'AutorZXZ
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
'--------------------------------------------------------------------------------------------------------------
'TREBA DEKLARISATI OVAJ DLL (Vidi po
etak modula)
'Declare Function KorisnikK Lib "advapi32.dll" Alias "GetUserNameA" _
'(ByVal lpBuffer As String, nSize As Long) As Long
'--------------------------------------------------------------------------------------------------------------
On Error GoTo scoKorisnikK_Err
Const strProcName As String = "KorisnikO"
Dim intProcErrResp As Integer
Dim strOSUName As String
Dim lngLength As Long
Dim lngResult As Long
strOSUName = String$(255, 0)
lngLength = 255
lngResult = KorisnikK(strOSUName, lngLength)
ImeKorisnika = Left$(strOSUName, InStr(1, strOSUName, Chr(0)) - 1)
KorisnikO_Exit:
Exit Function
scoKorisnikK_Err:
Ms