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
 
' [u]Ab hier läuft er auf einen Fehler, keine Ahnung warum?
' Wenn es bei dir nicht so ist, kannst du mir bitte ein Programm mit Quellcode
' schicken, in dem du das oder etwas ähnliches drinnen verwendet hast?
' Hier meine Email: fbroen@skenet.de
 
  Set oWMI = GetObject("winmgmts:")
  sSQL = "SELECT * FROM win32_NetworkAdapterConfiguration WHERE IPEnabled =" & _
    "true"
  Set oResult = oWMI.execquery(wsql)
 
  For Each oCard In oResult
    With oCard
      If IsArray(.IPAddress) Then
         nStatus = .EnableStatic(Array(sNewIP), Array(sSubNetMask))
      End If
    End With
  Next
End Sub