vbs脚本操作AD

'    以下是连接ad并进行查询的脚本

 

 

 Const ADS_SCOPE_SUBTREE = 4

Set objConnection = CreateObject("ADODB.Connection")
Set objCommand =   CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection

objCommand.Properties("Page Size") = 5000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
'objCommand.Properties("Filter") = "User"

objCommand.CommandText = _
    "SELECT cn,pager,distinguishedName FROM 'LDAP://ou=1_UserAccount,dc=cu,dc=local' where objectClass = 'user'" 
Set objRecordSet = objCommand.Execute

objRecordSet.MoveFirst
Do Until objRecordSet.EOF
 
 '此处添加运行存储过程代码
   
   'ad的用户属性值均通过此方法获得
   
    strDN = objRecordSet.Fields("distinguishedName").Value
    wscript.echo strDN
  ' 
   
   
    objRecordSet.MoveNext
Loop