home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD3288282000.psc / SP01mxFuncoesAPI.bas < prev    next >
Encoding:
BASIC Source File  |  2000-01-09  |  966 b   |  36 lines
  1. Attribute VB_Name = "SP01mxFuncoesAPI"
  2. Option Explicit
  3.  
  4. Private Declare Function GetComputerName Lib "KERNEL32" Alias "GetComputerNameA" _
  5.                 (ByVal lpBuffer As String, nSize As Long) As Long
  6. Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
  7.                 (ByVal rsBuffer As String, rlSize As Long) As Long
  8.  
  9. Public Function NomeMaquina() As String
  10.     Dim lSize As Long, sBuffer As String
  11.     
  12.     sBuffer = Space$(255)
  13.     lSize = Len(sBuffer)
  14.     
  15.     If GetComputerName(sBuffer, lSize) Then
  16.         NomeMaquina = Left$(sBuffer, lSize)
  17.     Else
  18.         NomeMaquina = ""
  19.     End If
  20. End Function
  21.  
  22. Public Function NomeUsuario() As String
  23.     Dim lSize As Long, sBuffer As String
  24.     
  25.     sBuffer = Space$(255)
  26.     lSize = Len(sBuffer)
  27.     
  28.     If GetUserName(sBuffer, lSize) Then
  29.         NomeUsuario = Left$(sBuffer, lSize - 1)
  30.     Else
  31.         NomeUsuario = ""
  32.     End If
  33. End Function
  34.  
  35.  
  36.