Rubrik: HTML/Internet/Netzwerk · Netzwerk | VB-Versionen: VB5, VB6 | 07.05.03 |
Ändern der IP-Adresse des Rechners via WMI Diesmal zeigen wir Ihnen, wie man mit dem mächtigen WMI-Objekt die IP-Adresse des Rechners ändern kann. | ||
Autor: Gerhard Kuklau | Bewertung: | Views: 38.368 |
ohne Homepage | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Diesmal zeigen wir Ihnen, wie man mit dem mächtigen WMI-Objekt die eigene Rechner-IP-Adresse ändern kann.
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 Set oWMI = GetObject("winmgmts:") sSQL = "SELECT * FROM win32_NetworkAdapterConfiguration WHERE IPEnabled = true" Set oResult = oWMI.execquery(sSQL) ' Menno, man kann doch nicht für jede NIC die ' gleiche IP einstellen! ' Deshalb muß hier etwas angepasst werden, wenn der betr. Computer ' mehrere Netzwerkkarten hat For Each oCard In oResult With oCard If IsArray(.IPAddress) Then nStatus = .EnableStatic(Array(sNewIP), Array(sSubNetMask)) End If End With Next End Sub