'ADPhoneBook.vbs
'This is sample code you could use to create a phone book
'based on user account information in Active Directory
'Keywords: ADSI, RootDSE, ADSDOObject
On Error Resume Next

Dim objConn,objCmd,objRS 
Set objConn=Createobject("ADODB.Connection")
Set objCmd=CreateObject("ADODB.Command")
Set objRoot=Getobject("LDAP://RootDSE")
Set objDomain=Getobject("LDAP://"& objRoot.get("DefaultNamingContext"))
strQuery="Select cn,telephonenumber,physicaldeliveryofficename,mail from '" & _ 
 objDomain.AdsPath & "' Where objectCategory='person' AND " & _
 "objectclass='user'"
set objCatalog=Getobject("GC:")
for each objItem In objCatalog
    Set objGC=objItem
Next
objConn.Provider="ADSDSOobject"
objConn.Open "Active Directory Provider"
objCmd.ActiveConnection=objConn
objCmd.Properties("Page Size") = 100
objCmd.Properties("asynchronous")=True
objCmd.Properties("Timeout") =30
objCmd.Properties("Cache Results") = False
objCmd.CommandText=strQuery
set objRS=objCmd.Execute
do while not objRS.EOF
   WScript.Echo objRS.Fields("cn")
   WScript.Echo objRS.Fields("telephonenumber")
   WScript.Echo objRS.Fields("physicaldeliveryofficename")
   WScript.Echo objRS.Fields("mail")
    objRS.movenext
Loop
objRS.Close
objConn.Close