利用WMI获取和更新网络设置(VBS脚本)

On Error Resume Next
Set objWMIService = GetObject("winmgmts://./root/cimv2")
Set colNetAdapters = objWMIService.ExecQuery ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each objNetAdapter in colNetAdapters
    WScript.Echo objNetAdapter.DefaultIPGateway(0) '获取默认网关
    WScript.Echo objNetAdapter.IpAddress  '获取IP地址
    objNetAdapter.EnableStatic Array("192.168.0.252"), Array("255.255.255.0") '更新IP地址和子网掩码
    objNetAdapter.SetGateways Array("192.168.0.1") '设置网关
Next