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: MsgBox "Error " & Err.Number & ": " & Err.Description, vbInformation, "Error in " & strProcName, "Ime Baze" Resume KorisnikO_Exit End Function