vb中获取机器名，用户名

1。得到本机机器名
'example   by   Donavon   Kuhn   (Donavon.Kuhn@Nextel.com) 
  Private   Const   MAX_COMPUTERNAME_LENGTH   As   Long   =   31 
  Private   Declare   Function   GetComputerName   Lib   "kernel32"   Alias   "GetComputerNameA"   (ByVal   lpBuffer   As   String,   nSize   As   Long)   As   Long 
  Private   Sub   Form_Load() 
          Dim   dwLen   As   Long 
          Dim   strString   As   String 
          'Create   a   buffer 
          dwLen   =   MAX_COMPUTERNAME_LENGTH   +   1 
          strString   =   String(dwLen,   "X") 
          'Get   the   computer   name 
          GetComputerName   strString,   dwLen 
          'get   only   the   actual   data 
          strString   =   Left(strString,   dwLen) 
          'Show   the   computer   name 
          MsgBox   strString 
  End   Sub
2。得到本机用户名
  private Declare   Function   GetUserName   Lib   "advapi32.dll"   Alias   "GetUserNameA"   (ByVal   lpBuffer   As   String,   nSize   As   Long)   As   Long 
  
  Public   Function   NTDomainUserName()   As   String 
  Dim   strBuffer   As   String   *   255 
  Dim   lngBufferLength   As   Long 
  Dim   lngRet   As   Long 
  Dim   strTemp   As   String 
  
  lngBufferLength   =   255 
  lngRet   =   GetUserName(strBuffer,   lngBufferLength) 
  strTemp   =   UCase(Trim$(strBuffer)) 
  NTDomainUserName   =   Left$(strTemp,   Len(strTemp)   -   1) 
  
  End   Function