Set wmi = GetObject("winmgmts:root\cimv2") ip = Array("192.168.1.100") subnet = Array("255.255.255.0") gw = Array("192.168.1.1") dns = Array("20.21.22.23", "20.21.25.26") Function NetworkConfigure(ip,subnet,gw,dns) Set adapters = wmi.ExecQuery _ ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE") For Each adapter in adapters If adapter.EnableStatic(ip,subnet) Then NetworkConfigure = False Exit Function End If If adapter.SetGateways(gw,Array(1)) Then NetworkConfigure = False Exit Function End If If adapter.SetDNSServerSearchOrder(dns) Then NetworkConfigure = False Exit Function End If Exit For Next NetworkConfigure = True End Function
NetworkConfigureがFalseを返したら失敗している。
複数のネットワークアダプタがある場合には、ごにょごにょすること。