# Kod usuwa skrzynk pocztow uytkownika

use Win32::OLE;
$Win32::OLE::Warn = 3;

# ------ KONFIGURACJA SKRYPTU ------
$strUserDN = '<NazwaWyrniajcaUytkownika>'; # np. cn=jnowak,cn=Users,dc=rallencorp,dc=com
# ------ KONIEC KONFIGURACJI ---------
$objUser = Win32::OLE->GetObject('LDAP://' . $strUserDN);
$objUser->DeleteMailbox();
$objUser->SetInfo();
print "Z powodzeniem usunito skrzynk pocztow uytkownika.\n";
