ScriptCentre/wsh/ネットワーク設定 - progtips

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を返したら失敗している。

複数のネットワークアダプタがある場合には、ごにょごにょすること。