如何在VBA中从Active Directory用户名查询用户全名/邮箱并安全调用CMD？

完全可以通过VBA实现任意AD用户名的信息查询，以下提供两种可靠方案，优先推荐第一种（避免杀毒软件拦截风险）：

方案一：直接调用AD COM对象（推荐） #

通过AD原生COM接口查询，无需调用外部CMD程序，彻底避免杀毒软件拦截问题，且查询结果更全面可靠。

实现代码 #

Function GetADUserInfo(userId As String) As String
    Dim objAD As Object
    Dim objUser As Object
    Dim domainName As String
    Dim fullName As String
    Dim email As String
    
    ' 自动获取当前域名，无需手动修改
    domainName = CreateObject("WScript.Network").UserDomain
    
    On Error Resume Next
    Set objAD = GetObject("LDAP://" & domainName)
    Set objUser = objAD.OpenDSObject("LDAP://CN=" & userId & ",CN=Users," & objAD.Get("defaultNamingContext"), "", "", 1)
    
    If Err.Number = 0 Then
        ' 优先返回邮箱地址
        email = objUser.Get("mail")
        If email <> "" Then
            GetADUserInfo = "邮箱：" & email
            Exit Function
        End If
        ' 邮箱为空则返回全名
        fullName = objUser.Get("displayName")
        GetADUserInfo = IIf(fullName <> "", "全名：" & fullName, "未找到该用户有效信息")
    Else
        GetADUserInfo = "查询失败：用户不存在或无权限"
    End If
    
    Set objUser = Nothing
    Set objAD = Nothing
End Function

使用方法 #

在Excel单元格中直接调用函数，例如输入=GetADUserInfo("testuser")，即可返回对应用户的邮箱或全名。

方案二：优化CMD调用（规避拦截） #

如果必须使用net user命令，可通过以下方式优化调用逻辑，降低被杀毒软件拦截的概率：

实现代码 #

Function GetUserInfoViaCMD(userId As String) As String
    Dim shellObj As Object
    Dim cmdOutput As Object
    Dim cmdLine As String
    Dim result As String
    
    Set shellObj = CreateObject("WScript.Shell")
    ' 构造命令，直接捕获输出，不弹出窗口
    cmdLine = "cmd /c net user """ & userId & """ /DOMAIN | find /I ""Full name"""
    
    On Error Resume Next
    Set cmdOutput = shellObj.Exec(cmdLine)
    result = cmdOutput.StdOut.ReadAll
    
    If Err.Number = 0 Then
        ' 提取全名信息
        result = Trim(Replace(Replace(result, "Full name", ""), ":", ""))
        GetADUserInfo = IIf(result <> "", "全名：" & result, "未找到该用户全名")
    Else
        GetADUserInfo = "命令执行失败：可能被拦截或无权限"
    End If
    
    Set cmdOutput = Nothing
    Set shellObj = Nothing
End Function

拦截规避说明 #

• 使用WScript.Shell.Exec而非普通Shell函数，该方法不弹出窗口，直接捕获命令输出，减少CMD窗口暴露痕迹
• 用双引号包裹用户名，避免特殊字符导致命令执行出错
• 保持命令简洁，不生成临时文件或执行复杂脚本

内容的提问来源于stack exchange，提问作者RobBaker