Серый форум — WSH: Как узнать ip модема?

Re: WSH: Как узнать ip модема?

null@example.com (ypppu) — Fri, 01 Aug 2014 05:43:20 +0000

В этой теме ссылка на последнюю версию AHK_L. Там при установке идёт в комплекте документация на английском.

У меня в подписи ссылка на старый сайт, там предыдущая версия AHK (которую теперь зовут AHK basic, или AHK classic).
Также ссылка на наш сайт, где можно посмотреть документацию на русском онлайн или скачать CHM-файлом.

В Вашем случае будет как-то так:

Run, rasdial megafon, , Hide ; Параметр Hide скрывает окно запущенной программы
Sleep, 5000 ; Ждём пять секунд установку связи
;Здесь можно проверить, что соединение прошло удачно
Run, route add 88.12.12.12 MASK 255.255.255.255 %A_IPAddress2%  METRIC 1, , Hide

Re: WSH: Как узнать ip модема?

null@example.com (selevo) — Fri, 01 Aug 2014 03:10:32 +0000

ypppu пишет:

Run, здесь пишется всё то же, что и в командной строке

благодарю
,подскажите литературку для изучения AutoHotkey
буду признателен.

Re: WSH: Как узнать ip модема?

null@example.com (ypppu) — Thu, 31 Jul 2014 19:59:27 +0000

Run, здесь пишется всё то же, что и в командной строке

Re: WSH: Как узнать ip модема?

null@example.com (selevo) — Thu, 31 Jul 2014 18:10:18 +0000

а как теперь мне сделать аналог route add
что-то типа
route add 88.12.12.12 MASK 255.255.255.255 %A_IPAddress2% METRIC 1

пол часа убил на справку по AutoHotkey
очень замудрёный скриптовый язык

Re: WSH: Как узнать ip модема?

null@example.com (selevo) — Thu, 31 Jul 2014 17:15:14 +0000

понял,тестирую...

Re: WSH: Как узнать ip модема?

null@example.com (ypppu) — Thu, 31 Jul 2014 13:09:23 +0000

selevo пишет:

AutoHotkey
тоже подходит для начального понимания работы
но ip модема во второй строчке кстати
10.248.156.57

Я не совсем об этом. Вот Вы устанавливаете соединение с Мегафоном. При этом появляется интерфейс WAN (PPP/SLIP) Interface. Следующий код отображает IP-адреса первых четырех сетевых адаптеров в компьютере:

MsgBox, %A_IPAddress1% `r`n A_IPAddress2 `r`n A_IPAddress3 `r`n A_IPAddress4

Если число сетевых адаптеров (физических и виртуальных) на компьютере неизменно, то IP-адрес модема всё время будет в одной переменной (к примеру, %A_IPAddress3%). Тогда всё просто.
И даже если число адаптеров меняется, код не сильно усложнится.

Re: WSH: Как узнать ip модема?

null@example.com (Rom5) — Thu, 31 Jul 2014 12:51:55 +0000

Кстати, в команде "route print" ведь можно и указать адрес, типа:


> route print -4 10.24*

А вывод команды "route print" можно тут же в батнике пропарсить командой FOR - если такое интересно, то поможем/подскажем.

Re: WSH: Как узнать ip модема?

null@example.com (Rom5) — Thu, 31 Jul 2014 12:38:24 +0000

selevo пишет:

выдаёт ошибку
Oшибкa: Heдoпycтимoe иcпoльзoвaниe Null: 'Join'

Хмм.
Вот, пример с предварительной проверкой значений перед объединением элементов в одну строку через "Join()" (я убрал условие віборки " WHERE IPEnabled = True", т.е. увидим все имеющиеся конфигурации):


Dim objWMIService, colNicConfigs, objNicConfig
Dim strQuery, strOut

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")

' strQuery = "SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True"
strQuery = "SELECT * FROM Win32_NetworkAdapterConfiguration "
Set colNicConfigs = objWMIService.ExecQuery (strQuery)

strOut = ""
For Each objNicConfig In colNicConfigs
    strOut = strOut & vbCrLf & "--8<-- (Caption) " & objNicConfig.Caption
    
    If IsArray(objNicConfig.DefaultIPGateway) Then
        strDefaultIPGateway = Join(objNicConfig.DefaultIPGateway, ",")
        strOut = strOut & vbCrLf &  "DefaultIPGateway: " & vbTab & strDefaultIPGateway
    End IF
    
    strOut = strOut & vbCrLf &  "Description: " & vbTab & objNicConfig.Description
    
    If IsArray(objNicConfig.IPAddress) Then
        strIPAddress = Join(objNicConfig.IPAddress, ",")
        strOut = strOut & vbCrLf &  "IPAddress: " & vbTab & strIPAddress
    End IF

    If IsArray(objNicConfig.IPSubnet) Then
        strIPSubnet = Join(objNicConfig.IPSubnet, ",")
        strOut = strOut & vbCrLf &  "IPSubnet: " & vbTab & vbTab & strIPSubnet
    End IF
    
  strOut = strOut & vbCrLf &  "MACAddress: " & vbTab & objNicConfig.MACAddress
    
    strOut = strOut & vbCrLf
Next

MsgBox strOut,,strQuery

Re: WSH: Как узнать ip модема?

null@example.com (selevo) — Thu, 31 Jul 2014 12:38:05 +0000

AutoHotkey
тоже подходит для начального понимания работы
но ip модема во второй строчке кстати
10.248.156.57

Re: WSH: Как узнать ip модема?

null@example.com (ypppu) — Thu, 31 Jul 2014 09:39:36 +0000

Если IP-адрес модема всегда находится на третьем интерфейе, то на AutoHotkey эта задача решалась бы в пару строк. В противном случае тоже можно решить, только код будет несколько длиннее.

Re: WSH: Как узнать ip модема?

null@example.com (selevo) — Thu, 31 Jul 2014 09:17:44 +0000

выдаёт ошибку

-------
Cцeнapий: d:\IP.vbs
Cтpoкa: 13
Cимвoл: 3
Oшибкa: Heдoпycтимoe иcпoльзoвaниe Null: 'Join'
Кoд: 800A005E
Иcтoчник: Oшибкa выпoлнeния Microsoft VBScrip

Re: WSH: Как узнать ip модема?

null@example.com (Rom5) — Thu, 31 Jul 2014 07:43:12 +0000

Предположу, что внутренний модем виден как сетевой адаптер. Вот, попробуйте скрипт просмотра сетевых конфигураций, имеющих IP:


Dim objWMIService, colNicConfigs, objNicConfig
Dim strQuery, strOut

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")

strQuery = "SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True"
Set colNicConfigs = objWMIService.ExecQuery (strQuery)

strOut = ""
For Each objNicConfig In colNicConfigs
  strOut = strOut & vbCrLf & "--8<-- (Caption) " & objNicConfig.Caption
    
  strDefaultIPGateway = Join(objNicConfig.DefaultIPGateway, ",")
  strOut = strOut & vbCrLf &  "DefaultIPGateway: " & vbTab & strDefaultIPGateway
    
  strOut = strOut & vbCrLf &  "Description: " & vbTab & objNicConfig.Description
    
  strIPAddress = Join(objNicConfig.IPAddress, ",")
  strOut = strOut & vbCrLf &  "IPAddress: " & vbTab & strIPAddress

  strIPSubnet = Join(objNicConfig.IPSubnet, ",")
  strOut = strOut & vbCrLf &  "IPSubnet: " & vbTab & vbTab & strIPSubnet
    
  strOut = strOut & vbCrLf &  "MACAddress: " & vbTab & objNicConfig.MACAddress
    
  strOut = strOut & vbCrLf
Next
MsgBox strOut,,strQuery

Re: WSH: Как узнать ip модема?

null@example.com (selevo) — Wed, 30 Jul 2014 09:39:47 +0000

как это выглядит в консоли:
ip модема получился 10.248.156.57

C:\>rasdial
Связь с
modem
Команда успешно завершена.

C:\>route print
===========================================================================
Список интерфейсов
0x1 ........................... MS TCP Loopback interface
0x2 ...00 e0 52 ab 51 c1 ...... Realtek RTL8139 Family PCI Fast Ethernet NIC - ?шэшяюЁЄ яырэшЁют?шър яръхЄют
0x3 ...1c 6f 65 60 59 17 ...... Atheros AR8131 PCI-E Gigabit Ethernet Controller - ?шэшяюЁЄ яырэшЁют?шър яръхЄют
0x20005 ...00 1e 10 1f 87 2c ...... HUAWEI Mobile Connect - 3G Network Card #2 - ?шэшяюЁЄ яырэшЁют?шър яръхЄют
===========================================================================
===========================================================================
Активные маршруты:
Сетевой адрес           Маска сети      Адрес шлюза       Интерфейс  Метрика
          0.0.0.0          0.0.0.0        10.3.15.2     10.3.15.101       20
        10.3.15.0    255.255.255.0      10.3.15.101     10.3.15.101       20
      10.3.15.101  255.255.255.255        127.0.0.1       127.0.0.1       20
   10.255.255.255  255.255.255.255      10.3.15.101     10.3.15.101       20
        127.0.0.0        255.0.0.0        127.0.0.1       127.0.0.1       1
        224.0.0.0        240.0.0.0      10.3.15.101     10.3.15.101       20
  255.255.255.255  255.255.255.255      10.3.15.101               2       1
  255.255.255.255  255.255.255.255      10.3.15.101     10.3.15.101       1
  255.255.255.255  255.255.255.255      10.3.15.101           20005       1
Основной шлюз:           10.3.15.2
===========================================================================
Постоянные маршруты:
  Отсутствует

C:\>rasdial modem
Установка связи с MODEM...
Проверка имени и пароля пользователя...
Регистрация компьютера в сети...
Установлена связь с MODEM.
Команда успешно завершена.

C:\>route print
===========================================================================
Список интерфейсов
0x1 ........................... MS TCP Loopback interface
0x2 ...00 e0 52 ab 51 c1 ...... Realtek RTL8139 Family PCI Fast Ethernet NIC - ?шэшяюЁЄ яырэшЁют?шър яръхЄют
0x3 ...1c 6f 65 60 59 17 ...... Atheros AR8131 PCI-E Gigabit Ethernet Controller - ?шэшяюЁЄ яырэшЁют?шър яръхЄют
0x20005 ...00 1e 10 1f 87 2c ...... HUAWEI Mobile Connect - 3G Network Card #2 - ?шэшяюЁЄ яырэшЁют?шър яръхЄют
0x50006 ...00 53 45 00 00 00 ...... WAN (PPP/SLIP) Interface
===========================================================================
===========================================================================
Активные маршруты:
Сетевой адрес           Маска сети      Адрес шлюза       Интерфейс  Метрика
          0.0.0.0          0.0.0.0        10.3.15.2     10.3.15.101       20
         10.0.0.0        255.0.0.0    10.248.156.57   10.248.156.57       1
        10.3.15.0    255.255.255.0      10.3.15.101     10.3.15.101       20
      10.3.15.101  255.255.255.255        127.0.0.1       127.0.0.1       20
    10.248.156.57  255.255.255.255        127.0.0.1       127.0.0.1       50
   10.255.255.255  255.255.255.255      10.3.15.101     10.3.15.101       20
   10.255.255.255  255.255.255.255    10.248.156.57   10.248.156.57       50
        127.0.0.0        255.0.0.0        127.0.0.1       127.0.0.1       1
        224.0.0.0        240.0.0.0      10.3.15.101     10.3.15.101       20
        224.0.0.0        240.0.0.0    10.248.156.57   10.248.156.57       50
  255.255.255.255  255.255.255.255      10.3.15.101               2       1
  255.255.255.255  255.255.255.255      10.3.15.101     10.3.15.101       1
  255.255.255.255  255.255.255.255      10.3.15.101           20005       1
  255.255.255.255  255.255.255.255    10.248.156.57   10.248.156.57       1
Основной шлюз:           10.3.15.2
===========================================================================
Постоянные маршруты:
  Отсутствует

C:\>

Re: WSH: Как узнать ip модема?

null@example.com (selevo) — Wed, 30 Jul 2014 08:58:25 +0000

да, ip модема внутренний
он каждый раз разный даётся модему
похоже в диаппазоне 10.24х.ххх.ххх

Re: WSH: Как узнать ip модема?

null@example.com (ypppu) — Wed, 30 Jul 2014 05:42:43 +0000

selevo, добавьте в названии темы префикс скриптового языка и оформите код специальным тегом.