use Win32::OLE;
$Win32::OLE::Warn = 3;
my $strObjectDN = "<NazwaWyrniajcaObiektu>";
my $objUser = Win32::OLE->GetObject("LDAP://" . $strObjectDN);
$objUser->DeleteObject(0);
