29、网络脚本编程：WMI与ADSI融合及子程序的运用

最新推荐文章于 2025-12-04 09:31:12 发布

电竞养老选手

最新推荐文章于 2025-12-04 09:31:12 发布

阅读量4

点赞数

CC 4.0 BY-SA版权

分类专栏： VBScript自动化实战文章标签： WMI ADSI VBScript

本文链接：https://blog.youkuaiyun.com/tensor9flow/article/details/155584335

VBScript自动化实战专栏收录该内容

40 篇文章 ¥499.90

订阅专栏¥69.90

会员秒杀 ¥9.9 重磅福利

超级会员免费看

网络脚本编程：WMI与ADSI融合及子程序的运用

1. 融合WMI与ADSI脚本

当我们确认ADSI脚本和WMI脚本都能正常运行后，将二者融合是一项相对简单的任务。融合后的脚本会连接到Active Directory，查询mred OU中的所有计算机，将返回的数据存入记录集，遍历记录集，并为记录集中的每台工作站启用DHCP，同时输出DHCP操作的结果。新脚本名为ADouWMIDHCP.vbs。

在 While Not...Wend 循环中，我们使用 Target = oRecordSet.Fields("name") 将计算机名赋值给变量 Target 。在脚本执行过程中， Target 会包含从ADSI检索到的每台计算机名，这些名称将作为WMI查询的目标。WMI脚本的其余部分无需额外修改，直接放在 While Not...Wend 循环内。

以下是ADouWMIDHCP.vbs的代码：

Option Explicit
'On Error Resume Next
Dim qQuery
Dim oConnection
Dim oCommand
Dim oRecordSet
Dim oDom
Dim oProvider
Dim oOU
Dim Target, oWMIService, colNetAdapters, oNetAdapter, errEnable
oProvider = "'LDAP://"
oDom = "dc=nwtraders, d