Серый форум — AHK: Считать и изменит имя сетевого соединения

Re: AHK: Считать и изменит имя сетевого соединения

2016-07-01T13:10:18Z

Malcev
B ещё каждый компьютер имеет своё имя, не знаю, но это прошибается только через netsh, в данном случае, а на работе и он не очень помогает, т.е. ошибается.

Re: AHK: Считать и изменит имя сетевого соединения

2016-07-01T13:04:31Z

У меня не локалка, просто компьютеры подключены к разным рутерам.
Не вижу в чем разница, так как у тебя все-равно же каждый компьютер имеет сетевой адаптер.

Re: AHK: Считать и изменит имя сетевого соединения

2016-07-01T12:50:35Z

Malcev пишет:

Может быть прав не хватает, может быть какие-то службы отключены.
Но у меня на 6 компьютерах код из 15 поста работает.
Проверяй с msgbox где затык.

С любого компа и все лок.адреса?
Проще обратиться к роутеру по его IP внутреннему, он должен выдать все адреса.

У тебя как организована локалка, т.е. её топология?

Re: AHK: Считать и изменит имя сетевого соединения

2016-07-01T12:40:26Z

Может быть прав не хватает, может быть какие-то службы отключены.
Но у меня на 6 компьютерах код из 15 поста работает.
Проверяй с msgbox где затык.

Re: AHK: Считать и изменит имя сетевого соединения

2016-07-01T12:24:33Z

Malcev пишет:

А этот работает?

Да, т.е. конечно, т.к. имя соединения верное.
P.S. Выдаёт IPS, т.е. локальный IP.
P.P.S. Можно по MAC узнать, но тут проблематично, т.к. компы могут меняться - это про свои дела.

Re: AHK: Считать и изменит имя сетевого соединения

2016-07-01T12:19:22Z

А этот работает?

RouterOrServer := "Internet"
MsgBox % GetLocalIPByAdaptor(RouterOrServer) ;Display the local IP of the adaptor or router or server

GetLocalIPByAdaptor(adaptorName) {
    objWMIService := ComObjGet("winmgmts:{impersonationLevel = impersonate}!\\.\root\cimv2")
    colItems := objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapter WHERE NetConnectionID = '" adaptorName "'")._NewEnum, colItems[objItem]
    colItems := objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE InterfaceIndex = '" objItem.InterfaceIndex "'")._NewEnum, colItems[objItem]
    Return objItem.IPAddress[0]
}

Re: AHK: Считать и изменит имя сетевого соединения

2016-07-01T11:59:44Z

Malcev
Залез в роутер.

Параметры сети -> LAN TCP/IP Настройка -> Использовать маршрутизатор в качестве DHCP-сервера(задействован).

Re: AHK: Считать и изменит имя сетевого соединения

2016-07-01T11:57:13Z

Понятно. Так скрипт из 15 поста перебирает адапторы и айпи?

Re: AHK: Считать и изменит имя сетевого соединения

2016-07-01T11:54:00Z

Malcev

Ну, ЛС - это Локальная Сеть, т.е. без серверной поддержки, может иметь достут в интернет или не иметь.
У меня она реализована через модем-роутер, т.е. выход в интернет. Хотя можно отключить оный для по MAC-адресу выборочно.

+ MAC-адрес

MAC-адрес (от англ. Media Access Control — управление доступом к среде, также Hardware Address) — уникальный идентификатор, присваиваемый каждой единице активного оборудования или некоторым их интерфейсам в компьютерных сетях Ethernet.

А он вообще перебирает адапторы и сети?

Нет, просто завершается... хотя может перебирает, но мне об этом не говорит.

Re: AHK: Считать и изменит имя сетевого соединения

2016-07-01T11:35:15Z

Не знаю, что такое ЛС.
Но у меня нигде сетки нету, а на обычных компьютерах название сети показывается.
А он вообще перебирает адапторы и сети?

For AdaptorName, IP in GetLocalIPs() { ;Display the IPs of all adaptors that have one
    MsgBox, %AdaptorName%: %IP%
}

GetLocalIPs() {
    adaptors := Object()
    ips := Object()
    objWMIService := ComObjGet("winmgmts:{impersonationLevel = impersonate}!\\.\root\cimv2")
    colItems := objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapter")._NewEnum, colItems[objItem]
    While (colItems[objItem])
        adaptors.Insert(objItem.InterfaceIndex,objItem.NetConnectionID)
    For index, name in adaptors {
        colItems := objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE InterfaceIndex = '" index "'")._NewEnum, colItems[objItem]
        If (name && objItem.IPAddress[0])
            ips.Insert(name,objItem.IPAddress[0])
    }
    Return ips
}

Re: AHK: Считать и изменит имя сетевого соединения

2016-07-01T11:06:06Z

Malcev
Да, тогда твоего кода из поста №11 вполне достаточно, но я сижу в ЛС из 4-х компов и только роутер, а твой MsgBox показывает пустое сообщение.

Так и должно быть? Ты не где не ошибся?

P.S. Нужно имя соединения... IMHO.

Re: AHK: Считать и изменит имя сетевого соединения

2016-07-01T10:51:32Z

Я имел в виду ситуацию, как определить название сети через которое идет доступ к интернету без каких-либо дополнительных данных.

Re: AHK: Считать и изменит имя сетевого соединения

2016-07-01T08:47:10Z

Malcev пишет:

Может так можно узнать через какое идет доступ к интернету?

Проще, вот так.

+ Get public and local IP addresses

RouterOrServer := "Internet"
MsgBox % GetPublicIP() ;Display the networks public IP
MsgBox % GetLocalIPByAdaptor(RouterOrServer) ;Display the local IP of the adaptor or router or server

For AdaptorName, IP in GetLocalIPs() { ;Display the IPs of all adaptors that have one
    MsgBox, %AdaptorName%: %IP%
}

GetPublicIP() {
    HttpObj := ComObjCreate("WinHttp.WinHttpRequest.5.1")
    HttpObj.Open("GET","https://www.google.com/search?q=what+is+my+ip&num=1")
    HttpObj.Send()
    RegexMatch(HttpObj.ResponseText,"Client IP address: ([\d\.]+)",match)
    Return match1
}

GetLocalIPByAdaptor(adaptorName) {
    objWMIService := ComObjGet("winmgmts:{impersonationLevel = impersonate}!\\.\root\cimv2")
    colItems := objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapter WHERE NetConnectionID = '" adaptorName "'")._NewEnum, colItems[objItem]
    colItems := objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE InterfaceIndex = '" objItem.InterfaceIndex "'")._NewEnum, colItems[objItem]
    Return objItem.IPAddress[0]
}

GetLocalIPs() {
    adaptors := Object()
    ips := Object()
    objWMIService := ComObjGet("winmgmts:{impersonationLevel = impersonate}!\\.\root\cimv2")
    colItems := objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapter")._NewEnum, colItems[objItem]
    While (colItems[objItem])
        adaptors.Insert(objItem.InterfaceIndex,objItem.NetConnectionID)
    For index, name in adaptors {
        colItems := objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE InterfaceIndex = '" index "'")._NewEnum, colItems[objItem]
        If (name && objItem.IPAddress[0])
            ips.Insert(name,objItem.IPAddress[0])
    }
    Return ips
}

Но при работе с сервером будет путаница, а вот для адаптера/роутера она подойдёт.
А мне же нужно другое, просто человека отключить от сервера, на то бывает много причин.

Re: AHK: Считать и изменит имя сетевого соединения

2016-06-30T14:58:16Z

А если соединений несколько, тогда что?

Может так можно узнать через какое идет доступ к интернету?
Сам проверить не могу.

msgbox % GetLocalIPs()

GetLocalIPs() {
    adaptors := Object()
    ips := Object()
    metric := 500, NetworkName := ""
    objWMIService := ComObjGet("winmgmts:{impersonationLevel = impersonate}!\\.\root\cimv2")
    colItems := objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapter")._NewEnum, colItems[objItem]
    While (colItems[objItem])
        adaptors.Insert(objItem.InterfaceIndex,objItem.NetConnectionID)
    For index, name in adaptors {
        colItems := objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE InterfaceIndex = '" index "'")._NewEnum, colItems[objItem]
        If (name && objItem.IPAddress[0]) and (objItem.IPConnectionMetric < metric) and (objItem.IPConnectionMetric >= 0)
        {
            metric := objItem.IPConnectionMetric
            NetworkName := name
        }
    }
    Return NetworkName
}

Re: AHK: Считать и изменит имя сетевого соединения

2016-06-30T01:54:28Z

Flasher пишет:

P.S.: По этикету ник помимо пробела желательно отделять запятой или переводом строки.

Flasher, Не знал - учту.