vb中获取机器名，用户名

最新推荐文章于 2021-06-18 10:11:35 发布

昵称不能为空？

最新推荐文章于 2021-06-18 10:11:35 发布

阅读量1.5k

点赞数

文章标签： vb string function buffer

本文链接：https://blog.csdn.net/zhangting1987/article/details/1877117

版权

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