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
Dim sResult As String * 255
    GetComputerNameA sResult, 255
    GetComputerName = Left$(sResult, InStr(sResult, Chr$(0)) - 1)
End Function

Public Function GetUserName() As String
Dim UserName As String * 255
    GetUserNameA UserName, 255
    GetUserName = Left$(UserName, InStr(UserName, Chr$(0)) - 1)
End Function