在實(shí)際的應(yīng)用中，如我們要做一個(gè)服務(wù)器對(duì)終端的控制軟件，常需要管理用戶，當(dāng)然NT，W2K提供了完善的用戶管理模式，但有時(shí)我們并不希望從管理工具中去找啟動(dòng)用戶管理，這樣管理起來非常麻煩，我們常常希望能從我們的軟件上就可以管理NT，W2K的用戶，這樣對(duì)一些對(duì)操作系統(tǒng)不是很熟練的用戶來說是非常必要的。就最近就有人要求我為其寫一個(gè)終端管理軟件，我剛開始也覺得沒有什么必要，但經(jīng)他仔細(xì)說來覺得還是有必要的，他是用PB的，他說感覺好象很難做到，所以我只好為他編寫了一個(gè)DLL，其中帶有增加用戶，刪除用戶，修改密碼，增加用戶到組，從組中刪除，獲得用戶列表等等，由于篇幅太長(zhǎng)，不便于讀者閱讀，故省去了一些函數(shù)，如果需要請(qǐng)與本人聯(lián)系。 gxtlib@21cn.com

下面的函數(shù)主要利用了NT，W2K的活動(dòng)目錄服務(wù)一些組件接口，如IADsContainer 容器，IADs，IADsUser接口等。

1、刪除一個(gè)用戶（從本機(jī)器上）

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、增加一個(gè)用戶

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、設(shè)置用戶密碼

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; }