事實證明，通過切換注冊表中的一個值就可以鎖定或者解除鎖定任務(wù)欄；更確切地說，就是通過切換注冊表值 Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\TaskBarSizeMove。將該值設(shè)置為 0 即可鎖定任務(wù)欄；將其設(shè)置為 1 就可解除鎖定任務(wù)欄。正如您可能預(yù)想的那樣，要鎖定任務(wù)欄，我們的腳本只需將 TaskBarSizeMove 的值設(shè)置為 0 就萬事大吉了。

要實現(xiàn)該功能，該腳本首先要定義一個名為 HKEY_CURRENT_USER 的常量，并將其值設(shè)置為 &H80000001；我們將使用這個常量來指示腳本要處理哪個注冊表配置單元。（鎖定和解除鎖定任務(wù)欄均是針對單個用戶完成的。）然后，我們利用以下兩行代碼連接到本地計算機上的 WMI 服務(wù)：

strComputer = "."
Set objReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")

不過不用擔(dān)心；您并不僅限于在本機上運行該腳本。而是很容易就可以對該腳本進行修改，以在遠程計算機環(huán)境下運行。為此，只需將計算機的名稱賦值給變量 strComputer 即可。例如，下面的代碼會綁定到名為 atl-ws-01 的計算機上的 WMI 服務(wù)：

strComputer = "atl-ws-01"
Set objReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")

這會比往返于各辦公室并手動鎖定 300 到 400 臺計算機上的任務(wù)欄更輕松嗎？我們不能確切地下這種結(jié)論，但它聽起來的確要輕松些，不是嗎？

在連接到 WMI 服務(wù)后，可將注冊表路徑 (Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced) 賦值給一個名為 strKeyPath 的變量。然后再將我們要更改的實際的注冊表值 (TaskBarSizeMove) 賦值給一個名為 ValueName 的變量。最后，再將值 0 賦值給一個名為 dwValue 的變量。該變量代表了我們要賦值給 TaskBarSizeMove 的值。 

注意：如果我們想解除鎖定任務(wù)欄而不是想對其進行鎖定怎么辦？沒問題；只需將值 1 賦值給 dwValue 即可。


現(xiàn)在我們所要做的就是調(diào)用 SetDWORDValue 方法，將常量 HKEY_CURRENT_USER 和變量 strKeyPath、ValueName 及 dwValue 作為參數(shù)傳遞：

objReg.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, ValueName, dwValue

這樣就大功告成了，但您可能必須先注銷，然后再次登錄，此更改才能真正生效。因此，您可能想要將該代碼添加到注銷腳本；這樣當(dāng)用戶注銷時，更改就會自動生效。用戶下次登錄時，任務(wù)欄將會被鎖定。

我們的腳本專家是多么迫切地希望他在 10 年前就會編寫出這樣的腳本。當(dāng)然，即使這樣，他也仍必須將該腳本復(fù)制到一張軟盤上，然后隨身帶著這張軟盤往返于各辦公室。此外，那時既沒有 Windows Script Host 也沒有 WMI，因此運行該腳本還是有一些難度。但這些只是一些瑣碎的事情，我們的腳本專家必然會找到一個避開這類小問題的方法。

最新評論