use strict;
	use warnings;
	use diagnostics;
	use Win32::OLE;
	$Win32::OLE::Warn = 3;

	my $ldapStr="LDAP://CN=MyTest User,OU=Test,DC=ZZZZZZZZ,DC=local";
	my $userObject = Win32::OLE->GetObject($ldapStr);
	print "$userObject->{displayName}\n";
	$userObject->{displayName}="aaaabbbb";
	$userObject->SetInfo();
	print "$userObject->{displayName}\n";

##</code><code>##

cccaaabbbcccddd
ARRAY(0x52bf334)