Список сетевых подключений

[Space]

Как в этом коде избавиться от отбора сетевых подключений по строковым значениям, которые указаны юзером и неизвестны, и глаголы м.б. любыми в разных Виндах? Т.е. мне надо отобрать модемные и LAN подключения из списка.

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

strNetConn = "Сетевые подключения" ' Network Connections для англ. версии ОС
strConn = "Подключение по локальной сети" ' имя или часть имени подключения
'strNetConn = "Network Connections"
'strConn = "Local Area Connection"
strEnable = "&Включить" ' En&able для англ. версии ОС
strDisable = "&Отключить" ' Disa&ble для англ. версии ОС

Set objShell = CreateObject("Shell.Application")
Set objCP = objShell.Namespace(3) ' Панель управления
For Each elem In objCP.Items
    If elem.Name = strNetConn Then
        ' получение папки "Сетевые подключения"
        Set colNetwork = elem.GetFolder
        Exit For
    End If
Next

Set Conn = Nothing
For Each clsConn In colNetwork.Items
Debug.Print clsConn.Name; clsConn.Parent

    If InStr(LCase(clsConn.Name), LCase(strConn)) Then
        ' получение указанного подключения
        Set Conn = clsConn
        Exit For
    End If
Next
If Conn Is Nothing Then
    WScript.Echo "Network Connection not found"
    WScript.Quit
End If

bEnabled = True
Set objEnable = Nothing
Set objDisable = Nothing
For Each clsVerb In Conn.verbs
'Debug.Print clsVerb.Name
    ' если доступен глагол "Enable", подключение отключено
    If clsVerb.Name = strEnable Then
        Set objEnable = clsVerb
        bEnabled = False
    End If
    ' если доступен глагол "Disable", подключение подключено
    If clsVerb.Name = strDisable Then
        Set objDisable = clsVerb
    End If
Next

[Space]

ну допустим, тут ничего не сделаешь. А как добраться к этому списку через WNetEnumResource? У меня не получилось что-то.

[Viper]

ну допустим, тут ничего не сделаешь. А как добраться к этому списку через WNetEnumResource? У меня не получилось что-то.

Поиском по форуму находится минимум два примера использования WNetEnumResource.

[Space]

да я уже весь инет обрыл. Везде примеры для получения списка компов в локалке, расшаренных ресурсов... А примера для списка соединений нет. Может, не ту функцию юзаю? Список модемных мне уже удалось получить через RAS ф-и. Осталось список LAN.

[Space]

неужели никто не делал такого?

[Viper]

На этом форуме не судьба WNetEnumResource в поиске ввести? Введешь и будут тебе и примеры и способы использования, да еще и не один.

[Space]

я ж сказал, не нашёл нужного примера.

[Space]

три танкиста, три весёлых друга - экипаж машины боевой...

[Nord777]

Посмотри в сторону WMI-класса CIM_NetworkAdapter и его свойств NetConnectionID и NetConnectionStatus

[Space]

А WMI работает, начиная с Windows ME? Хм, за модемные соединения молчит. Начал уж ковырять SetupDiEnumDeviceInfo...

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

strServer = "."

Set objWMI = GetObject("winmgmts://" & strServer & "/root\cimv2")
Set objInstances = objWMI.InstancesOf("Win32_NetworkAdapter", 48)

On Error Resume Next
For Each objInstance In objInstances
    With objInstance
'        Debug.Print .AdapterType
'        Debug.Print .AdapterTypeId
'        Debug.Print .AutoSense
'        Debug.Print .Availability
    '      Debug.Print .Caption
'        Debug.Print .ConfigManagerErrorCode
'        Debug.Print .ConfigManagerUserConfig
'        Debug.Print .CreationClassName
  '        Debug.Print .Description
'        Debug.Print .DeviceID
'        Debug.Print .ErrorCleared
'        Debug.Print .ErrorDescription
'        Debug.Print .Index
'        Debug.Print .InstallDate
'        Debug.Print .Installed
'        Debug.Print .InterfaceIndex
'        Debug.Print .LastErrorCode
   '     Debug.Print .MACAddress
'        Debug.Print .Manufacturer
'        Debug.Print .MaxNumberControlled
'        Debug.Print .MaxSpeed
'        Debug.Print .Name
        Debug.Print .NetConnectionID; .NetConnectionStatus
'        Debug.Print Join(.NetworkAddresses, ", ")
'        Debug.Print .PermanentAddress
'        Debug.Print .PNPDeviceID
'        Debug.Print Join(.PowerManagementCapabilities, ", ")
'        Debug.Print .PowerManagementSupported
'        Debug.Print .ProductName
'        Debug.Print .ServiceName
'        Debug.Print .Speed
'        Debug.Print .Status
'        Debug.Print .StatusInfo
'        Debug.Print .SystemCreationClassName
'        Debug.Print .SystemName
'        Debug.Print .TimeOfLastReset

   End With
Next
On Error GoTo 0

[Space]

проблемы с получением CLASSID_NetworkAdapter. И как правильно передавать CLASSID_NetworkAdapter в ф-ю CLSIDFromString, так?

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

Private Declare Function CLSIDFromString Lib "ole32" (ByVal lpsz As String, pclsid As Guid) As Long
Public Const CLASSID_NetworkAdapter = "{4d36e972-e325-11ce-bfc1-08002be10318}" 'найдено в инете
Private Type Guid
    Data1 As Long
    Data2 As Integer
    Data3 As Integer
    Data4(0 To 7) As Byte
End Type

lRet = CLSIDFromString(StrPtr(CLASSID_NetworkAdapter), Gd)

[Хакер]

Спейс, ты извращенец? Зачем перекодировать константу-строку в константу-структуру, если можно сразу использовать константу-структуру?

[Space]

каким образом можно сразу использовать константу-структуру?

[Space]

если ты имеешь ввиду, что данные из константы-строки можно сразу явно записать в структуру, то это ты извращенец, т.к. ты ещё не получил сам CLASSID_NetworkAdapter из реестра. Или ты хочешь сказать, что его значение всегда одно и то же? Почему тогда у меня нет его в реестре?

[Хакер]

Я не знаю, что такое CLASSID_NetworkAdapter, (намеренно не хочу знать), я смотрю в твой код и смотрю, что ты хочешь сделать. Ты хочешь константное строковое представление числа конвертировать в число. Это глупо, потому что можно сразу использовать число-константу.

А извращенец ты не потому, что пытаешься сделать вышесказанное, а по той причине, что у тебя аргумент в функции объявлен ByVal As String, а ты (какого-то черта) передаёшь результат работы функции StrPtr.

[Space]

я взял код из инета. Да и вообще, как не передавай, не работает. Проверял. Хм, строку в реестре нашёл. Ты считаешь извращением использовать спец. ф-ю вместо того, чтобы делить строку на кучу частей и прописывать вручную значение каждому члену структуры???

[Хакер]

Ты считаешь извращением использовать спец. ф-ю вместо того, чтобы делить строку на кучу частей и прописывать вручную значение каждому члену структуры???

Функция сделает то же самое. Я считаю глупостью делать в рантайме вычисления, которые можно сделать в уме до компиляции.

[Space]

с таким программингом можно программить до седых волос. А может, ты ещё знаешь, в каком формате записана строка? Где старшие байты, где младшие?

[Хакер]

я взял код из инета. Да и вообще, как не передавай, не работает.

А просто не надо тырить код из интернета и хныкать, что он не работает. Надо читать документацию. Читать документацию. Читать документацию. Читать документаци. Документацию читать, а также читать документацию.

В документации по CLSIDFromString сказано, что функция ждёт указатель на OLESTR (он же BSTR).
В документации по OLESTR (BSTR) сказано, что это такое.
В статьях о VB сказано, что все строки внутри хранятся именно в этом формате.
В статьях по Declare Function сказано, что при вызове все строки из BSTR конвертируются ASCIIZ-строк, и что нет способа повлиять на (отключить) это поведение.

Тяжело для мозга, да, сопоставить 4 этих факта, чтобы понять, что Declare не самый хороший способ объявить эту функцию, и что лучше всего использовать TLB? Тем более, что это OLE-функция, и есть готовый olelib.tlb.

А может, ты ещё знаешь, в каком формате записана строка? Где старшие байты, где младшие?

Я-то, конечно, знаю. Но если ты не знаешь, тяжело прочитать документацию по гуидам? А я бы и документацию искать/читать не стал, я бы исходя из того, что функция работает строго в соответствии с документацией (и никак иначе), подсунул бы ей тестово-маркерную строчку (dead4fee-fade-face-и-т-д} а потом посмотрел бы, во что сконвертировалось, и на основании этого определил бы, где старшие, где младшие. Это всё 10 секунд. Это всё в тысячу раз быстрее, чем потратил ты времени на создание топиков и выяснение этого вопроса.

[Space]

всё-таки бы ты заюзал функцию? А говоришь, Йа-йа... Сразу бы константу-структуру использовал... Извращенец. Использовал бы функцию, чтобы прописать РУКАМИ константу-структуру, ещё и гонял бы тестовый проект Кстати, если ты не знал, так работает:

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

Private Declare Function CLSIDFromString Lib "ole32" (ByVal lpsz As Any, pclsid As Any) As Long
lRet = CLSIDFromString(StrPtr(CLASSID_NetworkAdapter), Gd)

[Хакер]

Space, ты адекватен?
Судя по этому потоку сознания:

А говоришь, Йа-йа... Сразу бы константу-структуру использовал... Извращенец.

ты не совсем адекватен.

Я бы не использовал функцию в программе, для тех целей, для которых используешь её ты. Если бы я и использовал её, то только однократно и исключительно для того, чтобы узнать правила текстового представления гуида.

Тот код, который «кстати работает», о чём, по-твоему, я не знал, к твоему сведению, отстоен до посинения.

[Space]

что ты в нём уже нашёл отстойного?
Люди!... Переведите, плиз, этот код на язык API:
viewtopic.php?f=1&t=41065&p=6733542#p6733489

[Хакер]

Объявления As Any совершенно не обеспечивают типобезопасность. Для первого параметра это простительно, для второго это совершенно ненужно. StrPtr бесполезен, лишняя пара SysAllocString/SysFreeString (потому что указатель на константу ты никогда не получишь, создаётся копия константы и передаётся указатель на копию). Это всё решается использование нормально (через TLB) объявленной функции.

А при условии константности указанного CLSID-а, код отстоен ещё и тем, что заведомо известное 128-битное число вычисляется из константной строки, вместо того, чтобы быть числовой констатной.

[Space]

А при условии константности указанного CLSID-а, код отстоен ещё и тем, что заведомо известное 128-битное число вычисляется из константной строки, вместо того, чтобы быть числовой констатной.

Ой, Хакер, перегрев проца и выход из строя компутера.

[Space]

как теперь получить имя сетевого соединения, связанного с устройством?
http://pblog.ru/?p=105

[Space]

мда... а Enable/Disable адаптера в WMI доступно только с Vista!!!