嗨，DC。這其中的秘密就在于神秘的 userFlags 屬性。我們先向您介紹如何設(shè)置用戶帳戶以使用戶無法更改其密碼，然后介紹可以使用 userFlags 屬性管理的一些其他本地用戶帳戶屬性。運(yùn)氣好的話，還可以趕上吃午餐哩！

我們先來介紹可以防止用戶更改其密碼的腳本：

復(fù)制代碼 代碼如下:

Const ADS_UF_PASSWD_CANT_CHANGE = H0040 

Set objUser = GetObject("WinNT://atl-ws-01/kenmyer") 

If Not objUser.UserFlags AND ADS_UF_PASSWD_CANT_CHANGE Then 
    objPasswordNoChangeFlag = objUser.UserFlags XOR ADS_UF_PASSWD_CANT_CHANGE 
    objUser.Put "userFlags", objPasswordNoChangeFlag  
    objUser.SetInfo 
End If

首先，定義一個(gè)常量（它有一個(gè)好記的名稱 ADS_UF_PASSWD_CANT_CHANGE），我們需要用它來標(biāo)識(shí) userFlags 屬性內(nèi)的正確“開關(guān)”。userFlags 屬性是一種位掩碼屬性示例，它包含多個(gè)屬性和屬性值。姑且將位掩碼視為一組開關(guān)，每個(gè)開關(guān)表示一種不同的屬性。如果將“用戶不能更改密碼”開關(guān)打開，則用戶無法更改其密碼；如果將開關(guān)關(guān)閉，則用戶可以 更改其密碼。這部分內(nèi)容還算淺顯易懂；位掩碼唯一不好處理的地方是，“開關(guān)”名稱可不像“用戶不能更改密碼”這樣好記，它們使用的是類似于 H0040 的十六進(jìn)制值。要執(zhí)行這項(xiàng)任務(wù)，我們需要切換“H0040”開關(guān)，這就是我們定義這一常量的原因。

接下來，連接到計(jì)算機(jī) atl-ws-01 上的 kenmyer 帳戶。此時(shí)，我們檢查相關(guān)開關(guān)是否已打開。在使用位掩碼時(shí)，您通常會(huì)看到類似下面的代碼：

If objUser.UserFlags AND ADS_UF_PASSWD_CANT_CHANGE Then

我們可以用淺顯的語言來說明以上代碼：如果存在 userFlags 屬性，并且打開了 ADS_UF_PASSWD_CANT_CHANGE 開關(guān)，則該語句為真，并且應(yīng)執(zhí)行某種操作。就這項(xiàng)任務(wù)而言，我們并不關(guān)心處于打開狀態(tài)的開關(guān)；如果設(shè)置了“不能更改密碼”標(biāo)志，我們的工作即告完成。我們只關(guān)心處于關(guān)閉狀態(tài)的開關(guān)。因此，我們編寫了下面這行代碼；只有當(dāng)開關(guān)未 處于打開狀態(tài)時(shí)，它才會(huì)起作用：

If Not objUser.UserFlags AND ADS_UF_PASSWD_CANT_CHANGE Then

接下來的內(nèi)容可就真的 要讓您傷腦筋了。請(qǐng)看下面這行代碼：

objPasswordNoChangeFlag = objUser.UserFlags XOR ADS_UF_PASSWD_CANT_CHANGE

盡管看起來有點(diǎn)復(fù)雜，實(shí)際上這行代碼確實(shí)非常簡(jiǎn)單。我們此處執(zhí)行的全部操作是切換“用戶不能更改密碼”開關(guān)的值。這正是 XOR 命令的功能。如果開關(guān)處于打開狀態(tài)，則 XOR 將其關(guān)閉；如果開關(guān)處于關(guān)閉狀態(tài)，則 XOR 將其打開。我們要做的就是獲取 userFlags 屬性的當(dāng)前值，并切換“用戶不能更改密碼”開關(guān)。因?yàn)槲覀円呀?jīng)知道該開關(guān)處于關(guān)閉狀態(tài)（還記得我們剛才使用的“If Not”語句嗎？），所以 XOR 命令將該開關(guān)打開。變量 objPasswordNoChangeFlag 中包含的值將與當(dāng)前 userFlags 屬性中的值完全相同，唯一不同之處在于，“用戶不能更改密碼”開關(guān)此時(shí)處于打開狀態(tài)，而不是處于關(guān)閉狀態(tài)。

跟得上我們的思路嗎？腳本的其余部分就非常簡(jiǎn)單了。下面這行代碼將變量 objPasswordNoChangeFlag 的值寫入 userFlags 屬性：

objUser.Put "userFlags", objPasswordNoChangeFlag

然后，我們使用 SetInfo 命令將這些更改寫入用戶帳戶。通過運(yùn)行這樣一個(gè)腳本，使本地用戶 Ken Myer 不再擁有在計(jì)算機(jī) atl-ws-01 上更改其密碼的權(quán)限。

那么，如果您想允許 Ken Myer 更改其密碼，該怎么辦呢？那還不簡(jiǎn)單。只需檢查“用戶不能更改密碼”開關(guān)是否處于打開 狀態(tài)，如果是，則使用 XOR 將其關(guān)閉：

Const ADS_UF_PASSWD_CANT_CHANGE = H0040

Set objUser = GetObject("WinNT://atl-ws-01/kenmyer")

If objUser.UserFlags AND ADS_UF_PASSWD_CANT_CHANGE Then
  objPasswordNoChangeFlag = objUser.UserFlags XOR ADS_UF_PASSWD_CANT_CHANGE
  objUser.Put "userFlags", objPasswordNoChangeFlag 
  objUser.SetInfo
End If

唯一不同之處在于，我們從 If-Then 語句中刪除了 Not 一詞。這是因?yàn)椋覀儸F(xiàn)在想要 查找開關(guān)處于打開狀態(tài)的情況，然后將其關(guān)閉。

我們承認(rèn)，這些位掩碼屬性的確 讓人難懂。如果您想了解詳細(xì)信息（以及一些圖片），請(qǐng)參見“Microsoft Windows 2000 腳本編寫指南”中的這一部分。正如前面所承諾的一樣，我們?cè)谙旅媪谐隽丝梢允褂?userFlags 屬性進(jìn)行管理的一些其他本地用戶帳戶屬性：