首页
学习
活动
专区
工具
TVP
发布
精选内容/技术社群/优惠产品,尽在小程序
立即前往

从具有VBA的组用户获取/检索Active Directory SamAccountName

从具有VBA的组用户获取/检索Active Directory SamAccountName:

Active Directory(AD)是一种由Microsoft开发的目录服务,用于在Windows网络环境中存储和组织网络资源,如用户、计算机、组织单位等。SamAccountName是Active Directory中每个用户账户的唯一标识符。

要从具有VBA的组用户获取或检索Active Directory的SamAccountName,可以使用以下步骤:

  1. 引用Active Directory对象库:在VBA编辑器中,点击"工具" -> "引用",勾选"Microsoft Active Directory Objects",然后点击"确定"。
  2. 连接到Active Directory:使用ADODB.Connection对象连接到Active Directory。可以使用以下代码示例:
代码语言:vba
复制
Dim conn As New ADODB.Connection
conn.Provider = "ADsDSOObject"
conn.Open "Active Directory Provider"
  1. 执行LDAP查询:使用ADODB.Command对象执行LDAP查询,以获取或检索具有VBA的组用户的SamAccountName。可以使用以下代码示例:
代码语言:vba
复制
Dim cmd As New ADODB.Command
Dim rs As ADODB.Recordset

Set cmd.ActiveConnection = conn
cmd.CommandText = "<LDAP://CN=VBA组,OU=组,DC=example,DC=com>;(&(objectCategory=person)(objectClass=user));samAccountName;subtree"

Set rs = cmd.Execute

While Not rs.EOF
    Dim samAccountName As String
    samAccountName = rs.Fields("samAccountName").Value
    
    ' 在这里处理SamAccountName,可以将其存储到变量、数组或进行其他操作
    
    rs.MoveNext
Wend

rs.Close
Set rs = Nothing

在上述代码示例中,需要将CN=VBA组,OU=组,DC=example,DC=com替换为实际的组的LDAP路径。LDAP查询语句中的过滤条件(&(objectCategory=person)(objectClass=user))用于筛选出用户对象。

  1. 关闭连接:在完成查询后,记得关闭连接以释放资源。
代码语言:vba
复制
conn.Close
Set conn = Nothing

这样,你就可以通过VBA代码从具有VBA的组用户获取或检索Active Directory的SamAccountName了。

推荐的腾讯云相关产品:腾讯云提供了一系列与云计算和身份认证相关的产品和服务,如腾讯云身份管理(CAM)、腾讯云访问管理(TAM)等。这些产品可以帮助用户管理和控制云资源的访问权限,保障系统的安全性和可靠性。你可以通过访问腾讯云官方网站(https://cloud.tencent.com/)了解更多相关产品和服务的详细信息。

页面内容是否对你有帮助?
有帮助
没帮助

相关·内容

43秒

检信智能非接触式生理参数指标采集识别

领券