From e0bc08e50a4e9fcca3029b87703ed0f2c49af235 Mon Sep 17 00:00:00 2001 From: sstent Date: Sun, 14 Apr 2013 18:13:30 -0300 Subject: [PATCH] Create cangeIPDNSWINSGW.vbs --- cangeIPDNSWINSGW.vbs | 30 ++++++++++++++++++++++++++++++ 1 file changed, 30 insertions(+) create mode 100644 cangeIPDNSWINSGW.vbs diff --git a/cangeIPDNSWINSGW.vbs b/cangeIPDNSWINSGW.vbs new file mode 100644 index 0000000..77bcbe2 --- /dev/null +++ b/cangeIPDNSWINSGW.vbs @@ -0,0 +1,30 @@ +strComputer = "." + +Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") + +Set colNetAdapters = objWMIService.ExecQuery _ + ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled=True") + +arrSubnetMask = Array("255.255.255.0") + +For Each objNetAdapter in colNetAdapters + For Each strAddress in objNetAdapter.IPAddress + arrOctets = Split(strAddress, ".") + If arrOctets(0) = "10" and arrOctets(1) = "10" Then + + arrSubnetMask = Array("255.255.255.0") + arrGW = Array("192.168.1.1") + arrDNSServers = Array("192.168.0.1", "192.168.0.2", "192.168.0.3") + strWINSPrimaryServer = "192.168.0.1" + strWINSSecondaryServer = "192.168.0.2" + + strNewAddress = "192.168." & arrOctets(2) & "." & arrOctets(3) + arrIPAddress = Array(strNewAddress) + + errEnable = objNetAdapter.EnableStatic(arrIPAddress, arrSubnetMask) + errGW = objNetAdapter.DefaultIPGateway(arrGW) + errDns = objNetAdapter.SetDNSServerSearchOrder(arrDNSServers) + errWins = objNetAdapter.SetWINSServer(strWINSPrimaryServer, strWINSSecondaryServer) + End If + Next +Next