Moving a Computer Account

Moves a computer account from the Computers container in Active Directory to an OU.

Set objNewOU = GetObject("LDAP://OU=Finance,DC=fabrikam,DC=com")
Set objMoveComputer = objNewOU.MoveHere _
    ("LDAP://CN=atl-pro-03,CN=Computers,DC=fabrikam,DC=com", "CN=atl-pro-03")

This is a VB Script, this can be used by saving the file in .vbs file