move an object in active directory excel 2007 vba
 

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'


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

move an object in active directory excel 2007 vba
 

Hi P,

Perhaps you should consider posting your
question in:

microsoft.public.windows.server.active_directory

or

microsoft.public.scripting.vbscript



---
Regards.
Norman


"pghboemike" wrote in message
...
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'


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