|
You
may need to include typelib references depending on what your
doing:
<!-- Active DS Type Library 1.0
-->
<reference guid="{97D25DB0-0363-11CF-ABC4-02608C9E7553}"/> <!-- Microsoft ActiveX Data Objects 2.7 Library --> <reference guid="{00000205-0000-0010-8000-00AA006D2EA4}"/> You
may need to use Object.Get (for single valued properties) or Object.GetEx
(for mutivalued properties), Object.Put (for single valued properties) or
Object.PutEx (for mutivalued properties), and then Object.SetInfo (instead
of oRs.Update), something like:
If Not
oRs.BOF Or oRs.EOF Then
Do While Not oRs.EOF
Set oObject =
GetObject(oRs("ADsPath"))
With oObject
.Put "givenname",
"John"
.Put "inititals", "Q."
.Put "sn", "Public"
.PutEx ADS_PROPERTY_UPDATE,
"description", Array("Human Resources Staff")
.PutEx ADS_PROPERTY_UPDATE,
"otherTelephone", Array("(987) 654-3210","(987) 987-6543")
.SetInfo
End With
oRs.MoveNext
Loop
Else
'-- empty recordset
End
If
__________________
|
- [ActiveDir] ADO Creamer, Mark
- RE: [ActiveDir] ADO Todd Povilaitis
- RE: [ActiveDir] ADO Creamer, Mark
- RE: [ActiveDir] ADO Todd Povilaitis
- RE: [ActiveDir] ADO Creamer, Mark
