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 /> 返回 (真)

jacket12

感谢楼主分享经验

jingyi11023995

qq1056123185 发表于 2024-4-25 14:51
我的哥，IEnumVARIANT_Next这个命令找不到啊~
能发一个完整的.e文件吗？感谢~

精易模块里面有！

qq1056123185

我的哥，IEnumVARIANT_Next这个命令找不到啊~
能发一个完整的.e文件吗？感谢~

wxd520abc

感谢分享

一指温柔

感谢分享

jingyi11023995

.版本 2

' 返回代码解释：https://learn.microsoft.com/zh-cn/windows/win32/cimwin32prov/enablestatic-method-in-class-win32-networkadapterconfiguration#syntax
代码数组 ＝ { 0, 1, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 100, 2147786788 }
代码解释数组 ＝ { “成功完成，无需重启。”, “成功完成，需要重新启动。”, “此平台不支持方法。”, “未知失败。”, “子网掩码无效。”, “处理返回的实例时出错。”, “输入参数无效。”, “指定的网关超过 5 个。”, “IP 地址无效。”, “网关 IP 地址无效。”, “访问注册表以获取请求的信息时出错。”, “无效的域名。”, “主机名无效。”, “未定义主 WINS 服务器或辅助 WINS 服务器。”, “文件无效。”, “系统路径无效。”, “文件复制失败。”, “无效的安全参数。”, “无法配置 TCP/IP 服务。”, “无法配置 DHCP 服务。 ”, “无法续订 DHCP 租约。”, “无法释放 DHCP 租约。”, “适配器上未启用 IP。”, “适配器上未启用 IPX。”, “帧或网络编号边界错误。”, “无效的帧类型。”, “网络号码无效。”, “重复的网络号码。”, “参数超出边界。”, “访问被拒绝。”, “内存不足。”, “已存在。”, “找不到路径、文件或对象。”, “无法通知服务。”, “无法通知 DNS 服务。”, “接口不可配置。”, “并非所有 DHCP 租约都可以释放或续订。”, “适配器上未启用 DHCP。”, “未启用写入锁定。” }