如何使用腳本鎖定任務欄？

2020-07-26 12:05:56

字體：大中小

來源：轉載

供稿：網友

復制代碼代碼如下:

HKEY_CURRENT_USER = &H80000001  

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

strKeyPath = "Software/Microsoft/Windows/CurrentVersion/Explorer/Advanced"  
ValueName = "TaskBarSizeMove"  
dwValue = 0  

objReg.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, ValueName, dwValue 

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

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

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

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

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

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

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

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

現在我們所要做的就是調用 SetDWORDValue 方法，將常量 HKEY_CURRENT_USER 和變量 strKeyPath、ValueName 及 dwValue 作為參數傳遞：

objReg.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, ValueName, dwValue

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

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

上一篇：靈活實用的VBS入門教程基礎篇

下一篇：解鎖注冊表的vbs腳本