Windows 2000 Active Directory 用戶管理程式開發實戰範例

前言：為何需要自訂管理介面？

雖然 Windows 2000 內建完善的 MMC 管理工具，但在實際專案（如終端機管理軟體、自助服務入口網站）中，往往需要將使用者管理功能（建立/刪除帳號、重設密碼、群組成員維護）整合至自有應用程式中，方便非技術人員操作。本文提供基於 ADSI（Active Directory Service Interfaces）與 WinNT/LDAP 提供者的 C++ 程式碼範例，展示核心使用者管理操作的實作邏輯。

核心介面與物件模型

• IADsContainer：容器介面，支援 Create、Delete 物件。
• IADs：通用目錄物件介面，支援 Put、Get、SetInfo 屬性操作。
• IADsUser：使用者專用介面，提供 SetPassword、ChangePassword、Groups 等方法。
• ADsGetObject：依 ADsPath 繫結至目錄物件的進入點函式。

實戰範例程式碼

環境假設： 本機電腦管理（WinNT:// 提供者），公寓執行緒模型，錯誤處理簡化為回傳 BOOL。

1. 刪除本機使用者

BOOL __stdcall DeleteUser(char *username) {
    HRESULT hr;
    IADsContainer *pContainer = NULL;
    _bstr_t bstr;
    DWORD dwLen = 255;
    char szComputer[255];
    ::GetComputerName(szComputer, &dwLen);

    // 繫結本機 WinNT 提供者
    bstr = "WinNT://" + _bstr_t(szComputer) + ",computer";
    hr = CoInitialize(NULL);
    hr = ADsGetObject(bstr, IID_IADsContainer, (void**)&pContainer);
    if (FAILED(hr)) { CoUninitialize(); return FALSE; }

    // 刪除使用者物件
    hr = pContainer->Delete(L"user", _bstr_t(username));
    pContainer->Release();
    CoUninitialize();
    return SUCCEEDED(hr);
}

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 dwLen = 255;
    char szComputer[255];
    ::GetComputerName(szComputer, &dwLen);

    bstr = "WinNT://" + _bstr_t(szComputer) + ",computer";
    hr = CoInitialize(NULL);
    hr = ADsGetObject(bstr, IID_IADsContainer, (void**)&pContainer);
    if (FAILED(hr)) { CoUninitialize(); return FALSE; }

    // 建立使用者物件
    hr = pContainer->Create(L"user", _bstr_t(username), &pDisp);
    pContainer->Release();
    if (FAILED(hr)) { CoUninitialize(); return FALSE; }

    // 取得 IADs 介面設定屬性
    hr = pDisp->QueryInterface(IID_IADs, (void**)&pADs);
    pDisp->Release();
    if (FAILED(hr)) { CoUninitialize(); return FALSE; }

    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();  // 送交寫入
    pADs->Release();
    CoUninitialize();
    return SUCCEEDED(hr);
}

3. 設定使用者密碼

BOOL __stdcall SetUserPwd(char *username, char *pwd) {
    HRESULT hr;
    IADsUser *pUser = NULL;
    _bstr_t bstr;
    DWORD dwLen = 255;
    char szComputer[255];
    ::GetComputerName(szComputer, &dwLen);

    // WinNT 路徑格式：WinNT:///,user
    bstr = "WinNT://" + _bstr_t(szComputer) + "/" + _bstr_t(username) + ",user";
    hr = CoInitialize(NULL);
    hr = ADsGetObject(bstr, IID_IADsUser, (void**)&pUser);
    if (SUCCEEDED(hr)) {
        hr = pUser->SetPassword(_bstr_t(pwd));
        pUser->Release();
        CoUninitialize();
        return SUCCEEDED(hr);
    }
    CoUninitialize();
    return FALSE;
}

關鍵實作細節與最佳實務

擴充功能建議

• 群組成員管理： 透過 IADsGroup::Add/Remove 操作 member 屬性。
• 使用者列舉： 使用 IADsContainer::_NewEnum 迭代容器下所有物件，篩選 Class == "user"。
• 屬性搜尋： 改用 IDirectorySearch (LDAP 提供者) 執行高效能分頁查詢。
• 封裝為 DLL/COM 元件： 供 VB/PowerBuilder/.NET 互操作呼叫，如原文提及提供 DLL 給 PB 專案使用。

結語

透過 ADSI 的標準化介面，開發人員可輕鬆將 Active Directory 的強大身分管理能力內嵌至自有應用系統。本文提供的三個核心函式（刪除、新增、設定密碼）涵蓋了使用者生命週期的基礎操作，搭配適當的錯誤處理、權限規劃與提供者選擇，即可構建穩健的整合式管理方案。