Public Function fSetIPConfig(IP_Adress As String, _
                                             Optional SubNetMask As String = _
                                             "255.255.255.0", _
                                             Optional DefaultGateway As String _
                                             = "", _
                                             Optional ComputerName As String = _
                                             ".", _
                                             Optional GateWayMetric As String = _
                                             "1") As Boolean
' Statische IP-Adresse konfigurieren
' ==================================
' dieses Beispiel funktioniert nur mit einer Netzwerkkarte!
 
Dim oWMI
Dim oNetworkAdapter
Dim colNetworkAdapters
Dim lRes As Long
 
   Set oWMI = GetObject("winmgmts:\\" & ComputerName & "\root\cimv2")
   Set colNetworkAdapters = oWMI.ExecQuery _
         ("Select * from Win32_NetworkAdapterConfiguration where" & _
         "IPEnabled=TRUE")
   For Each oNetworkAdapter In colNetworkAdapters
      lRes = oNetworkAdapter.EnableStatic(Array(IP_Adress), Array(SubNetMask))
      If lRes <> 0 Then
         fSetIPConfig = False
         Exit Function
      End If
 
      lRes = oNetworkAdapter.SetGateways(Array(DefaultGateway), Array( _
        GateWayMetric))
      If lRes <> 0 Then
         fConfigure_Static_IP = False
         Exit Function
      End If
      fSetIPConfig = True
   Next
 
End Function

ciao
Elwood

Wer sp?ter bremst, ist l?nger schnell