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

VBScript
一个实现VBS倒计时的代码
用vbs实现将剪切板的unix格式的内容处理成pc格式的代码
用vb和vbs 破解flashxp的密码的代码
用VBS实现的批量gb2312转utf-8,支持拖动
用vbs实现的XP序列号替换器
VBS可以做什么的简单说明
用vbs实现cmd功能的代码
VBS基础编程教程 (第1篇)
VBS基础编程教程 (第3篇)
VBS基础编程教程 (第4篇)
VBS基础编程教程 (第5篇)
VBS基础编程教程 (第6篇)
利用vbscript的for命令实现定时关机
在桌面右下角出现温馨提示的vbs冒泡程序
利用VBS发送邮件 挑选速度快的肉鸡做VPN 的vbs代码
vbs教程 chm下载
用vbs实现的简单的服务器文件备份办法压缩文件名自动按日期命名
输入mdb数据库即可将打包的mdb文件解包
VBS编程教程第一部
vbs脚本 加密 几个小细节小结下

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


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-10-12   浏览: 98 ::
收藏到网摘: 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 设置的方法。这是个双赢的结果!