パスワード ポリシーの変更

会社にサイトごとに定義された異なるパスワード ポリシーがあり、特定のパスワード ポリシー要件を標準化することを決定したと想定します。以下のスクリプトは各サイトで新しいパスワード ポリシー定義を設定するために実行できます。
casso127jpjp
会社にサイトごとに定義された異なるパスワード ポリシーがあり、特定のパスワード ポリシー要件を標準化することを決定したと想定します。以下のスクリプトは各サイトで新しいパスワード ポリシー定義を設定するために実行できます。
use Netegrity::PolicyMgtAPI;
$policymgtapi = Netegrity::PolicyMgtAPI->New();
$session = $policymgtapi->CreateSession("adminid", "adminpwd");
@pwdpols=$session->GetAllPwdPolicies();
foreach $pwdpol(@pwdpols) {
   $pwdpol->Description("Standardized settings 4/15/02");
   print "\n\nPwd Policy: " . $pwdpol->Name();
   print "\nUpdated the following settings:";
   print "\n  Minimum length:\t".$pwdpol->PwdMinLength(6);
   print "\n  Maximum length:\t".$pwdpol->PwdMaxLength(18);
   print "\n  Minimum digits:\t".$pwdpol->PwdMinNumbers(3);
   print "\n  Allowable failures:\t".$pwdpol->MaxLoginFailures(3);
   print "\n  Days before reuse:\t".$pwdpol->PwdReuseDelay(360);
   print "\n  Changes before reuse:\t".$pwdpol->PwdReuseCount(6);
   $pwdpol->Save();
}