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

2019-10-26 17:58:16

字體：大中小

來源：轉載

供稿：網友

復制代碼代碼如下:

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 作為參數傳遞：

上一篇：防止網頁腳本病毒執行的方法-from web

下一篇：利用VBS腳本輕松盜U盤數據