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
'***************************************************************
Dim UserName As String * 255
    GetUserNameA UserName, 255
    GetUserName = Left$(UserName, InStr(UserName, Chr$(0)) - 1)
End Function