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

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

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

像我们说的那样，找到 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，因为我们将不使用 LMHosts。如果您改变了想法而决定使用 LMHosts，只需将此常量设置为 True。

当然这非常简单。通过编写脚本解决问题总是非常简单。

嗯，好吧：几乎总是。

下一步是连接到本地计算机上的 WMI 服务（尽管我们还可以在远程计算机上执行此操作）。接下来是下面这行代码：

Set objNetworkSettings = objWMIService.Get("Win32_NetworkAdapterConfiguration")

您说对了：这有点不寻常。在大多数 WMI 脚本中，此时我们本该调用 ExecQuery 方法，接着 ExecQuery 为我们返回一个对象的集合来处理。您可能已经注意到在此脚本中我们根本没有使用 ExecQuery。为什么不使用呢？嗯，EnableWINS 方法（用来关闭 WINS 和 LMHosts 文件的方法）是“静态”方法。静态方法无法操作对象的集合；而它只能操作类本身。这表示，您绑定到 Win32_NetworkAdapterConfiguration 类（使用 Get 方法），然后调用 EnableWINS。最终结果为：所有类的实例（即，计算机上的所有网络适配器）将使 LMHosts 禁用。如果您有多个网络适配器，没有规则允许在一个适配器上禁用 LMHosts 而在另一个适配器上启用它。只能是全部启用或全部禁用。

此时，我们仅调用 EnableWINS 方法，依次传递常量 USE_WINS 和 USE_LMHOST_FILE：

errResult = objNetworkSettings.EnableWINS(USE_WINS, USE_LMHOST_FILE)

请注意，我们捕获了变量 errResult 中的返回代码（操作的结果）。我们在脚本的最后一行回显此返回代码。如果 errResult 等于 0，则表示操作成功并且 LMHosts 已被禁用。如果 errResult 为非 0 的任何值，嗯，那就出问题了。在这种情况下，应该检查 以获得一份 EnableWINS 错误代码的详细列表。

这个问题的答案就是这样。您现在拥有了可禁用 LMHosts 的脚本，而“脚本专家”则了解了在 GUI 中找到 LMHosts 设置的方法。这是个双赢的结果！