Script ile ag kartinizin gateway ayarlarinin degistirilmesi

Merhaba asagidaki vb scripti yardimi ile ag kartinizin ag gecidini (gateway) veya ag gecitlerini rahatca degistirebilirsiniz, bu scriptin aginizda yapacaginiz koklu degisikliklerde size cok yardimci olacagini ve yol gosterecegini dusunuyorum.

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

Bir den fazla gateway tanimlayacaksaniz arrGateways i asagidaki sekilde kullanabilirsiniz.

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

Iyi calismalar.