A. The following script, which you can download here, outputs to file with a pipe (|) delimiter a user's given name, surname (sn), and email address. This output file can then be read into a Microsoft Excel spreadsheet with the pipe set as the delimiter for cell-based access to the data.

Option Explicit

Dim strFilePath, strLdapPath, objFSO, objFile, objConnection, objChild

' Check all arguments required have been passed
If Wscript.Arguments.Count  <filename> required. For example:" & vbCrLf _
& "cscript listuserswithemail.vbs ou=test,dc=demo,dc=test c:\User.txt"  
Wscript.Quit(0)
End If

strLdapPath = Wscript.Arguments(0)

strFilePath = Wscript.Arguments(1)

Set objFSO = CreateObject("Scripting.FileSystemObject")


' Open the file for write access.
On Error Resume Next
Set objFile = objFSO.OpenTextFile(strFilePath, 2, True, 0)
If Err.Number  0 Then
On Error GoTo 0
Wscript.Echo "File " & strFilePath & " cannot be opened"
Wscript.Quit(1)
End If
On Error GoTo 0

Set objConnection = GetObject("LDAP://" & strLdapPath)
objConnection.Filter = Array("user")

For Each objChild In objConnection
WScript.Echo objChild.Name & vbTab & objChild.givenName & " " _
  & objChild.sn & " " & objChild.mail
objFile.WriteLine objChild.givenName & "|" & objChild.sn & "|" & objChild.mail
Next

' Close file connection
objFile.Close

Wscript.Echo "Operation Completed"
</filename>

Run the script using the following command: D:\Temp>cscript listuserswithemail.vbs "ou=justice league,dc=savilltech,dc=com" listuserswithemail.txt The script produced this output when run on my system: CN=Arthur Curry Arthur Curry arthur@savilltech.net
CN=Barry Allen Barry Allen barry@savilltech.net
CN=Bruce Wayne Bruce Wayne bruce@savilltech.net
CN=Wally West Wally West Wally@savilltech.net