ｿｽgｿｽbｿｽv > Visual C++ Q & Aｿｽfｿｽｿｽｿｽｿｽ > 201003 >

ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO

ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++

ｿｽﾖ連ｿｽTｿｽCｿｽg

ｿｽEｿｽeｿｽ言ｿｽｿｽfｿｽｿｽｿｽｿｽ

ｿｽﾇゑｿｽ 2010/03/17(ｿｽｿｽ) 14:20:27

ｿｽｿｽｿｽﾂゑｿｽｿｽｿｽｿｽｿｽbｿｽﾉなゑｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽB
WinXPProSP2+VS.net2008(SDK)ｿｽﾅ表ｿｽｿｽﾌ擾ｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽcｿｽ[ｿｽｿｽｿｽｿｽJｿｽｿｽｿｽｿｽｿｽﾄゑｿｽ
ｿｽﾜゑｿｽｿｽB

ADSIｿｽｿｽｿｽｿｽいｿｽ調ｿｽﾗて、ADｿｽﾌｿｽｿｽ[ｿｽgDNｿｽｿｽｿｽｿｽGetｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽﾅ「maxPwdAgeｿｽvｿｽｿｽ謫ｾ
ｿｽｿｽｿｽAｿｽｿｽｿｽ[ｿｽUｿｽﾌ最終ｿｽpｿｽXｿｽｿｽｿｽ[ｿｽhｿｽﾏ更ｿｽｿｽｿｽｿｽ(ｿｽupwdLastSetｿｽvｿｽﾆ思ｿｽｿｽｿｽｿｽ)ｿｽｿｽ謫ｾｿｽｿｽｿｽA
ｿｽｿｽｿｽｿｽｿｽﾌ値ｿｽｿｽｿｽｿｽvｿｽZｿｽﾅゑｿｽｿｽｿｽｿｽｿｽﾛゑｿｽｿｽｿｽｿｽﾜでわかｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

Getｿｽｿｽｿｽ¥ｿｽbｿｽhｿｽﾅ、ｿｽｿｽL2ｿｽﾂの値ｿｽﾍ取得ｿｽﾅゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽ謫ｾｿｽｿｽｿｽｿｽｿｽlｿｽｿｽvtｿｽｿｽmｿｽFｿｽｿｽ
ｿｽｿｽｿｽ9(VT_DISPATCH)ｿｽﾆなゑｿｽｿｽﾄゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

IDispatchｿｽﾉ関ゑｿｽｿｽﾄ擾ｿｽｿｽｿｽｿｽｿｽｿｽﾗてみゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽEｿｽEｿｽE(ｿｽｿｽ)

ｿｽｿｽｿｽﾌ取得ｿｽｿｽｿｽｿｽｿｽlｿｽｿｽｿｽｿｽpｿｽXｿｽｿｽｿｽ[ｿｽhｿｽﾌ有ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謫ｾｿｽｿｽｿｽｿｽﾉはどの様ｿｽﾉゑｿｽｿｽｿｽﾎよい
ｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽﾜゑｿｽｿｽAｿｽｿｽｿｽｿｽﾆ簡単ｿｽﾉ取得ｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH

ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ包ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ痰｢ｿｽﾜゑｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

exeｿｽｿｽｿｽsｿｽｿｽｿｽ[ｿｽUｿｽﾌパｿｽXｿｽｿｽｿｽ[ｿｽhｿｽﾌ有ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謫ｾｿｽｿｽｿｽ謔､ｿｽﾆゑｿｽｿｽﾄ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌソｿｽ[ｿｽX
ｿｽｿｽﾈ会ｿｽｿｽﾉ記ｿｽﾚゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

BSTRl_bstrUserPath=NULL;
VARIANTl_verDomainName;
VARIANTl_verMaxPassAge;
VARIANTl_verLastPassChange;
IADsADSystemInfo*l_ADSISysInfo;
IADs*l_pIADs;
WCHAR*l_pwUserPath=NULL;
WCHAR*l_pwDomain=NULL;

//RootDSEｿｽｿｽｿｽｿｽADｿｽﾌパｿｽXｿｽｿｽｿｽ[ｿｽhｿｽｿｽｿｽｿｽｿｽｿｽ謫ｾ
if(FAILED(ADsGetObject(L"LDAP://RootDSE",IID_IADs,(void**)&l_pIADs)))
{
returnFALSE;
}
if(FAILED(l_pIADs->Get(L"defaultNamingContext",&l_verDomainName)))
{
l_pIADs->Release();
returnFALSE;
}

l_pwDomain=newWCHAR[lstrlen(L"LDAP://")+lstrlen(l_verDomainName.bstrVal)+1];
if(l_pwDomain==NULL)
{
VariantClear(&l_verDomainName);
l_pIADs->Release();
returnFALSE;
}

lstrcpy(l_pwDomain,L"LDAP://");
lstrcat(l_pwDomain,l_verDomainName.bstrVal);
l_pwDomain[lstrlen(L"LDAP://")+lstrlen(l_verDomainName.bstrVal)]=L'¥0';


l_pIADs->Release();
if(FAILED(ADsGetObject(l_pwDomain,IID_IADs,(void**)&l_pIADs)))
{
if(l_pwDomain!=NULL)
{
delete[]l_pwDomain;
l_pwDomain=NULL;
}
returnFALSE;
}

if(l_pwDomain!=NULL)
{
delete[]l_pwDomain;
l_pwDomain=NULL;
}

if(FAILED(l_pIADs->Get(L"maxPwdAge",&l_verMaxPassAge)))
{
l_pIADs->Release();
returnFALSE;
}

l_pIADs->Release();

//ｿｽｿｽｿｽOｿｽIｿｽｿｽｿｽｿｽｿｽ[ｿｽUｿｽｿｽ
if(FAILED(CoCreateInstance(CLSID_ADSystemInfo,NULL,CLSCTX_INPROC_SERVER,IID_IADsADSystemInfo,(void**)&l_ADSISysInfo)))
{
returnFALSE;
}

if(FAILED(l_ADSISysInfo->get_UserName(&l_bstrUserPath)))
{
l_ADSISysInfo->Release();
returnFALSE;
}

l_pwUserPath=newWCHAR[lstrlen(L"LDAP://")+lstrlen(l_bstrUserPath)+1];
if(l_pwUserPath==NULL)
{
l_ADSISysInfo->Release();
returnFALSE;
}

lstrcpy(l_pwUserPath,L"LDAP://");
lstrcat(l_pwUserPath,l_bstrUserPath);
l_pwUserPath[lstrlen(L"LDAP://")+lstrlen(l_bstrUserPath)]=L'¥0';

if(FAILED(ADsGetObject(l_pwUserPath,IID_IADs,(void**)&l_pIADs)))
{
if(l_pwUserPath!=NULL)
{
delete[]l_pwUserPath;
l_pwUserPath=NULL;
}
l_ADSISysInfo->Release();
returnFALSE;
}

//ｿｽpｿｽXｿｽｿｽｿｽ[ｿｽhｿｽﾌ最終ｿｽﾏ更ｿｽｿｽｿｽｿｽｿｽｿｽ謫ｾ
if(FAILED(l_pIADs->Get(L"pwdLastSet",&l_verLastPassChange)))
{
if(l_pwUserPath!=NULL)
{
delete[]l_pwUserPath;
l_pwUserPath=NULL;
}
l_ADSISysInfo->Release();
returnFALSE;
}

//ｿｽeｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
VariantClear(&l_verMaxPassAge);
VariantClear(&l_verLastPassChange);
l_pIADs->Release();
if(l_pwUserPath!=NULL)
{
delete[]l_pwUserPath;
l_pwUserPath=NULL;
}
l_ADSISysInfo->Release();
SysFreeString(l_bstrUserPath);
returnTRUE;

ｿｽIｿｽVｿｽｿｽｿｽE 2010/03/18(ｿｽｿｽ) 02:19:07

ｿｽﾟ具ｿｽｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽH

http://madia.world.coocan.jp/cgi-bin/Vcbbs/wwwlng.cgi?print+200906/09060015.txt

ｿｽﾅ、ｿｽLｿｽpｿｽﾈ擾ｿｽがゑｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽEｿｽEｿｽE

ｿｽﾈ擾ｿｽBｿｽQｿｽlｿｽﾜゑｿｽ

ｿｽﾇゑｿｽ 2010/03/18(ｿｽｿｽ) 15:11:10

ｿｽIｿｽVｿｽｿｽｿｽEｿｽｿｽｿｽｿｽ

ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽ!!
ｿｽｿｽﾏ参ｿｽlｿｽﾉなゑｿｽAｿｽｿｽｿｽｿｽｿｽ謫ｾｿｽｿｽｿｽ驍ｱｿｽﾆゑｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
(get_PasswordExpirationDateｿｽｿｽLDAP://ｿｽﾅはなゑｿｽWijnNT://ｿｽﾅとゑｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽﾅゑｿｽｿｽﾋ。GetUserNameExｿｽﾅｿｽｿｽ[ｿｽUｿｽｿｽｿｽｿｽ謫ｾｿｽｿｽｿｽ骼厄ｿｽﾉゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽOｿｽO)

ｿｽ{ｿｽｿｽｿｽﾉゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽIｿｽI

ｿｽQｿｽlｿｽﾉゑｿｽｿｽｿｽlｿｽﾍゑｿｽｿｽﾈゑｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽAｿｽ成ｿｽｿｽｿｽｿｽｿｽ¥ｿｽ[ｿｽXｿｽ抜撰ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

IADsUser*lpIADsUser;
WCHAR*l_pwUserPath=NULL;
DATEl_PasswordExpirationDate;
SYSTEMTIMEl_stPasswordExpirationDate;

WCHARUserName[1024];
DWORDlenUserName;


//ｿｽudomain¥userｿｽvｿｽﾅｿｽｿｽ[ｿｽUｿｽｿｽｿｽｿｽ謫ｾ
GetUserNameEx(NameSamCompatible,UserName,&lenUserName);

//ｿｽu¥ｿｽvｿｽｿｽｿｽu/ｿｽvｿｽﾉ置ｿｽｿｽ(ｿｽudomain/userｿｽvｿｽﾉゑｿｽｿｽｿｽ)
for(;lenUserName>0;lenUserName--)
{
if(UserName[lenUserName]==L'¥¥')

UserName[lenUserName]=L'/';
}
}


//ADSIｿｽﾅ擾ｿｽｿｽｿｽ謫ｾｿｽｿｽｿｽ驍ｽｿｽﾟの包ｿｽｿｽｿｽｿｽｿｽｿｽ成()
l_pwUserPath=newWCHAR[lstrlen(L"WinNT://")+lstrlen(UserName)+1];
if(l_pwUserPath==NULL)
{
returnFALSE;
}
lstrcpy(l_pwUserPath,L"WinNT://");
lstrcat(l_pwUserPath,UserName);
l_pwUserPath[lstrlen(L"WinNT://")+lstrlen(UserName)]=L'¥0';

//ｿｽｿｽｿｽ[ｿｽUｿｽｿｽｿｽｿｽ謫ｾ
if(FAILED(ADsGetObject(l_pwUserPath,IID_IADsUser,(void**)&lpIADsUser)))
{
//ｿｽeｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
if(l_pwUserPath!=NULL)
{
delete[]l_pwUserPath;
l_pwUserPath=NULL;
}
returnFALSE;
}

//ｿｽpｿｽXｿｽｿｽｿｽ[ｿｽhｿｽLｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謫ｾ
if(FAILED(lpIADsUser->get_PasswordExpirationDate(&l_PasswordExpirationDate)))
{
MessageBox(NULL,L"ｿｽpｿｽXｿｽｿｽｿｽ[ｿｽhｿｽLｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謫ｾｿｽｿｽｿｽs",L"Debug",MB_OK);
//ｿｽeｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
if(l_pwUserPath!=NULL)
{
delete[]l_pwUserPath;
l_pwUserPath=NULL;
}
returnFALSE;
}

//(ｿｽKｿｽvｿｽｿｽｿｽｿｽｿｽｿｽｿｽ)VARIANTTimeｿｽｿｽSystemTimeｿｽﾉ変奇ｿｽ
//VariantTimeToSystemTime((DOUBLE)l_PasswordExpirationDate,&l_stPasswordExpirationDate);



//ｿｽeｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
lpIADsUser->Release();
if(l_pwUserPath!=NULL)
{
delete[]l_pwUserPath;
l_pwUserPath=NULL;
}
returnTRUE;

Created by board of various Programming Library.