my $oContainer = Win32::OLE->GetObject("LDAP://OU=Sales, DC=Company, DC=COM");
my $oUser = $oContainer->MoveHere("LDAP://CN=John Doe, OU=Marketing, DC=Company, DC=COM");
$oUser->SetInfo();