Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
Declare Function GetComputerNameA Lib "kernel32" (ByVal lpBuffer As String, nSize As Long) As Long Declare Function GetUserNameA Lib "advapi32.dll" (ByVal lpBuffer As String, nSize As Long) As Long Public Function GetComputerName() As String '*************************************************************** 'Ime: GetComputerName (Function) 'Sadržaj: daje ime kompjutora 'Autor: Gjoreski '*************************************************************** Dim sResult As String * 255 GetComputerNameA sResult, 255 GetComputerName = Left$(sResult, InStr(sResult, Chr$(0)) - 1) End Function Public Function GetUserName() As String '*************************************************************** 'Ime: GetUserName (Function) 'Sadržaj: daje ime korisnika 'Autor: Gjoreski '********************************************************