Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
                                                        (ByVal lpBuffer As String, _
                                                        nSize As Long) As Long
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, _
                                                nSize As Long) As Long


Function Get_User_Name()
    
    Dim lpBuff As String *  25 
    Dim ret As Long, UserName As String
    ret = GetUserName(lpBuff,  25 )
    UserName = Left(lpBuff, InStr(lpBuff, Chr( 0 )) -  1 )
    Get_User_Name = UserName
    
End Function


Function Get_Computer_Name() As String

    Dim Comp_Name_B As String *  255 
    Dim Comp_Name As String
    GetComputerName Comp_Name_B, Len(Comp_Name_B)
     'последний символ - всегда "конец строки" Chr(0), его находит функция'
 
    Comp_Name = Left(Comp_Name_B, InStr(Comp_Name_B, Chr( 0 )))
     'функция возвращает только имя компьютера'
 
    Get_Computer_Name = Comp_Name

End Function