WMI (VBScript) 学习2: 本地连接配置信息获取和修改

主要实现功能： 在 "192.168.0.120" and "192.168.0.8" 之间切换网关地址

 

有几点需要注意的：
1. 带返回值函数需声明变量来接收其返回值。否则如 objItem.EnableStatic(strIPAddress, strSubnetMask)不给定返回值将出现

编译器错误: 调用过程(Sub)时不能使用括号

（为什么？）

 

2.对于变量数据类型为数组的数据，有三种访问方式：
法一：直接用循环遍历数组

'   For Each strIPAddress in objItem.IPAddress
'    WScript.Echo strIPAddress
'   Next

法二: 用数组上下标作为循环变量取值范围遍历

    For i=LBound(objItem.IPAddress) _
    to UBound(objItem.IPAddress)

        ...

    Next
法三：直接给定数组下标，如

    WScript.Echo strGateway(0)

 

本程序缺陷：

显示本地连接属性时前后代码重复，可用函数来代替

 

'########################################## '<case: find IP address by MacAddress, set static ip addres,s and change gateway between "192.168.0.120" and "192.168.0.8" 'connect to a local machine only, support can be found from ms-help://MS.MSDNQTR.v90.en/wmisdk/wmi/wmi_tasks__networking.htm 'for remote connection,please see ms-help://MS.MSDNQTR.v90.en/wmisdk/wmi/connecting_to_wmi_on_a_remote_computer.htm 'Be careful,when we call WMI methods, if it has return, we must have a variable for recieving the returns strComputer = "." strIPAddress = Array("192.168.0.131") strSubnetMask =Array("255.255.255.0") strGateway1 = Array("192.168.0.120") strGateway2 = Array("192.168.0.8") strGatewayMetric = Array(1) Set objWMIService = GetObject("winmgmts://" & strComputer & "/root/cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapter where " _ & "NetConnectionID = '本地连接'") For Each objItem in colItems strMacAddress = objItem.MACAddress WScript.Echo strMacAddress Next Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration") For Each objItem in colItems '由于本机有两个相同MAC地址Win32_NetworkAdapterConfiguration对象，因此需加是否为空判断 '原因是当IPAddress为空时，循环For Each strIPAddress in objItem.IPAddress会提示错误： '运行时错误: 对象不是一个集合 If Not IsNull(objItem.IPAddress) Then If objItem.MACAddress = strMacAddress Then '法一：用循环遍历数组 ' For Each strIPAddress in objItem.IPAddress ' WScript.Echo strIPAddress ' Next '法二: 用数组界限遍历 For i=LBound(objItem.IPAddress) _ to UBound(objItem.IPAddress) For j=LBound(objItem.IPSubnet) _ to UBound(objItem.IPSubnet) For k=LBound(objItem.DefaultIPGateway) _ to UBound(objItem.DefaultIPGateway) WScript.Echo "IPAddress:" & objItem.IPAddress(i)& VBNewLine _ & "IPSubnet: " & objItem.IPSubnet(j) & VBNewLine _ & "DefaultIPGateway: " & objItem.DefaultIPGateway(k) If objItem.DefaultIPGateway(k) = "192.168.0.8" Then strGateway = strGateway1 Else strGateway = strGateway2 End If '法三：直接给定数组下标 ’For l=LBound(strGateway) to UBound(strGateway) WScript.Echo strGateway(0) ‘Next Next Next Next 'SetGateways method only works when the Network Interface Card (NIC) is in the static IP mode. errEnable = objItem.EnableStatic( _ strIPAddress, strSubnetMask) errGateways = objItem.SetGateways(_ strGateway, strGatewaymetric) End If End If Next WScript.Echo VBNewLine & "After rest ip address: " & VBNewLine Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration") For Each objItem in colItems If Not IsNull(objItem.IPAddress) Then If objItem.MACAddress = strMacAddress Then For i=LBound(objItem.IPAddress) _ to UBound(objItem.IPAddress) For j=LBound(objItem.IPSubnet) _ to UBound(objItem.IPSubnet) For k=LBound(objItem.DefaultIPGateway) _ to UBound(objItem.DefaultIPGateway) WScript.Echo "IPAddress:" & objItem.IPAddress(i)& VBNewLine _ & "IPSubnet: " & objItem.IPSubnet(j) & VBNewLine _ & "DefaultIPGateway: " & objItem.DefaultIPGateway(k) If objItem.DefaultIPGateway(k) = "192.168.0.8" Then strGateway = strGateway1 Else strGateway = strGateway2 End If For l=LBound(strGateway) to UBound(strGateway) WScript.Echo strGateway(l) Next Next Next Next End If End If Next '/case> '##########################################

 

 

当然，还有更简单的命令行方法

@echo off netsh interface ip show address | find "192.168.0.120" if %errorlevel%==0 ( goto :To8 ) else ( netsh interface ip show address | find "192.168.0.8" && goto :To120 ) :To8 echo change gateway from 192.168.0.120 to 192.168.0.8 netsh interface ip set address "本地连接" static 192.168.0.131 255.255.255.0 192.168.0.8 1 pause goto :EOF :To120 echo change gateway from 192.168.0.8 to 192.168.0.120 netsh interface ip set address "本地连接" static 192.168.0.131 255.255.255.0 192.168.0.120 1 pause goto :EOF