Private Sub ChangeIP(ByVal sNewIP As String, _
  Optional ByVal sSubNetMask As String = "255.255.255.0")
 
        Dim sSQL As String
        Dim oWMI As Object
        Dim oResult As Object
        Dim oCard As Object
        Dim nStatus As Long
 
        oWMI = GetObject("winmgmts:")
        sSQL = "SELECT * FROM win32_NetworkAdapterConfiguration WHERE IPEnabled" & _
          "= true"
        oResult = oWMI.execquery(sSQL)
 
        ' Menno, man kann doch nicht für jede NIC die 
        ' gleiche IP einstellen!
        ' Deshalb muß hier etwas angepasst werden, wenn der betr. Computer 
        ' mehrere Netzwerkkarten hat
 
        For Each oCard In oResult
            With oCard
                If IsArray(.IPAddress) Then
                    nStatus = .EnableStatic(Array(sNewIP), Array(sSubNetMask))
                End If
            End With
        Next
    End Sub