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 RA UNARA '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