Script ile Ağ Kartınızın Gateway Ayarlarını Değiştirilmesi

Eğer sanal makinalar kullanıyorsanız ya da devamlı olarak PC ve Server’ da gateway değiştirme ihtiyacınız varsa aşağıdaki script işinize yarabilir.

On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colNetCards = objWMIService.ExecQuery _
("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each objNetCard in colNetCards
arrGateways = Array("192.168.1.1")
objNetCard.SetGateways(arrGateways)
Next

Birden fazla gateway varsa  arrGateways’e yeni gateway adresini yazmak yeterli olacaktır.

arrGateways = Array("192.168.1.1", "192.168.1.2")

Script ile Ağ Kartınızın Gateway Ayarlarını Değiştirilmesi