下面的函数主要利用了NT，W2K的活动目录服务一些组件接口，如IADsContainer 容器，IADs，IADsUser接口等。
1、删除一个用户（从本机器上）
BOOL __stdcall DeleteUser(char *username)
{
HRESULT hr;
IADsContainer *pContainer=NULL;
_bstr_t bstr;
DWord ll_len=255;
char lbBuffer[255];
::GetComputerName(lbBuffer,&ll_len);
bstr="WinNT://"+_bstr_t(lbBuffer)+","+_bstr_t("computer");
// 初 始化公寓线程
hr=CoInitialize(NULL);
hr= ADsGetObject(bstr,IID_IADsContainer,(void **)&pContainer);
pContainer->Delete(L"user",_bstr_t(username));
pContainer->Release();
CoUninitialize();
return FALSE;
}
2、增加一个用户
BOOL __stdcall AddUser(char *username,char *fullname,char *description)
{
HRESULT hr;
IADsContainer *pContainer=NULL;
IADs *pADs=NULL;
IDispatch *pDisp=NULL;
_bstr_t bstr;
DWORD ll_len=255;
char lbBuffer[255];
::GetComputerName(lbBuffer,&ll_len);
bstr="WinNT://"+_bstr_t(lbBuffer)+","+_bstr_t("computer");
// 初 始化公寓线程
hr=CoInitialize(NULL);
hr= ADsGetObject(bstr,IID_IADsContainer,(void **)&pContainer);
hr=pContainer->Create(L"user",_bstr_t(username),&pDisp);
pContainer->Release();
if( !SUCCEEDED(hr) ) { return hr; }
hr = pDisp->QueryInterface(IID_IADs, (void**) &pADs );
pDisp->Release();
if ( !SUCCEEDED(hr) ) { return 0;}
VARIANT var;
VariantInit(&var);
var.vt=VT_BSTR;
var.bstrVal=_bstr_t(fullname);
pADs->Put(L"FullName",var);
VariantClear(&var);
var.vt=VT_BSTR;
var.bstrVal=_bstr_t(description);
pADs->Put(L"Description",var);
VariantClear(&var);
hr=pADs->SetInfo();
hr=pADs->Release();
CoUninitialize();
return FALSE;
}
3、设置用户密码
BOOL __stdcall SetUserPwd(char *username,char *pwd)
{
HRESULT hr;
IADsUser *pUser;
_bstr_t bstr;
DWORD ll_len=255;
char lbBuffer[255];
::GetComputerName(lbBuffer,&ll_len);
bstr="WinNT://"+_bstr_t(lbBuffer)+"/"+_bstr_t(username)+",user";
file://初 始化公寓线程
hr=CoInitialize(NULL);
hr= ADsGetObject(bstr,IID_IADsUser,(void **)&pUser);
if (SUCCEEDED(hr))
{
hr=pUser->SetPassword(_bstr_t(pwd));
if(SUCCEEDED(hr))
{
CoUninitialize();
return TRUE;
}
}
CoUninitialize();
return FALSE;
}