Change system IP address and DNS setting automatically

[adeelg39]

Dear friends,
can any one guide me how to write a code (or show me a snipet of code) in VB6 which can change the IP address and DNS of the computer to my desired addresses. I have 2 networks one in office and one at home both require me to manually change my IP and DNS every time in my laptop.

[jg007]

connecting to WMI would probably be easiest and I believe that you can set IP address easy enough via that the only issue would be locating the correct network adaptor as it would usually show approx 10 items including the infared port

the WMI query would probably be ' SELECT * FROM Win32_NetworkAdapterConfiguration ' and then run through that till you find the correct adaptor

sorry, I don't have any code available but if you cannot find anything I will work some out.

the items available through WMI on the network card -


instance of Win32_NetworkAdapterConfiguration
{
Caption = "[00000009] Ralink RT2500 Wireless LAN Card";
DatabasePath = "%SystemRoot%\\System32\\drivers\\etc";
DefaultIPGateway = {"<your default gateway>"};
Description = "Ralink RT2500 Wireless LAN Card - Virtual Machine Network Services Driver";
DHCPEnabled = TRUE;
DHCPLeaseExpires = "20081109150849.000000+000";
DHCPLeaseObtained = "20081104150849.000000+000";
DHCPServer = "<your DHCP server here>";
DNSDomain = "<Domain Name>";
DNSEnabledForWINSResolution = FALSE;
DNSHostName = "<your hostname here>";
DNSServerSearchOrder = {"<your DNS addresses here>"};
DomainDNSRegistrationEnabled = FALSE;
FullDNSRegistrationEnabled = TRUE;
GatewayCostMetric = {25};
Index = 9;
IPAddress = {"<your IP address here>"};
IPConnectionMetric = 25;
IPEnabled = TRUE;
IPFilterSecurityEnabled = FALSE;
IPSecPermitIPProtocols = {"0"};
IPSecPermitTCPPorts = {"0"};
IPSecPermitUDPPorts = {"0"};
IPSubnet = {"255.0.0.0"};
IPXEnabled = FALSE;
MACAddress = "00:0E:2E:66:37:02";
ServiceName = "RT2500";
SettingID = "{E598F9ED-4410-4D57-AB66-8EF153AA6727}";
TcpipNetbiosOptions = 0;
WINSEnableLMHostsLookup = TRUE;
WINSScopeID = "";
};

[jg007]

just found this -

http://www.windowsnetworking.com/art...pts-Part4.html

this is VBscript but you should be able to convert it to vb pretty easily