用vbs实现防止计算机使用 LMHosts 文件

问：

您好，脚本专家！如何防止计算机使用 LMHosts 文件？

-- MJ

答：

您好，MJ。您知道，这是个有趣的问题，至少对“脚本专家”来说是这样。不是因为脚本难以编写；这实际上非常简单。困难的是（至少对我们来说）在 Windows GUI 中找到 LMHosts 设置；这是我们需要做的，以便我们可以验证脚本实际上起作用。在一段盲目的查找之后（这对“脚本专家”来说很寻常）我们最终找到了要找的东西：

以防您与“脚本专家”一样一窍不通（对于您来说，但愿不是这样），以下是到达此对话框的操作步骤：

1.	从“控制面板”的“网络连接”中，选取任意的网络连接。
2.	在此连接的“属性”对话框中选择“Internet 协议 (TCP/IP)”，然后单击“属性”。
3.	在“Internet 协议 (TCP/IP) 属性”对话框中单击“高级”。
4.	在“高级 TCP/IP 设置”对话框中查看“WINS”选项卡。您的设置就在这里。

像我们说的那样，找到 LMHosts 复选框是最难的部分；清除复选框（即防止计算机使用 LMHosts 文件）就简单了：

复制代码 代码如下:

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

我们在脚本开始定义了一对常量（USE_WINS 和 USE_LMHOST_FILE）并将他们设置为 False。我们使用常量 USE_WINS 告诉脚本我们要完全禁用 WINS（Windows Internet 命名服务）的使用。如果不是这样的话（如果您要继续使用 WINS，只是不使用 LMHosts 文件）则将 USE_WINS 的值设置为 True。

同时，常量 USE_LMHOST_FILE 告诉脚本我们是否要使用 LMHosts 文件。我们将此常量设置为 False，因为我们将不

上一篇：在 HTA 中暂停脚本的方法

下一篇：用vbscript把 Word 文档保存为文本文件的代码