| Shock |
| Отправлено: 18.06.2005, 17:27 |
|
Не зарегистрирован
|
Как сменить DefaultGateway из своей программы ? где хоть покапаться а то в голову вообще не лезет ничего |
|
| Vlad |
| Отправлено: 20.06.2005, 08:40 |
|
Машинист паровоза
Группа: Участник
Сообщений: 231
|
Делать легче через WMI. Копать сюда:
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.100", "192.168.1.200")
objNetCard.SetGateways(arrGateways)
Next
Исходник на vbs script. Можно и этот скрипт вставить в программу , без использования WMI |
|
