使用VBA中的全局用户列表验证用户名

Question

我正在尝试创建一个excel来跟踪组织中的生产。我有一个用户名（窗口）的用户列表。每当有人向列表添加新用户名时，我想用公司的全局列表验证用户名。

Answer 1

我有一个简单的功能

Function GetUserFullName(userName) As String
    Set WSHnet = CreateObject("WScript.Network")
    UserDomain = WSHnet.UserDomain
    On Error GoTo Err_open_esy
    Set objUser = GetObject("WinNT://" & UserDomain & "/" & userName & ",user")
Exit_open_esy:
    GetUserFullName = objUser.FullName
Exit Function

Err_open_esy:
    GetUserFullName = "Error"
End Function

可以用作

GetUserFullName("abc")