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
 
  Set oWMI = GetObject("winmgmts:")
  sSQL = "SELECT * FROM win32_NetworkAdapterConfiguration WHERE IPEnabled =" & _
    "true"
  Set 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