我正在使用AD Server,我想获得 maxpwdAge属性值......
我已经为此尝试了ADSi,但它提出了一个问题。
VARIANT var;
bsNamingContext=L"maxpwdAge";
hr = ADsGetObject(pszADsPath, IID_IADsUser, (void**) &pUser);
if(SUCCEEDED(hr))
{
VariantInit(&var);
hr = pUser->Get(bsNamingContext, &var);
}
但是,它给出了-2147463155(8000500d)错误......
但我正在使用bsNamingContext=L"cn";
它正确地给出了CN值......
任何人都可以解决它吗?
答案 0 :(得分:2)
maxpwdAge未包含在用户/联系人/人LDAP类中,因此您无法以这种方式检索它。
您需要从域对象查询,而不是用户对象
试试这个:
Const ONE_HUNDRED_NANOSECOND = .000000100 ' .000000100 is equal to 10^-7
Const SECONDS_IN_DAY = 86400
Set objDomain = GetObject("LDAP://DC=fabrikam,DC=com") ' LINE 4
Set objMaxPwdAge = objDomain.Get("maxPwdAge") ' LINE 5
If objMaxPwdAge.LowPart = 0 Then
WScript.Echo "The Maximum Password Age is set to 0 in the " & _
"domain. Therefore, the password does not expire."
WScript.Quit
Else
dblMaxPwdNano = Abs(objMaxPwdAge.HighPart * 2^32 + objMaxPwdAge.LowPart)
dblMaxPwdSecs = dblMaxPwdNano * ONE_HUNDRED_NANOSECOND ' LINE 13
dblMaxPwdDays = Int(dblMaxPwdSecs / SECONDS_IN_DAY) ' LINE 14
WScript.Echo "Maximum password age: " & dblMaxPwdDays & " days"
End If
<强>更新强>
要将大整数转换为人类可读值,请使用IADsLargeInteger dispatch interface
注1 :示例是在VB中,但由于COM,您可以轻松地重写它。
注意2 :不是每个用户配置maxpwdAge,而是按域配置(直到启用细粒度密码策略)
进一步阅读: