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

[cyclamen]

我的这个程序要求有些操作只有系统管理员可
作，如何实现？

[tanhl]

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

[zhaohang]

用这个Function取当前登录用户名
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

[糊里糊涂]

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