I Posted this earlier in the COM scripting department under "ADSI Computer Account Essentials"

 Code:
$ldap = GetObject("LDAP://OU=SomeSubOU,OU=SomeOU,DC=SomeDomain,DC=SomeDomainExtention")
$ = $ldap.MoveHere("LDAP://CN=TestPC2,OU=SomeNEWOU,OU=SomeOU,DC=SomeDomain,DC=SomeDomainExtention","CN=TestPC2")