Move Active Directory Objects

/**
 *    Script:   moveADObject.js
 *    Purpose:  Moves Active Directory Objects from
 *              one OU to another.
 *    Author:   Daren Thiel 
 *    Date:     12 May 2004 
 *    Web:      http://www.winscripter.com
 *   
 *    Note:     Hardcoded example that moves the user named
 *              George Jetson from the Sales\East OU to the
 *              Sales\West OU.  We also move George's computer
 *              account as well.
 **/
// Define User 
var userobj = "CN=George Jetson";
var compobj = "CN=Comp1";
// Path to OU which contains user account
var srccont = "OU=East,OU=Sales,DC=pdc,DC=tse,DC=com";
// Path to destination OU
var dstcont = "OU=West,OU=Sales,DC=pdc,DC=tse,DC=com";
// Call our function
MoveObject( userobj, srccont, dstcont );
MoveObject( compobj, srccont, dstcont );
// Move Object from one OU to another
function MoveObject( userobj, srccont, dstcont )
{
 try
 {
  // Build LDAP Paths
  var ldapdst = "LDAP://" + dstcont;
  var ldapusr = "LDAP://" + userobj + "," + srccont;
  
  // Bind to Destination Container
  var dcon = GetObject( ldapdst );
  
  // Move object to destination OU
  dcon.MoveHere( ldapusr, userobj );
 }
 catch( e )
 {
  print( "Error: " + e.description );
 
  // Check for 'object not found'  normally a path
  // problem.  Additional error codes can be trapped
  // for, see MDSN 'system error codes' for more.
  if( ( e.number & 0xFFFF ) == 8240 )
   print( "Object not found" );
  else
   print( "  Num: " + ( e.number & 0xFFFF ) );
 }
}
function print( msg )
{
 WScript.Echo( msg );
}