Rubrik: HTML/Internet/Netzwerk · Netzwerk | VB-Versionen: VB4, VB5, VB6 | 09.06.04 |
Standardgateway einstellen per WMI Hier wird gezeigt, wie man mit Hilfe von WMI das Standardgateway des Netzwerk-Adapters konfiguieren kann. | ||
Autor: Gerhard Kuklau | Bewertung: | Views: 17.749 |
ohne Homepage | System: WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Mit dem Windows Management Instrumentation, oder kurz WMI, lässt sich fast alles am PC einstellen oder konfigurieren. Heute möchten wir Ihnen eine Funktion vorstellen, mit der man das Standardgateway eines Netzwerk-Adapters konfigurieren kann.
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 ' WMI-Objekt erstellen Set oWMI = GetObject("winmgmts:\\" & ComputerName & "\root\cimv2") ' Netzwerk-Adapter ermitteln Set colNetworkAdapters = oWMI.ExecQuery _ ("SELECT * FROM Win32_NetworkAdapterConfiguration " & _ "WHERE IPEnabled=TRUE") ' Standard-Gateway einstellen 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 fSetIPConfig = False Exit Function End If fSetIPConfig = True Next End Function
Beispiel für den Aufruf:
Dim bResult As Boolean bResult = fSetIPConfig("192.168.0.2", , "192.168.0.1") If Not bResult Then MsgBox "Fehler beim Festlegen des Standard-Gateway für " & _ "Rechner 192.168.0.1" End If