将用户移动到某个OU，则自动添加到某个特定组(win2008)

将用户移动到某个OU，则自动添加到某个特定组

dim i
Const ADS_PROPERTY_APPEND = 3

Set con = CreateObject("ADODB.Connection")
Set com = CreateObject("ADODB.Command")
'Open the connection with the ADSI-OLEDB provider name
Set objGroup = GetObject ("")

con.Provider = "ADsDSOObject"
con.Open

Com.ActiveConnection = con

Com.CommandText = "<>;" & "(objectClass=user);SamAccountName;subTree"
Set rs = Com.Execute()
i=0
Do Until rs.EOF
 
 

if right(rs.Fields("samAccountName"),1)<>"$" then
   sResultText = rs.Fields("SamAccountName")

    objGroup.PutEx ADS_PROPERTY_APPEND, "member", Array("cn="& sResultText &",ou=testou,dc=qiqinghua,dc=com")
    objGroup.SetInfo
i=i+1
 end if
 rs.movenext
 
Loop