use Win32::OLE;
$Win32::OLE::Warn = 3;
my $strObjectDN = "cn=jnowak,cn=users,dc=rallencorp,dc=com";
my $objUser = Win32::OLE->GetObject("LDAP://" . $strObjectDN);
$objUser->Put("sn", "Nowak");
$objUser->SetInfo;
