当前位置: 首页 > 图文教程 > 脚本技术 > VBScript > 用vbs实现防止计算机使用 LMHosts 文件

VBScript
adodb.stream读文件到数组的代码
利用sql语句复制一条或多条记录
百度空间备份脚本baidublogbak.vbs代码分析
vbs版sql查询分析器lcx作品
最新版利用CDO.Message做的vbs下载者
PDF的VBS小程序代码
算阶乘的vbs小程序
vbs后台运行bat删除自身的代码
VB6 ByVal ByRef函数调用
一段提取用户名和md5的vbs代码
vbs fso跨盘移动文件夹的怪问题
vbs删除文本文件的行的函数
显示运行对话框内保存的命令历史的vbs
emule自动关机脚本
IE中用VBScript不提示直接打印的代码
vbs引用另一个vbs的代码
VBScript 剪贴板抓取URL并在浏览器中打开
奇特的js写法,或许可以用来加密躲杀毒软件什么的
自动写入文件上传到指定服务器SoftwareMeteringCLS.vbs源码
一个查看局域网在线IP的vbs脚本

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


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-10-12   浏览: 79 ::
收藏到网摘: n/a

问:

您好,脚本专家!如何防止计算机使用 LMHosts 文件?

-- MJ

答:

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

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,因为我们将不使用 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 的任何值,嗯,那就出问题了。在这种情况下,应该检查 WMI SDK 以获得一份 EnableWINS 错误代码的详细列表。

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