Here are some essentials that makes life easier.

Create Computer Account
 Code:
Dim $compname, $ldap, $comp
$compname = "TestPC2" ; can also use @WKSTA
$ldap = GetObject("LDAP://OU=SomeSubOU,OU=SomeOU,DC=SomeDomain,DC=SomeDomainExtention")
$comp = $ldap.Create("Computer","CN=" + $compname)
$comp.Put("samAccountName", $compname + "$")
$comp.Put("userAccountControl", 4096)
$comp.SetInfo


Move Computer Account
 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")


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