在VB里如何得到当前的登录用户名和登录的域？

Question

可参见VB自带的窗体LogIn.Frm注册窗体中的例子

Answer 1

用这个Function取当前登录用户名
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As LongPublic Function NTDomainUserName() As String
Dim strBuffer As String * 255
Dim lngBufferLength As Long
Dim lngRet As Long
Dim strTemp As StringlngBufferLength = 255
lngRet = GetUserName(strBuffer, lngBufferLength)
strTemp = UCase(Trim$(strBuffer))
NTDomainUserName = Left$(strTemp, Len(strTemp) - 1)End Function

Answer 2

取用户名称用GetUserNameA这个API函数，取其登录的域名可通过注册表函数去从该键下取得：HKEY_LOCAL_MACHINE\Security\Provider\