Changing IP-Addres and Default Gateway

  • Thread starter Thread starter Nijazi Halimaji
  • Start date Start date
N

Nijazi Halimaji

Hi

In VB6 i changed the IP-Adress and Gateway of the computer by using API. Is
there an object available in .net for doing this?

Thanks alot

Nijazi Halimaji
 
I haven't seen one. The easiest thing to do would be just expose your VB6
code as a COM class.
 
WMI is the way I would go, I haven't translated this to VB.NET, but it
should give you a start:

Function ChangeIpAddress(arrNewIPA, arrSubnetMask, arrGateway, strComputer)

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery ("Select * from
Win32_NetworkAdapterConfiguration " & "where IPEnabled=TRUE")
strIPAddress = arrNewIPA
strSubnetMask = arrSubnetMask
strGateway = arrGateway
strGatewayMetric = Array(1)

For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
Next

End Function
 
Back
Top