取得AD中所有域用户并在EXCEL中整理成表格的两个方法

突然要取得AD中所有域用户并且制作成列表，因为不可避免地多次要用到，所以这里写下来以备忘。

方法一（该方法会列出所有用户不管是启用的还是禁用的）

1. 用管理员登录任意一台域控（DC），运行Windows PowerShell，在PowerShell下运行命令：

 Get-WmiObject -Class Win32_UserAccount >C:\userList.txt

注意其后的C:\userList.txt指明了我通过输出重定向把取得用户信息输出到了C:\userList.txt这个文件里，你可以根据实际情况变更它。

2. 打开C:\userList.txt文件，把里面的内容复制出来，打开一个Excel的空白工作簿，把这个内容粘贴到Sheet1的A列里如图：

   
   取得的内容粘贴到EXCEL里的Sheet1里的A列里

3. 点击EXCEL里底部Sheet1右边的+号按钮，新建一个新工作表Sheet2如图：

   
   新建工作表Sheet2
4. 在EXCEL界面按ALT+F11打开VBA环境，依次点击菜单插入Insert、模块Module，此时将插入一个新的模块名为Module1，选中它，然后在右边空白环境里粘贴下面代码：

'A format converter for AD user information
'By Darwin Zuo (darwin.zuo@163.com)
'2019-08-29

Sub ADUserFormConvert()
    rowInSheet2 = 1
    rowInSheet1 = 0
    blankCounting = 0
    
    
    Sheets("Sheet2").Cells(1, 1) = "Account Type"
    Sheets("Sheet2").Cells(1, 2) = "Caption"
    Sheets("Sheet2").Cells(1, 3) = "Domain"
    Sheets("Sheet2").Cells(1, 4) = "SID"
    Sheets("Sheet2").Cells(1, 5) = "Full Name"
    Sheets("Sheet2").Cells(1, 6) = "Name"
    
    
    Do While blankCounting < 5
        rowInSheet1 = rowInSheet1 + 1
        cv = Sheets("sheet1").Cells(rowInSheet1, 1).Value
        If Len(cv) > 0 Then
            blankCounting = 0
            hdr4 = Left(cv, 4)
            If hdr4 = "Acco" Then
                rowInSheet2 = rowInSheet2 + 1
                Sheets("sheet2").Cells(rowInSheet2, 1) = Right(cv, Len(cv) - 14)
            ElseIf hdr4 = "Capt" Then
                Sheets("sheet2").Cells(rowInSheet2, 2) = Right(cv, Len(cv) - 14)
            ElseIf hdr4 = "Doma" Then
                Sheets("sheet2").Cells(rowInSheet2, 3) = Right(cv, Len(cv) - 14)
            ElseIf hdr4 = "SID " Then
                Sheets("sheet2").Cells(rowInSheet2, 4) = Right(cv, Len(cv) - 14)
            ElseIf hdr4 = "Full" Then
                Sheets("sheet2").Cells(rowInSheet2, 5) = Right(cv, Len(cv) - 14)
            ElseIf hdr4 = "Name" Then
                Sheets("sheet2").Cells(rowInSheet2, 6) = Right(cv, Len(cv) - 14)
            End If
        Else
            blankCounting = blankCounting + 1
        End If
    Loop
    MsgBox "Done."
End Sub

粘贴好代码的界面

5. 按F5运行代码，如果显示下面的信息那么信息已经转换好了，关掉VBA环境切换到Sheet2查看结果即可：

   
   运行成功会显示这个窗口
   

   对于大多数情况下，操作到此为止了，得到的数据如下图：

   
   最终得到的数据

方法二（可以选择是列出所有用户、仅启用用户、仅禁用用户）

1. 用管理员登录任意一台域控（DC），运行Windows PowerShell，根据需要在PowerShell下执行下面三个中的某个命令：

#这是只列出启用的用户的版本
 Get-ADUser -Filter {Enabled -eq "True"} >C:\userList.txt

#这是只列出被禁用的用户的版本
 Get-ADUser -Filter {Enabled -eq "False"} >C:\userList.txt

#这是列出所有用户的版本
Get-ADUser -Filter {ObjectClass -eq "user"}  >C:\userList.txt

注意其后的C:\userList.txt指明了我通过输出重定向把取得用户信息输出到了C:\userList.txt这个文件里，你可以根据实际情况变更它。

2. 打开C:\userList.txt文件，把里面的内容复制出来，打开一个Excel的空白工作簿，把这个内容粘贴到Sheet1的A列里如图：

   
   取得的内容粘贴到EXCEL里的Sheet1里的A列里

3. 点击EXCEL里底部Sheet1右边的+号按钮，新建一个新工作表Sheet2如图：

   
   新建工作表Sheet2

4. 在EXCEL界面按ALT+F11打开VBA环境，依次点击菜单插入Insert、模块Module，此时将插入一个新的模块名为Module1，选中它，然后在右边空白环境里粘贴下面代码：

'A format converter for AD user information
'By Darwin Zuo (darwin.zuo@163.com)
'2019-09-30

Sub ADUserFormConvert()
    rowInSheet2 = 1
    rowInSheet1 = 0
    blankCounting = 0
    
    
    Sheets("Sheet2").Cells(1, 1) = "DistinguishedName"
    Sheets("Sheet2").Cells(1, 2) = "Enabled"
    Sheets("Sheet2").Cells(1, 3) = "GivenName"
    Sheets("Sheet2").Cells(1, 4) = "Name"
    Sheets("Sheet2").Cells(1, 5) = "ObjectClass"
    Sheets("Sheet2").Cells(1, 6) = "ObjectGUID"
    Sheets("Sheet2").Cells(1, 7) = "SamAccountName"
    Sheets("Sheet2").Cells(1, 8) = "SID"
    Sheets("Sheet2").Cells(1, 9) = "Surname"
    Sheets("Sheet2").Cells(1, 10) = "UserPrincipalName"
    
    
    Do While blankCounting < 5
        rowInSheet1 = rowInSheet1 + 1
        cv = Sheets("sheet1").Cells(rowInSheet1, 1).Value
        If Len(cv) > 0 Then
            blankCounting = 0
            hdr4 = Left(cv, 4)
            If hdr4 = "Dist" Then
                rowInSheet2 = rowInSheet2 + 1
                Sheets("sheet2").Cells(rowInSheet2, 1) = Right(cv, Len(cv) - 20)
            ElseIf hdr4 = "Enab" Then
                Sheets("sheet2").Cells(rowInSheet2, 2) = Right(cv, Len(cv) - 20)
            ElseIf hdr4 = "Give" Then
                Sheets("sheet2").Cells(rowInSheet2, 3) = Right(cv, Len(cv) - 20)
            ElseIf hdr4 = "Name" Then
                Sheets("sheet2").Cells(rowInSheet2, 4) = Right(cv, Len(cv) - 20)
            ElseIf hdr4 = "Obje" Then
                If Left(cv, 7) = "ObjectC" Then
                    Sheets("sheet2").Cells(rowInSheet2, 5) = Right(cv, Len(cv) - 20)
                Else
                    Sheets("sheet2").Cells(rowInSheet2, 6) = Right(cv, Len(cv) - 20)
                End If
            ElseIf hdr4 = "SamA" Then
                Sheets("sheet2").Cells(rowInSheet2, 7) = Right(cv, Len(cv) - 20)
            ElseIf hdr4 = "SID " Then
                Sheets("sheet2").Cells(rowInSheet2, 8) = Right(cv, Len(cv) - 20)
            ElseIf hdr4 = "Surn" Then
                Sheets("sheet2").Cells(rowInSheet2, 9) = Right(cv, Len(cv) - 20)
            ElseIf hdr4 = "User" Then
                Sheets("sheet2").Cells(rowInSheet2, 10) = Right(cv, Len(cv) - 20)
            End If
        Else
            blankCounting = blankCounting + 1
        End If
    Loop
    MsgBox "Done."
End Sub

粘贴好代码的界面

5. 按F5运行代码，如果显示下面的信息那么信息已经转换好了，关掉VBA环境切换到Sheet2查看结果即可：

   
   运行成功会显示这个窗口
   

   对于大多数情况下，操作到此为止了，表格已经在Sheet2里整理好了。

注意：

1. 有可能上面提到的最后一步会提示由于安全原因等等导致代码不能执行，那么不要紧，在VBA环境下点击保存按钮，在弹出的另存为对话框中选择另存为类型为启用宏的工作簿Excel Macro-Enabled Workbook，然后保存。

2. 打开刚刚保存的工作簿，此时系统可能有个安全提示，点击开启内容Enable Content如下图：

   
   开启宏才能使用刚才建立的代码

3. 按ALT+F8，在列表中选择ADUserFormConvert然后点击运行Run，那么一样会得到第5步的结果。

   
   选中宏然后点运行

达叔傻乐(darwin.zuo@163.com)