I have a script that will move an object from one container to
another... works fine so long as there isn't a comma in the objects
distinguished name... there something different that I need to do when
using Win32::OLE for this case?

For example... 
This would move
distinguishedName.... CN=UMR Comp Svcs Test 1
(UMR-Student),CN=Users,DC=umr,DC=edu

This WON'T move
distinguishedName.... CN=UMR Comp Svcs\, Test 1
(UMR-Student),CN=Users,DC=umr,DC=edu

That's the only difference that I can find... the moment I take the
comma out of the dn... it works... unfortunately the forest admin
creates accounts in such a way that the format looks like this:
Lastname, Firstname (UMR-Student)

Thanks for any suggestions/help.



my ($sam, $dn, $cn, $targetOU) = @_;
#my $UserObject = "LDAP://".$cn.",CN=Users,DC=umr,DC=edu";;
my $UserObject = "LDAP://".$dn;
my $RelativeName = "CN=".$cn;
my $TargetContainer = "LDAP://".$targetOU;

print "\n\ncount:  $count\n";
print "moving $sam\n";
print "UserObject is: $UserObject\n";
print "RelativeName is: $RelativeName\n";
print "Target is: $TargetContainer\n";

#Bind to the TARGET Container (OU)
my $Container = Win32::OLE->GetObject($TargetContainer);

# "pull" the object from where it is to where I'm at...
$Container->MoveHere($UserObject,$RelativeName);




---------------------------------------
Jeffrey Edgington
Systems Administrator
University of Missouri - Rolla
Are you a Spectator or a Participant?
--------------------------------------- 
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Reply via email to