wmi对网络适配器设置

jingyi11023995

目前能找到的设置IP地址的方法是CMD或者VBS的方式，wmi的没有，经过多天努力和尝试，终于得到正确代码，希望能帮到大家。

.版本 2

.程序集变量 DescriptionArr, 文本型, , "0"
.程序集变量 PhysicalAdapterArr, 文本型, , "0"

’使用示例：
wmi_枚举网卡描述和是否物理网卡 (DescriptionArr, PhysicalAdapterArr)‘先执行这个，获取到相关信息数组


根据网卡描述找到Index (“TP-LINK Wireless USB Adapter”)'测试

wmi_修改IP地址和网关和子网掩码和DNS (“TP-LINK Wireless USB Adapter”, { “192.168.0.138” }, { “255.255.255.0” }, { “192.168.0.1” }, { “202.96.128.86”, “202.96.128.166” })测试

wmi_IP设置为自动获取 (“TP-LINK Wireless USB Adapter”)测试

wmi_DNS设置为自动获取 (“TP-LINK Wireless USB Adapter”)测试

文本_是否IP格式（）'精易没有这个，建议也加入

  

子程序名	返回值类型	公开	备 注
wmi_枚举网卡描述和是否物理网卡	整数型		Description，id从0开始
参数名	类 型	参考	可空	数组	备 注
网卡描述数组	文本型				用于存放网卡描述的数组
是否物理网卡数组	文本型				-1是物理网卡，0是虚拟网卡

变量名	类 型	静态	数组	备 注
objWbemLocator	对象
objWMIService	对象
colClasses	对象
Properties	对象
NewEnum	对象
objClass	对象
hreslut	整数型
Variant	变体型
pcFetched	整数型
value	文本型

重定义数组 (网卡描述数组, 假, 0)
重定义数组 (是否物理网卡数组, 假, 0)
如果真 (objWbemLocator.创建 (“WbemScripting.SWbemLocator”, ))  ' 创建WMI对象
objWMIService ＝ objWbemLocator.对象型方法 (“ConnectServer”, “.”, “root\CIMV2”, , , , , , )  ' 连接服务器
如果真 (objWMIService.是否为空 () ＝ 假)
colClasses ＝ objWMIService.对象型方法 (“ExecQuery”, “SELECT * FROM Win32_NetworkAdapter”)
如果真 (colClasses.是否为空 () ＝ 假)
NewEnum ＝ colClasses.对象型方法 (“_NewEnum”, )
如果真 (NewEnum.是否为空 () ＝ 假)
循环判断首 ()
hreslut ＝ IEnumVARIANT_Next (取对象指针 (NewEnum), 1, 取变体型指针 (Variant), pcFetched)
如果真 (hreslut ＝ 0)
objClass ＝ Variant.取对象 ()
Properties ＝ objClass.读对象型属性 (“Properties_”, )
value ＝ Properties.对象型方法 (“Item”, “Description”).读文本属性 (“value”, )
' 调试输出 (value)
加入成员 (网卡描述数组, value)
value ＝ Properties.对象型方法 (“Item”, “PhysicalAdapter”).读文本属性 (“value”, )
' 调试输出 (value)
加入成员 (是否物理网卡数组, value)
objClass.清除 ()
Variant.清除 ()
处理事件 ()
循环判断尾 (pcFetched ＝ 1)
NewEnum.清除 ()
colClasses.清除 ()
objWMIService.清除 ()
objWbemLocator.清除 ()

调试输出 (网卡描述数组, 是否物理网卡数组)
返回 (取数组成员数 (网卡描述数组))

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 wmi_枚举网卡描述和是否物理网卡, 整数型, 公开, Description，id从0开始<br /> .参数 网卡描述数组, 文本型, 参考 数组, 用于存放网卡描述的数组<br /> .参数 是否物理网卡数组, 文本型, 参考 数组, -1是物理网卡，0是虚拟网卡<br /> .局部变量 objWbemLocator, 对象<br /> .局部变量 objWMIService, 对象<br /> .局部变量 colClasses, 对象<br /> .局部变量 Properties, 对象<br /> .局部变量 NewEnum, 对象<br /> .局部变量 objClass, 对象<br /> .局部变量 hreslut, 整数型<br /> .局部变量 Variant, 变体型<br /> .局部变量 pcFetched, 整数型<br /> .局部变量 value, 文本型<br /> <br /> 重定义数组 (网卡描述数组, 假, 0)<br /> 重定义数组 (是否物理网卡数组, 假, 0)<br /> .如果真 (objWbemLocator.创建 (“WbemScripting.SWbemLocator”, ))  ' 创建WMI对象<br />     objWMIService ＝ objWbemLocator.对象型方法 (“ConnectServer”, “.”, “root\CIMV2”, , , , , , )  ' 连接服务器<br />     .如果真 (objWMIService.是否为空 () ＝ 假)<br />         colClasses ＝ objWMIService.对象型方法 (“ExecQuery”, “SELECT * FROM Win32_NetworkAdapter”)<br />         .如果真 (colClasses.是否为空 () ＝ 假)<br />             NewEnum ＝ colClasses.对象型方法 (“_NewEnum”, )<br />             .如果真 (NewEnum.是否为空 () ＝ 假)<br />                 .循环判断首 ()<br />                     hreslut ＝ IEnumVARIANT_Next (取对象指针 (NewEnum), 1, 取变体型指针 (Variant), pcFetched)<br />                     .如果真 (hreslut ＝ 0)<br />                         objClass ＝ Variant.取对象 ()<br />                         Properties ＝ objClass.读对象型属性 (“Properties_”, )<br />                         value ＝ Properties.对象型方法 (“Item”, “Description”).读文本属性 (“value”, )<br />                         ' 调试输出 (value)<br />                         加入成员 (网卡描述数组, value)<br />                         value ＝ Properties.对象型方法 (“Item”, “PhysicalAdapter”).读文本属性 (“value”, )<br />                         ' 调试输出 (value)<br />                         加入成员 (是否物理网卡数组, value)<br />                         objClass.清除 ()<br />                         Variant.清除 ()<br />                     .如果真结束<br />                     处理事件 ()<br />                 .循环判断尾 (pcFetched ＝ 1)<br />                 NewEnum.清除 ()<br />             .如果真结束<br />             colClasses.清除 ()<br />         .如果真结束<br />         objWMIService.清除 ()<br />     .如果真结束<br />     objWbemLocator.清除 ()<br /> <br /> .如果真结束<br /> <br /> 调试输出 (网卡描述数组, 是否物理网卡数组)<br /> 返回 (取数组成员数 (网卡描述数组))

  

子程序名	返回值类型	公开	备 注
根据网卡描述找到Index	整数型
参数名	类 型	参考	可空	数组	备 注
Description	文本型

变量名	类 型	静态	数组	备 注
i	整数型
index	整数型

index ＝ 0
计次循环首 (取数组成员数 (DescriptionArr), i)
判断 (DescriptionArr [i] ＝ Description)
index ＝ 到整数 (i － 1)
调试输出 (index, Description)
跳出循环 ()



计次循环尾 ()
返回 (index)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 根据网卡描述找到Index, 整数型, 公开<br /> .参数 Description, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 index, 整数型<br /> <br /> index ＝ 0<br /> .计次循环首 (取数组成员数 (DescriptionArr), i)<br />     .判断开始 (DescriptionArr <i> ＝ Description)<br />         index ＝ 到整数 (i － 1)<br />         调试输出 (index, Description)<br />         跳出循环 ()<br />     .默认<br /> <br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> 返回 (index)

  

子程序名	返回值类型	公开	备 注
wmi_修改IP地址和网关和子网掩码和DNS	文本型		修改IP地址和网关和子网掩码和DNS
参数名	类 型	参考	可空	数组	备 注
Description	文本型				网卡描述 示例："Realtek Gaming GbE Family Controller" 或 "TP-LINK Wireless USB Adapter"
IPAddress	文本型				IP地址 示例：{ “192.168.0.138” }
SubnetMask	文本型				掩码 示例：{ “255.255.255.0” }
Gateways	文本型				网关 示例：{ “192.168.0.1” }
DNS	文本型				主DNS 次DNS 示例：{ “202.96.128.86”, “202.96.128.166” }

变量名	类 型	静态	数组	备 注
objWbemLocator	对象
objWMIService	对象
objShare	对象
objInParam网址	对象
objInParam网关	对象
objInParamDNS	对象
objOutParams	对象
var	变体型
bool	逻辑型
变体	变体型
index	整数型

' 判断输入：
判断 (文本_是否IP格式 (IPAddress [1]) ＝ 假)
返回 (“输入IP有误，正确示例：192.168.1.138”)


判断 (文本_是否IP格式 (SubnetMask [1]) ＝ 假)
返回 (“输入掩码有误，正确示例：255.255.255.0”)


判断 (文本_是否IP格式 (Gateways [1]) ＝ 假)
返回 (“输入网关有误，正确示例：192.168.1.1”)



判断 (文本_是否IP格式 (DNS [1]) ＝ 假 或 文本_是否IP格式 (DNS [2]) ＝ 假)
返回 (“输入DNS有误，正确示例：{ ” ＋ #引号 ＋ “202.96.128.86” ＋ #引号 ＋ “, ” ＋ #引号 ＋ “202.96.128.166” ＋ #引号 ＋ “ }” ＋ #引号 )



index ＝ 根据网卡描述找到Index (Description)
' https://learn.microsoft.com/zh-cn/windows/win32/cimwin32prov/win32-networkadapterconfiguration-methods
如果真 (objWbemLocator.创建 (“WbemScripting.SWbemLocator”, ))
' objWbemLocator.查看 ()
objWMIService ＝ objWbemLocator.对象型方法 (“ConnectServer”, “.”, “\root\CIMV2”, , , , , , )  ' 连接服务器
如果真 (objWMIService.是否为空 () ＝ 假)
objShare ＝ objWMIService.对象型方法 (“Get”, “Win32_NetworkAdapterConfiguration.Index='” ＋ 到文本 (index) ＋ “'”)
如果真 (objShare.是否为空 () ＝ 假)
objInParam网址 ＝ objShare.读对象型属性 (“Methods_”, ).对象型方法 (“Item”, “EnableStatic”).读对象型属性 (“InParameters”, ).对象型方法 (“SpawnInstance_”, )
' 设置IP：
' 添加输入参数
变体.赋值 (IPAddress, )  ' OK
bool ＝ objInParam网址.对象型方法 (“Properties_”, ).对象型方法 (“Item”, “IPAddress”).写属性 (“value”, 变体)
调试输出 (objInParam网址.取错误 (), bool)
变体.赋值 (SubnetMask, )  ' OK
bool ＝ objInParam网址.对象型方法 (“Properties_”, ).对象型方法 (“Item”, “SubnetMask”).写属性 (“value”, 变体)
调试输出 (objInParam网址.取错误 (), bool)
' 运行方法
objOutParams ＝ objShare.对象型方法 (“ExecMethod_”, “EnableStatic”, objInParam网址)
如果真 (objOutParams.是否为空 () ＝ 假)
var ＝ objOutParams.读对象型属性 (“Properties_”, ).对象型方法 (“Item”, “ReturnValue”).读属性 (“value”, )
调试输出 (“ReturnValue：”, 变体型类型 (var.取类型 ()), var.取数值 ())  ' 68:输入参数无效   97:接口不可配置   70:IP 地址无效
' https://learn.microsoft.com/zh-cn/windows/win32/cimwin32prov/enablestatic-method-in-class-win32-networkadapterconfiguration#syntax
objOutParams.清除 ()

' 网关：
objInParam网关 ＝ objShare.读对象型属性 (“Methods_”, ).对象型方法 (“Item”, “SetGateways”).读对象型属性 (“InParameters”, ).对象型方法 (“SpawnInstance_”, )
变体.赋值 (Gateways, )  ' OK
bool ＝ objInParam网关.对象型方法 (“Properties_”, ).对象型方法 (“Item”, “DefaultIPGateway”).写属性 (“value”, 变体)
调试输出 (objInParam网关.取错误 (), bool)
objOutParams ＝ objShare.对象型方法 (“ExecMethod_”, “SetGateways”, objInParam网关)
' 运行方法
objOutParams ＝ objShare.对象型方法 (“ExecMethod_”, “EnableStatic”, objInParam网址)
如果真 (objOutParams.是否为空 () ＝ 假)
var ＝ objOutParams.读对象型属性 (“Properties_”, ).对象型方法 (“Item”, “ReturnValue”).读属性 (“value”, )
调试输出 (“ReturnValue：”, 变体型类型 (var.取类型 ()), var.取数值 ())  ' 68:输入参数无效   97:接口不可配置   70:IP 地址无效
' https://learn.microsoft.com/zh-cn/windows/win32/cimwin32prov/enablestatic-method-in-class-win32-networkadapterconfiguration#syntax
objOutParams.清除 ()

' DNS:
objInParamDNS ＝ objShare.读对象型属性 (“Methods_”, ).对象型方法 (“Item”, “SetDNSServerSearchOrder”).读对象型属性 (“InParameters”, ).对象型方法 (“SpawnInstance_”, )
变体.赋值 (DNS, )
bool ＝ objInParamDNS.对象型方法 (“Properties_”, ).对象型方法 (“Item”, “DNSServerSearchOrder”).写属性 (“value”, 变体)
调试输出 (objInParamDNS.取错误 (), bool)
' 运行方法
objOutParams ＝ objShare.对象型方法 (“ExecMethod_”, “SetDNSServerSearchOrder”, objInParamDNS)
如果真 (objOutParams.是否为空 () ＝ 假)
var ＝ objOutParams.读对象型属性 (“Properties_”, ).对象型方法 (“Item”, “ReturnValue”).读属性 (“value”, )
调试输出 (“ReturnValue：”, 变体型类型 (var.取类型 ()), var.取数值 ())  ' 68:输入参数无效   97:接口不可配置   70:IP 地址无效  84:适配器上未启用 IP
' https://learn.microsoft.com/zh-cn/windows/win32/cimwin32prov/enablestatic-method-in-class-win32-networkadapterconfiguration#syntax
objOutParams.清除 ()

objShare.清除 ()
objWMIService.清除 ()
objWbemLocator.清除 ()

返回 (“”)
' 官方设置IP代码:
' strComputer = "."
' Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
' Set objShare = objWMIService.Get("Win32_NetworkAdapterConfiguration.Index='1'")
' Set objInParam = objShare.Methods_("EnableStatic")._inParameters.SpawnInstance_()
' objInParam.Properties_.Item("IPAddress") =  "192.168.1.138"
' objInParam.Properties_.Item("SubnetMask") =  "255.255.255.0"
' Set objOutParams = objWMIService.ExecMethod("Win32_NetworkAdapterConfiguration.Index='1'", "EnableStatic", objInParam)
' Wscript.Echo "Out Parameters: "
' Wscript.echo "ReturnValue: " & objOutParams.ReturnValue

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 wmi_修改IP地址和网关和子网掩码和DNS, 文本型, 公开, 修改IP地址和网关和子网掩码和DNS<br /> .参数 Description, 文本型, , 网卡描述 示例："Realtek Gaming GbE Family Controller" 或 "TP-LINK Wireless USB Adapter"<br /> .参数 IPAddress, 文本型, 数组, IP地址 示例：{ “192.168.0.138” }<br /> .参数 SubnetMask, 文本型, 数组, 掩码 示例：{ “255.255.255.0” }<br /> .参数 Gateways, 文本型, 数组, 网关 示例：{ “192.168.0.1” }<br /> .参数 DNS, 文本型, 数组, 主DNS 次DNS 示例：{ “202.96.128.86”, “202.96.128.166” }<br /> .局部变量 objWbemLocator, 对象<br /> .局部变量 objWMIService, 对象<br /> .局部变量 objShare, 对象<br /> .局部变量 objInParam网址, 对象<br /> .局部变量 objInParam网关, 对象<br /> .局部变量 objInParamDNS, 对象<br /> .局部变量 objOutParams, 对象<br /> .局部变量 var, 变体型<br /> .局部变量 bool, 逻辑型<br /> .局部变量 变体, 变体型<br /> .局部变量 index, 整数型<br /> <br /> ' 判断输入：<br /> .判断开始 (文本_是否IP格式 (IPAddress [1]) ＝ 假)<br />     返回 (“输入IP有误，正确示例：192.168.1.138”)<br /> .默认<br /> <br /> .判断结束<br /> .判断开始 (文本_是否IP格式 (SubnetMask [1]) ＝ 假)<br />     返回 (“输入掩码有误，正确示例：255.255.255.0”)<br /> .默认<br /> <br /> .判断结束<br /> .判断开始 (文本_是否IP格式 (Gateways [1]) ＝ 假)<br />     返回 (“输入网关有误，正确示例：192.168.1.1”)<br /> .默认<br /> <br /> .判断结束<br /> <br /> .判断开始 (文本_是否IP格式 (DNS [1]) ＝ 假 或 文本_是否IP格式 (DNS [2]) ＝ 假)<br />     返回 (“输入DNS有误，正确示例：{ ” ＋ #引号 ＋ “202.96.128.86” ＋ #引号 ＋ “, ” ＋ #引号 ＋ “202.96.128.166” ＋ #引号 ＋ “ }” ＋ #引号)<br /> .默认<br /> <br /> .判断结束<br /> <br /> <br /> index ＝ 根据网卡描述找到Index (Description)<br /> ' https://learn.microsoft.com/zh-cn/windows/win32/cimwin32prov/win32-networkadapterconfiguration-methods<br /> <br /> .如果真 (objWbemLocator.创建 (“WbemScripting.SWbemLocator”, ))<br />     ' objWbemLocator.查看 ()<br />     objWMIService ＝ objWbemLocator.对象型方法 (“ConnectServer”, “.”, “\root\CIMV2”, , , , , , )  ' 连接服务器<br />     .如果真 (objWMIService.是否为空 () ＝ 假)<br />         objShare ＝ objWMIService.对象型方法 (“Get”, “Win32_NetworkAdapterConfiguration.Index='” ＋ 到文本 (index) ＋ “'”)<br />         .如果真 (objShare.是否为空 () ＝ 假)<br />             objInParam网址 ＝ objShare.读对象型属性 (“Methods_”, ).对象型方法 (“Item”, “EnableStatic”).读对象型属性 (“InParameters”, ).对象型方法 (“SpawnInstance_”, )<br /> <br />             ' 设置IP：<br />             ' 添加输入参数<br />             变体.赋值 (IPAddress, )  ' OK<br />             bool ＝ objInParam网址.对象型方法 (“Properties_”, ).对象型方法 (“Item”, “IPAddress”).写属性 (“value”, 变体)<br />             调试输出 (objInParam网址.取错误 (), bool)<br />             变体.赋值 (SubnetMask, )  ' OK<br />             bool ＝ objInParam网址.对象型方法 (“Properties_”, ).对象型方法 (“Item”, “SubnetMask”).写属性 (“value”, 变体)<br />             调试输出 (objInParam网址.取错误 (), bool)<br />             ' 运行方法<br />             objOutParams ＝ objShare.对象型方法 (“ExecMethod_”, “EnableStatic”, objInParam网址)<br />             .如果真 (objOutParams.是否为空 () ＝ 假)<br />                 var ＝ objOutParams.读对象型属性 (“Properties_”, ).对象型方法 (“Item”, “ReturnValue”).读属性 (“value”, )<br />                 调试输出 (“ReturnValue：”, 变体型类型 (var.取类型 ()), var.取数值 ())  ' 68:输入参数无效   97:接口不可配置   70:IP 地址无效<br />                 ' https://learn.microsoft.com/zh-cn/windows/win32/cimwin32prov/enablestatic-method-in-class-win32-networkadapterconfiguration#syntax<br />                 objOutParams.清除 ()<br />             .如果真结束<br /> <br />             ' 网关：<br />             objInParam网关 ＝ objShare.读对象型属性 (“Methods_”, ).对象型方法 (“Item”, “SetGateways”).读对象型属性 (“InParameters”, ).对象型方法 (“SpawnInstance_”, )<br />             变体.赋值 (Gateways, )  ' OK<br />             bool ＝ objInParam网关.对象型方法 (“Properties_”, ).对象型方法 (“Item”, “DefaultIPGateway”).写属性 (“value”, 变体)<br />             调试输出 (objInParam网关.取错误 (), bool)<br />             objOutParams ＝ objShare.对象型方法 (“ExecMethod_”, “SetGateways”, objInParam网关)<br />             ' 运行方法<br />             objOutParams ＝ objShare.对象型方法 (“ExecMethod_”, “EnableStatic”, objInParam网址)<br />             .如果真 (objOutParams.是否为空 () ＝ 假)<br />                 var ＝ objOutParams.读对象型属性 (“Properties_”, ).对象型方法 (“Item”, “ReturnValue”).读属性 (“value”, )<br />                 调试输出 (“ReturnValue：”, 变体型类型 (var.取类型 ()), var.取数值 ())  ' 68:输入参数无效   97:接口不可配置   70:IP 地址无效<br />                 ' https://learn.microsoft.com/zh-cn/windows/win32/cimwin32prov/enablestatic-method-in-class-win32-networkadapterconfiguration#syntax<br />                 objOutParams.清除 ()<br />             .如果真结束<br /> <br /> <br />             ' DNS:<br />             objInParamDNS ＝ objShare.读对象型属性 (“Methods_”, ).对象型方法 (“Item”, “SetDNSServerSearchOrder”).读对象型属性 (“InParameters”, ).对象型方法 (“SpawnInstance_”, )<br />             变体.赋值 (DNS, )<br />             bool ＝ objInParamDNS.对象型方法 (“Properties_”, ).对象型方法 (“Item”, “DNSServerSearchOrder”).写属性 (“value”, 变体)<br />             调试输出 (objInParamDNS.取错误 (), bool)<br />             ' 运行方法<br />             objOutParams ＝ objShare.对象型方法 (“ExecMethod_”, “SetDNSServerSearchOrder”, objInParamDNS)<br />             .如果真 (objOutParams.是否为空 () ＝ 假)<br />                 var ＝ objOutParams.读对象型属性 (“Properties_”, ).对象型方法 (“Item”, “ReturnValue”).读属性 (“value”, )<br />                 调试输出 (“ReturnValue：”, 变体型类型 (var.取类型 ()), var.取数值 ())  ' 68:输入参数无效   97:接口不可配置   70:IP 地址无效  84:适配器上未启用 IP<br />                 ' https://learn.microsoft.com/zh-cn/windows/win32/cimwin32prov/enablestatic-method-in-class-win32-networkadapterconfiguration#syntax<br />                 objOutParams.清除 ()<br />             .如果真结束<br /> <br />             objShare.清除 ()<br />         .如果真结束<br />         objWMIService.清除 ()<br />     .如果真结束<br />     objWbemLocator.清除 ()<br /> .如果真结束<br /> <br /> 返回 (“”)<br /> <br /> <br /> <br /> ' 官方设置IP代码:<br /> <br /> ' strComputer = "."<br /> ' Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")<br /> ' Set objShare = objWMIService.Get("Win32_NetworkAdapterConfiguration.Index='1'")<br /> ' Set objInParam = objShare.Methods_("EnableStatic")._inParameters.SpawnInstance_()<br /> ' objInParam.Properties_.Item("IPAddress") =  "192.168.1.138"<br /> ' objInParam.Properties_.Item("SubnetMask") =  "255.255.255.0"<br /> ' Set objOutParams = objWMIService.ExecMethod("Win32_NetworkAdapterConfiguration.Index='1'", "EnableStatic", objInParam)<br /> ' Wscript.Echo "Out Parameters: "<br /> ' Wscript.echo "ReturnValue: " & objOutParams.ReturnValue

  

子程序名	返回值类型	公开	备 注
wmi_IP设置为自动获取			对没有连网的适配器设置可能会失败
参数名	类 型	参考	可空	数组	备 注
Description	文本型

变量名	类 型	静态	数组	备 注
objWbemLocator	对象
objWMIService	对象
objShare	对象
objInParam	对象
objOutParams	对象
var	变体型
index	整数型

index ＝ 根据网卡描述找到Index (Description)
如果真 (objWbemLocator.创建 (“WbemScripting.SWbemLocator”, ))
objWMIService ＝ objWbemLocator.对象型方法 (“ConnectServer”, “.”, “\root\CIMV2”, , , , , , )  ' 连接服务器
如果真 (objWMIService.是否为空 () ＝ 假)
objShare ＝ objWMIService.对象型方法 (“Get”, “Win32_NetworkAdapterConfiguration.Index='” ＋ 到文本 (index) ＋ “'”)
如果真 (objShare.是否为空 () ＝ 假)
objInParam ＝ objShare.读对象型属性 (“Methods_”, ).对象型方法 (“Item”, “EnableDHCP”).读对象型属性 (“InParameters”, ).对象型方法 (“SpawnInstance_”, )
' 添加输入参数
' 运行方法
objOutParams ＝ objShare.对象型方法 (“ExecMethod_”, “EnableDHCP”, objInParam)
如果真 (objOutParams.是否为空 () ＝ 假)
var ＝ objOutParams.读对象型属性 (“Properties_”, ).对象型方法 (“Item”, “ReturnValue”).读属性 (“value”, )
调试输出 (“ReturnValue：”, 变体型类型 (var.取类型 ()), var.取数值 ())
' 84适配器上未启用 IP
objOutParams.清除 ()
objShare.清除 ()
objWMIService.清除 ()
objWbemLocator.清除 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 wmi_IP设置为自动获取, , 公开, 对没有连网的适配器设置可能会失败<br /> .参数 Description, 文本型<br /> .局部变量 objWbemLocator, 对象<br /> .局部变量 objWMIService, 对象<br /> .局部变量 objShare, 对象<br /> .局部变量 objInParam, 对象<br /> .局部变量 objOutParams, 对象<br /> .局部变量 var, 变体型<br /> .局部变量 index, 整数型<br /> <br /> index ＝ 根据网卡描述找到Index (Description)<br /> <br /> .如果真 (objWbemLocator.创建 (“WbemScripting.SWbemLocator”, ))<br />     objWMIService ＝ objWbemLocator.对象型方法 (“ConnectServer”, “.”, “\root\CIMV2”, , , , , , )  ' 连接服务器<br />     .如果真 (objWMIService.是否为空 () ＝ 假)<br />         objShare ＝ objWMIService.对象型方法 (“Get”, “Win32_NetworkAdapterConfiguration.Index='” ＋ 到文本 (index) ＋ “'”)<br />         .如果真 (objShare.是否为空 () ＝ 假)<br />             objInParam ＝ objShare.读对象型属性 (“Methods_”, ).对象型方法 (“Item”, “EnableDHCP”).读对象型属性 (“InParameters”, ).对象型方法 (“SpawnInstance_”, )<br />             ' 添加输入参数<br /> <br />             ' 运行方法<br />             objOutParams ＝ objShare.对象型方法 (“ExecMethod_”, “EnableDHCP”, objInParam)<br />             .如果真 (objOutParams.是否为空 () ＝ 假)<br />                 var ＝ objOutParams.读对象型属性 (“Properties_”, ).对象型方法 (“Item”, “ReturnValue”).读属性 (“value”, )<br />                 调试输出 (“ReturnValue：”, 变体型类型 (var.取类型 ()), var.取数值 ())<br />                 ' 84适配器上未启用 IP<br /> <br />                 objOutParams.清除 ()<br />             .如果真结束<br />             objShare.清除 ()<br />         .如果真结束<br />         objWMIService.清除 ()<br />     .如果真结束<br />     objWbemLocator.清除 ()<br /> .如果真结束

  

子程序名	返回值类型	公开	备 注
wmi_DNS设置为自动获取			对没有连网的适配器设置可能会失败
参数名	类 型	参考	可空	数组	备 注
Description	文本型

变量名	类 型	静态	数组	备 注
index	整数型
objWbemLocator	对象
objWMIService	对象
objShare	对象
objInParam	对象
objOutParams	对象
var	变体型

index ＝ 根据网卡描述找到Index (Description)
如果真 (objWbemLocator.创建 (“WbemScripting.SWbemLocator”, ))
objWMIService ＝ objWbemLocator.对象型方法 (“ConnectServer”, “.”, “\root\CIMV2”, , , , , , )  ' 连接服务器
如果真 (objWMIService.是否为空 () ＝ 假)
objShare ＝ objWMIService.对象型方法 (“Get”, “Win32_NetworkAdapterConfiguration.Index='” ＋ 到文本 (index) ＋ “'”)
如果真 (objShare.是否为空 () ＝ 假)
objInParam ＝ objShare.读对象型属性 (“Methods_”, ).对象型方法 (“Item”, “SetDNSServerSearchOrder”).读对象型属性 (“InParameters”, ).对象型方法 (“SpawnInstance_”, )
' 添加输入参数
' 运行方法
objOutParams ＝ objShare.对象型方法 (“ExecMethod_”, “SetDNSServerSearchOrder”, objInParam)
如果真 (objOutParams.是否为空 () ＝ 假)
var ＝ objOutParams.读对象型属性 (“Properties_”, ).对象型方法 (“Item”, “ReturnValue”).读属性 (“value”, )
调试输出 (“ReturnValue：”, 变体型类型 (var.取类型 ()), var.取数值 ())
objOutParams.清除 ()
objShare.清除 ()
objWMIService.清除 ()
objWbemLocator.清除 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 wmi_DNS设置为自动获取, , 公开, 对没有连网的适配器设置可能会失败<br /> .参数 Description, 文本型<br /> .局部变量 index, 整数型<br /> .局部变量 objWbemLocator, 对象<br /> .局部变量 objWMIService, 对象<br /> .局部变量 objShare, 对象<br /> .局部变量 objInParam, 对象<br /> .局部变量 objOutParams, 对象<br /> .局部变量 var, 变体型<br /> <br /> index ＝ 根据网卡描述找到Index (Description)<br /> .如果真 (objWbemLocator.创建 (“WbemScripting.SWbemLocator”, ))<br />     objWMIService ＝ objWbemLocator.对象型方法 (“ConnectServer”, “.”, “\root\CIMV2”, , , , , , )  ' 连接服务器<br />     .如果真 (objWMIService.是否为空 () ＝ 假)<br />         objShare ＝ objWMIService.对象型方法 (“Get”, “Win32_NetworkAdapterConfiguration.Index='” ＋ 到文本 (index) ＋ “'”)<br />         .如果真 (objShare.是否为空 () ＝ 假)<br />             objInParam ＝ objShare.读对象型属性 (“Methods_”, ).对象型方法 (“Item”, “SetDNSServerSearchOrder”).读对象型属性 (“InParameters”, ).对象型方法 (“SpawnInstance_”, )<br />             ' 添加输入参数<br /> <br />             ' 运行方法<br />             objOutParams ＝ objShare.对象型方法 (“ExecMethod_”, “SetDNSServerSearchOrder”, objInParam)<br />             .如果真 (objOutParams.是否为空 () ＝ 假)<br />                 var ＝ objOutParams.读对象型属性 (“Properties_”, ).对象型方法 (“Item”, “ReturnValue”).读属性 (“value”, )<br />                 调试输出 (“ReturnValue：”, 变体型类型 (var.取类型 ()), var.取数值 ())<br /> <br /> <br />                 objOutParams.清除 ()<br />             .如果真结束<br />             objShare.清除 ()<br />         .如果真结束<br />         objWMIService.清除 ()<br />     .如果真结束<br />     objWbemLocator.清除 ()<br /> .如果真结束

  

子程序名	返回值类型	公开	备 注
文本_是否IP格式	逻辑型
参数名	类 型	参考	可空	数组	备 注
ip	文本型

变量名	类 型	静态	数组	备 注
arr	文本型		0
i	整数型

arr ＝ 分割文本 (ip, “.”, )
判断 (取数组成员数 (arr) ≠ 4)
返回 (假)



计次循环首 (4, i)
判断 (文本_是否为数字 (arr [i]) ＝ 假 或 到整数 (arr [i]) ＜ 0 或 到整数 (arr [i]) ＞ 255)
返回 (假)



计次循环尾 ()
返回 (真)

.版本 2<br /> <br /> .子程序 文本_是否IP格式, 逻辑型, 公开<br /> .参数 ip, 文本型<br /> .局部变量 arr, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> arr ＝ 分割文本 (ip, “.”, )<br /> <br /> .判断开始 (取数组成员数 (arr) ≠ 4)<br />     返回 (假)<br /> .默认<br /> <br /> .判断结束<br /> <br /> .计次循环首 (4, i)<br />     .判断开始 (文本_是否为数字 (arr <i>) ＝ 假 或 到整数 (arr <i>) ＜ 0 或 到整数 (arr <i>) ＞ 255)<br />         返回 (假)<br />     .默认<br /> <br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> 返回 (真)

cxswswswws

感谢楼主分享经验