Имя сетевого подключения

[Gudron_55]

Скажите пожалуста, как на VB можно узнать имя сетевого подключения в сетевом окружении?

[alibek]

Вопрос не имеет осмысленного значения.

[Gudron_55]

Очень даже имеет. Мне неообходимо сделать так, чтобы я знал имена сетевых подключений на всех компьютерах нашей локалки, на которых будет стоять клиент. Обчно имя сетевого подключения дефолтом "Подключение по локальной сети", но бывает что юзеры меняют его.

[GSerg]

Gudron_55, у меня 3 (три) сетевых карты, и все задействованы.
Тебе которую из них?

[Gudron_55]

Ладно, тогда собсна, ради чего все это затеивалось. Смысл в том, чтобы этот клиент менял IP-адреса, а для этого можно воспользоваться простой функцией:
call shell "netsh interface ip set address [Имя сетевого подключения] static [IP] [Mask] [Шлюз] 1", vbHide

Тогда как сделать это по другому? На форуме я нашел только этот способ.

[GSerg]

Приведи пример ситуации, когда это необходимо.

[Alexanbar]

Приведи пример ситуации, когда это необходимо.

Сегодня у меня была такая ситуация.

Стоит у меня на работе модем Huawei SmartAX 800

Если на сетевой карте выставить адрес 192.168.1.*, то можно через IE получить доступ к настройкам модема, у которого заводской адрес 192.168.1.1

Хотя, не уверен, что это надо делать очень часто. Опять же ради одного раза можно всё сделать сдандартными средствами настройки

[Gudron_55]

Ответ на вопрос найден, может кому будет полезным. Настройки сети на локальной машине можно поменять следующим образом:

Код: Выделить всё

Private Sub set_ip()
strComputer = "."
Set objWMIService = GetObject( _
    "winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
    ("Select * from Win32_NetworkAdapterConfiguration " _
        & "where IPEnabled=TRUE")
strIPAddress = Array("ip адрес")
strSubnetMask = Array("маска")

For Each objNetAdapter In colNetAdapters
    errEnable = objNetAdapter.EnableStatic( _
        strIPAddress, strSubnetMask)
Next
End Sub
Private Sub set_gateways()
strComputer = "."
On Error Resume Next

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("шлюз")
    objNetCard.SetGateways (arrGateways)
Next
End Sub

Осталось понять каким аналогичным образом можно изменить предпочитаемые ДНС адреса, может кто знает?