Private Function ChangeIP(ByVal sNic As String, ByVal sNewIP As String, _
  Optional ByVal sSubnetmask As String, Optional ByVal sGateway As String, _
  Optional ByVal sDNS As String, Optional ByVal sADNS As String) As String
  Dim nStatus As Long
  Dim oAdapters As Object, oAdapter As Object, oBdapters As Object, oBdapter As _
    Object
 
  ' Fehlerbehandlung aktivieren
  On Error GoTo Fehler_WMI
 
  Dim strGatewaymetric
  strGatewaymetric = Array(1)
 
 
  Set oBdapters = GetObject("winmgmts:\\.\root\cimv2").execquery("SELECT * FROM" & _
    "Win32_NetworkAdapter")
  Set oAdapters = GetObject("winmgmts:\\.\root\cimv2").execquery("SELECT * FROM" & _
  "Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
 
  For Each oAdapter In oAdapters
    With oAdapter
        For Each oBdapter In oBdapters
          If oBdapter.macaddress = .macaddress And oBdapter.Name = Mid(sNic, 1, _
            InStr(1, sNic, "  ") - 1) Then
            If IsArray(.IPAddress) Then
               nStatus = .EnableStatic(Array(sNewIP), Array(sSubnetmask))
 
               If nStatus = 0 Then
                  nStatus = .SetGateways(Array(sGateway), strGatewaymetric)
               End If
 
            End If
 
            .SetDNSServerSearchOrder (Array(sDNS, sADNS))
 
          End If
        Next
    End With
  Next

>> <<