Вот что вчера получилось :)VB-скрипт для изменения таблицы маршрутизации (файл change_route.vbs):
' -------------------- START VB-script ----------------------------------
' SWM Route change
strComputer = "."
cDeleteRoute = ""
cAddRoute = ""
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
' Выбираем данные о IP (тут вместо 02:00:4C:4F:4F:50 нужно указать реальный MAC модема)
Set IPConfigSet = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration Where MACAddress='02:00:4C:4F:4F:50'")
' Формируем строки для route add
For Each IPConfig in IPConfigSet
If Not IsNull(IPConfig.IPAddress) Then
For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
cDeleteRoute = "route delete 0.0.0.0 mask 0.0.0.0 " + IPConfig.IPAddress(i)
' Тут вместо 93.158.134.3 нужно указать реальный IP-адрес проки-сервера
cAddRoute = "route add 93.158.134.3 mask 255.255.255.255 " + IPConfig.IPAddress(i)
Next
End If
Next
' Изменяем таблицу маршрутизации
Set WshShell = WScript.CreateObject("WScript.Shell")
WScript.Echo cDeleteRoute
WshShell.Run (cDeleteRoute)
' -------------------- END VB-script ----------------------------------
VB-скрипт для просмотра списка доступных адаптеров и их IP и MAC (файл nic_list.vbs):
' -------------------- START VB-script ----------------------------------
' SWM IP Adapters List
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set IPConfigSet = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")
For Each IPConfig in IPConfigSet
If Not IsNull(IPConfig.IPAddress) Then
For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
WScript.Echo IPConfig.IPAddress(i) + " - " + IPConfig.Caption(i) + " - " + IPConfig.MACAddress(i)
Next
End If
Next
' -------------------- END VB-script ----------------------------------
Топорно, без проверки ошибок, проверки наличия маршрутов и т.п. Но у меня дома работает, правда с АДСЛ-модемом и обычным модемом :)
Вариант для распечатки
OpenNET: Виртуальная конференция (Public)
(ok) on 16-Апр-09, 13:43 
