用vbs實(shí)現(xiàn)防止計(jì)算機(jī)使用 LMHosts 文件

問(wèn)：

您好，腳本專家！如何防止計(jì)算機(jī)使用 LMHosts 文件？

-- MJ

答：

您好，MJ。您知道，這是個(gè)有趣的問(wèn)題，至少對(duì)“腳本專家”來(lái)說(shuō)是這樣。不是因?yàn)槟_本難以編寫(xiě)；這實(shí)際上非常簡(jiǎn)單。困難的是（至少對(duì)我們來(lái)說(shuō)）在 Windows GUI 中找到 LMHosts 設(shè)置；這是我們需要做的，以便我們可以驗(yàn)證腳本實(shí)際上起作用。在一段盲目的查找之后（這對(duì)“腳本專家”來(lái)說(shuō)很尋常）我們最終找到了要找的東西：

以防您與“腳本專家”一樣一竅不通（對(duì)于您來(lái)說(shuō)，但愿不是這樣），以下是到達(dá)此對(duì)話框的操作步驟：

像我們說(shuō)的那樣，找到 LMHosts 復(fù)選框是最難的部分；清除復(fù)選框（即防止計(jì)算機(jī)使用 LMHosts 文件）就簡(jiǎn)單了：

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

On Error Resume Next   
Const USE_WINS = False 
Const USE_LMHOST_FILE = False 

strComputer = "." 
Set objWMIService = GetObject("winmgmts:\\"  strComputer  "\root\cimv2") 

Set objNetworkSettings = objWMIService.Get("Win32_NetworkAdapterConfiguration") 
errResult = objNetworkSettings.EnableWINS(USE_WINS, USE_LMHOST_FILE) 

Wscript.Echo errResult

我們?cè)谀_本開(kāi)始定義了一對(duì)常量（USE_WINS 和 USE_LMHOST_FILE）并將他們?cè)O(shè)置為 False。我們使用常量 USE_WINS 告訴腳本我們要完全禁用 WINS（Windows Internet 命名服務(wù)）的使用。如果不是這樣的話（如果您要繼續(xù)使用 WINS，只是不使用 LMHosts 文件）則將 USE_WINS 的值設(shè)置為 True。

同時(shí)，常量 USE_LMHOST_FILE 告訴腳本我們是否要使用 LMHosts 文件。我們將此常量設(shè)置為 False，因?yàn)槲覀儗⒉?I>使用 LMHosts。如果您改變了想法而決定使用 LMHosts，只需將此常量設(shè)置為 True。

當(dāng)然這非常簡(jiǎn)單。通過(guò)編寫(xiě)腳本解決問(wèn)題總是非常簡(jiǎn)單。

嗯，好吧：幾乎總是。

下一步是連接到本地計(jì)算機(jī)上的 WMI 服務(wù)（盡管我們還可以在遠(yuǎn)程計(jì)算機(jī)上執(zhí)行此操作）。接下來(lái)是下面這行代碼：

Set objNetworkSettings = objWMIService.Get("Win32_NetworkAdapterConfiguration")

您說(shuō)對(duì)了：這有點(diǎn)不尋常。在大多數(shù) WMI 腳本中，此時(shí)我們本該調(diào)用 ExecQuery 方法，接著 ExecQuery 為我們返回一個(gè)對(duì)象的集合來(lái)處理。您可能已經(jīng)注意到在此腳本中我們根本沒(méi)有使用 ExecQuery。為什么不使用呢？嗯，EnableWINS 方法（用來(lái)關(guān)閉 WINS 和 LMHosts 文件的方法）是“靜態(tài)”方法。靜態(tài)方法無(wú)法操作對(duì)象的集合；而它只能操作類本身。這表示，您綁定到 Win32_NetworkAdapterConfiguration 類（使用 Get 方法），然后調(diào)用 EnableWINS。最終結(jié)果為：所有類的實(shí)例（即，計(jì)算機(jī)上的所有網(wǎng)絡(luò)適配器）將使 LMHosts 禁用。如果您有多個(gè)網(wǎng)絡(luò)適配器，沒(méi)有規(guī)則允許在一個(gè)適配器上禁用 LMHosts 而在另一個(gè)適配器上啟用它。只能是全部啟用或全部禁用。

此時(shí)，我們僅調(diào)用 EnableWINS 方法，依次傳遞常量 USE_WINS 和 USE_LMHOST_FILE：

errResult = objNetworkSettings.EnableWINS(USE_WINS, USE_LMHOST_FILE)

請(qǐng)注意，我們捕獲了變量 errResult 中的返回代碼（操作的結(jié)果）。我們?cè)谀_本的最后一行回顯此返回代碼。如果 errResult 等于 0，則表示操作成功并且 LMHosts 已被禁用。如果 errResult 為非 0 的任何值，嗯，那就出問(wèn)題了。在這種情況下，應(yīng)該檢查 WMI SDK 以獲得一份 EnableWINS 錯(cuò)誤代碼的詳細(xì)列表。

這個(gè)問(wèn)題的答案就是這樣。您現(xiàn)在擁有了可禁用 LMHosts 的腳本，而“腳本專家”則了解了在 GUI 中找到 LMHosts 設(shè)置的方法。這是個(gè)雙贏的結(jié)果！