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

# Kod definiuje skrypt logowania dla domenowego konta uytkownika
# ------ KONFIGURACJA SKRYPTU ------
$strUserDN = '<DomenoweKontoUytkownika>'; # np. cn=administrator,cn=users,dc=rallencorp,dc=com
$strScriptPath = '<NazwaSkryptu>'; # np. login.vbs
# ------ KONIEC KONFIGURACJI ---------
$objUser = Win32::OLE->GetObject('LDAP://' . $strUserDN);
$objUser->Put('scriptPath', $strScriptPath);
$objUser->SetInfo();
print 'Skrypt logowania zdefiniowano dla uytkownika ' . $objUser->Name, "\n";
