sstent/Scripts
1
0
Fork 0
mirror of https://github.com/sstent/Scripts.git synced 2026-01-25 14:41:47 +00:00
Code Issues Packages Projects Releases Wiki Activity

Create cangeIPDNSWINSGW.vbs

Browse Source
This commit is contained in:
sstent
2013-04-14 18:13:30 -03:00
parent 1cbbab5783
commit e0bc08e50a
1 changed files with 30 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
cangeIPDNSWINSGW.vbs Normal file
View File

@@ -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