Function New_IP(ByVal ip As String, Optional ByVal subnet As String = _
  "255.255.255.0")
        Dim strComputer As String
        Dim objWMIService As Object
        Dim colNetAdapters As Object
 
        Dim objNetAdapter As Object
        Dim strIPAddress As String
        Dim strSubnetMask As String
        Dim strGateway As String
        Dim strGatewayMetric As String
        Dim errEnable As ErrObject
 
 
 
        strComputer = "."
        objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
        colNetAdapters = objWMIService.ExecQuery _
            ("Select * from Win32_NetworkAdapterConfiguration where" & _
            "IPEnabled=TRUE")
        strIPAddress = ip
        strSubnetMask = subnet
        'strGateway = Array("192.168.1.100")
        'strGatewayMetric = Array(1)
 
        For Each objNetAdapter In colNetAdapters
            errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
            'errGateways = objNetAdapter.SetGateways(strGateway, 
            ' strGatewayMetric)
        Next
    End Function

Ich nutze Visual Basic 2005 Express Edition auf W2KP und XP