Public Function fSetIPConfig(vMAC As String, _
  DefaultGateway As String) As Boolean
 
  GateWayMetric = "5"
  ComputerName = Environ$("computername")
 
  Dim oWMI
  Dim oNetworkAdapter
  Dim colNetworkAdapters
  Dim lRes As Long
 
  ' WMI-Objekt erstellen
  Set oWMI = GetObject("winmgmts:\\" & ComputerName & "\root\cimv2")
 
  ' Netzwerk-Adapter ermitteln
  Set colNetworkAdapters = oWMI.ExecQuery _
    ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE MACAddress = '" + _
    vMAC + "'")
 
  ' Standard-Gateway einstellen
  For Each oNetworkAdapter In colNetworkAdapters
 
    lRes = oNetworkAdapter.SetGateways(Array(DefaultGateway), _
      Array(GateWayMetric))
    If lRes <> 0 Then
      fSetIPConfig = False
      Exit Function
    End If
    fSetIPConfig = True
  Next
End Function