在Active Directory中搜索锁定的帐户(Excel/VB)

Sub SearchLockedAccounts()
    Dim objConnection As Object
    Dim objCommand As Object
    Dim objRecordSet As Object
    Dim strBaseDN As String
    Dim strFilter As String
    Dim strAttributes As String
    Dim strQuery As String
    Dim i As Integer
    
    ' 设置AD连接参数
    Set objConnection = CreateObject("ADODB.Connection")
    objConnection.Provider = "ADsDSOObject"
    objConnection.Open "Active Directory Provider"
    
    ' 设置查询参数
    strBaseDN = "<LDAP://DC=example,DC=com>" ' 替换为你的域名
    strFilter = "(&(objectCategory=person)(objectClass=user)(lockoutTime>=1))"
    strAttributes = "sAMAccountName,lockoutTime"
    strQuery = strBaseDN & ";" & strFilter & ";" & strAttributes & ";subtree"
    
    ' 执行查询
    Set objCommand = CreateObject("ADODB.Command")
    objCommand.ActiveConnection = objConnection
    objCommand.CommandText = strQuery
    Set objRecordSet = objCommand.Execute
    
    ' 输出结果到Excel
    i = 2 ' 从第二行开始写入结果
    Do Until objRecordSet.EOF
        Cells(i, 1).Value = objRecordSet.Fields("sAMAccountName").Value
        Cells(i, 2).Value = objRecordSet.Fields("lockoutTime").Value
        i = i + 1
        objRecordSet.MoveNext
    Loop
    
    ' 清理资源
    objRecordSet.Close
    objConnection.Close
    Set objRecordSet = Nothing
    Set objCommand = Nothing
    Set objConnection = Nothing
End Sub