用vbs實(shí)現(xiàn)防止計(jì)算機(jī)使用 LMHosts 文件
問:
您好,腳本專家!如何防止計(jì)算機(jī)使用 LMHosts 文件?
-- MJ
答:
您好,MJ。您知道,這是個(gè)有趣的問題,至少對(duì)“腳本專家”來說是這樣。不是因?yàn)槟_本難以編寫;這實(shí)際上非常簡(jiǎn)單。困難的是(至少對(duì)我們來說)在 Windows GUI 中找到 LMHosts 設(shè)置;這是我們需要做的,以便我們可以驗(yàn)證腳本實(shí)際上起作用。在一段盲目的查找之后(這對(duì)“腳本專家”來說很尋常)我們最終找到了要找的東西:
以防您與“腳本專家”一樣一竅不通(對(duì)于您來說,但愿不是這樣),以下是到達(dá)此對(duì)話框的操作步驟:
1. |
從“控制面板”的“網(wǎng)絡(luò)連接”中,選取任意的網(wǎng)絡(luò)連接。 |
2. |
在此連接的“屬性”對(duì)話框中選擇“Internet 協(xié)議 (TCP/IP)”,然后單擊“屬性”。 |
3. |
在“Internet 協(xié)議 (TCP/IP) 屬性”對(duì)話框中單擊“高級(jí)”。 |
4. |
在“高級(jí) TCP/IP 設(shè)置”對(duì)話框中查看“WINS”選項(xiàng)卡。您的設(shè)置就在這里。 |
像我們說的那樣,找到 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è)谀_本開始定義了一對(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)單。通過編寫腳本解決問題總是非常簡(jiǎn)單。
嗯,好吧:幾乎總是。
下一步是連接到本地計(jì)算機(jī)上的 WMI 服務(wù)(盡管我們還可以在遠(yuǎn)程計(jì)算機(jī)上執(zhí)行此操作)。接下來是下面這行代碼:
Set objNetworkSettings = objWMIService.Get("Win32_NetworkAdapterConfiguration")
您說對(duì)了:這有點(diǎn)不尋常。在大多數(shù) WMI 腳本中,此時(shí)我們本該調(diào)用 ExecQuery 方法,接著 ExecQuery 為我們返回一個(gè)對(duì)象的集合來處理。您可能已經(jīng)注意到在此腳本中我們根本沒有使用 ExecQuery。為什么不使用呢?嗯,EnableWINS 方法(用來關(guān)閉 WINS 和 LMHosts 文件的方法)是“靜態(tài)”方法。靜態(tài)方法無法操作對(duì)象的集合;而它只能操作類本身。這表示,您綁定到 Win32_NetworkAdapterConfiguration 類(使用 Get 方法),然后調(diào)用 EnableWINS。最終結(jié)果為:所有類的實(shí)例(即,計(jì)算機(jī)上的所有網(wǎng)絡(luò)適配器)將使 LMHosts 禁用。如果您有多個(gè)網(wǎng)絡(luò)適配器,沒有規(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 的任何值,嗯,那就出問題了。在這種情況下,應(yīng)該檢查 WMI SDK 以獲得一份 EnableWINS 錯(cuò)誤代碼的詳細(xì)列表。
這個(gè)問題的答案就是這樣。您現(xiàn)在擁有了可禁用 LMHosts 的腳本,而“腳本專家”則了解了在 GUI 中找到 LMHosts 設(shè)置的方法。這是個(gè)雙贏的結(jié)果!
上一篇:編寫可以打開文本文件并打亂在該文件中所找到的單詞順序的vbs腳本
欄 目:vb
下一篇:VB編程的八個(gè)優(yōu)良習(xí)慣第1/2頁
本文標(biāo)題:用vbs實(shí)現(xiàn)防止計(jì)算機(jī)使用 LMHosts 文件
本文地址:http://mengdiqiu.com.cn/a1/vb/7909.html
您可能感興趣的文章
- 01-10下載文件到本地運(yùn)行的vbs
- 01-10VBS中的正則表達(dá)式的用法大全 <font color=red>原創(chuàng)&
- 01-10VBS中SendKeys的基本應(yīng)用
- 01-10VBScript教程 第十一課深入VBScript
- 01-10用VBSCRIPT控制ONSUBMIT事件
- 01-10VBScript語法速查及實(shí)例說明
- 01-10VBS中Select CASE的其它用法
- 01-10VBScript教程 第七課使用條件語句
- 01-10vbscript 可以按引用傳遞參數(shù)嗎?
- 01-10VBScript教程 第二課在HTML頁面中添加VBscript代碼


閱讀排行
- 1C語言 while語句的用法詳解
- 2java 實(shí)現(xiàn)簡(jiǎn)單圣誕樹的示例代碼(圣誕
- 3利用C語言實(shí)現(xiàn)“百馬百擔(dān)”問題方法
- 4C語言中計(jì)算正弦的相關(guān)函數(shù)總結(jié)
- 5c語言計(jì)算三角形面積代碼
- 6什么是 WSH(腳本宿主)的詳細(xì)解釋
- 7C++ 中隨機(jī)函數(shù)random函數(shù)的使用方法
- 8正則表達(dá)式匹配各種特殊字符
- 9C語言十進(jìn)制轉(zhuǎn)二進(jìn)制代碼實(shí)例
- 10C語言查找數(shù)組里數(shù)字重復(fù)次數(shù)的方法
本欄相關(guān)
- 01-10下載文件到本地運(yùn)行的vbs
- 01-10飄葉千夫指源代碼,又稱qq刷屏器
- 01-10SendKeys參考文檔
- 01-10什么是一個(gè)高效的軟件
- 01-10VBS中的正則表達(dá)式的用法大全 &l
- 01-10exe2swf 工具(Adodb.Stream版)
- 01-10VBS中SendKeys的基本應(yīng)用
- 01-10用VBSCRIPT控制ONSUBMIT事件
- 01-10VBScript教程 第十一課深入VBScript
- 01-10VBScript語法速查及實(shí)例說明
隨機(jī)閱讀
- 01-11ajax實(shí)現(xiàn)頁面的局部加載
- 01-10SublimeText編譯C開發(fā)環(huán)境設(shè)置
- 04-02jquery與jsp,用jquery
- 01-10使用C語言求解撲克牌的順子及n個(gè)骰子
- 08-05織夢(mèng)dedecms什么時(shí)候用欄目交叉功能?
- 01-11Mac OSX 打開原生自帶讀寫NTFS功能(圖文
- 01-10C#中split用法實(shí)例總結(jié)
- 08-05dedecms(織夢(mèng))副欄目數(shù)量限制代碼修改
- 01-10delphi制作wav文件的方法
- 08-05DEDE織夢(mèng)data目錄下的sessions文件夾有什