Listing 3: ListAccts-SQL.vbs

Dim BaseDN, Connection, Command, Recordset

BaseDN = "DC=wascorp,DC=net"

' ******* BEGIN CALLOUT A *******
Set Connection = CreateObject("ADODB.Connection")
Connection.Provider = "ADsDSOObject"
Connection.Open()
' ******* END CALLOUT A *******

' ******* BEGIN CALLOUT B *******
Set Command = CreateObject("ADODB.Command")
Command.ActiveConnection = Connection
Command.Properties.Item("Cache results") = False
Command.Properties.Item("Page size") = 1000
Command.CommandText = "SELECT sAMAccountName,mail" _
  & " FROM 'LDAP://" & BaseDN & "' WHERE" _
  & " objectCategory='person' AND objectClass='user'"
' ******* END CALLOUT B *******

' ******* BEGIN CALLOUT C *******
Set Recordset = Command.Execute()
Do While Not Recordset.EOF
  WScript.Echo Recordset.Fields.Item("sAMAccountName").Value & vbTab _
    & Recordset.Fields.Item("mail").Value
  Recordset.MoveNext()
Loop
' ******* END CALLOUT C *******