moving an active directory object

P

pghboemike

i have the code below which i would like to use to move computers from one
place to another in active directory.

the erro is 'there is no object on the server' but the
OU=Computers,OU=schoo1,OU=ALL-SCHOOLS,DC=mydomain,DC=loc does exist


i have set refrence to the active ds type lib

suggestions???

thanks

Sub move2()
' set refrence to the active ds type lib

Dim cont As ActiveDs.IADsContainer
Dim strcomp As ActiveDs.IADsComputer


Set cont = GetObject("LDAP://dc=mydomain,dc=loc")


Set strcomp =
cont.moveHere("LDAP://cn=WS-307-143-A03,OU=Computers,OU=schoo1,OU=ALL-SCHOOLS,DC=mydomain,DC=loc", vbNullString)

End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

move an object in active directory excel 2007 vba 1
Active Directory - during synchronization groups are ignored 1
Can't update LDAP with variable 0
Active Directory Enterprise Resource Pool Synchronization-ERROR 0
Array Limit 4
Array again limit 8
Active Directory Synchronisation Partial Failure 2
Importing a user list from AD into an Excel document 0

Top