freakezoid1604
Grünschnabel
Hallo erst mal
Ich habe folgenden Code für die statische IP Einstellung doch leider geht der durch meine gesamte Lan-Verbindungen. Ich möchte diese Funktion auf eine bestimmte Verbindung beschränken.
Ich bin über jede Hilfe froh,den ich muss sehr oft wechseln zwischen statisch und DHCP.
Vielen Dank im voraus.
gruß
freakezoid1604
Ich habe folgenden Code für die statische IP Einstellung doch leider geht der durch meine gesamte Lan-Verbindungen. Ich möchte diese Funktion auf eine bestimmte Verbindung beschränken.
Ich bin über jede Hilfe froh,den ich muss sehr oft wechseln zwischen statisch und DHCP.
Vielen Dank im voraus.
gruß
freakezoid1604
Code:
Private Sub Command2_Click()
strComputer = "localhost"
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strIPAddress = Array("143.21.72.199")
strSubnetMask = Array("255.255.252.0")
strGateway = Array("143.21.72.1")
strGatewaymetric = Array(1)
For Each objNetAdapter In colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
If errEnable = 0 Then
Status.Caption = "The IP address has been changed."
Else
Status.Caption = "The IP address could not be changed."
End If
Next
End Sub
