Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как перечислить имена сетевых соединений? / 6 сообщений из 6, страница 1 из 1
06.12.2006, 13:44
    #34180386
SmeL_md
SmeL_md
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как перечислить имена сетевых соединений?
сабж
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.12.2006, 07:37
    #34182009
orunbek
orunbek
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как перечислить имена сетевых соединений?
VBS
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
On Error Resume Next

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

Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapter")

For Each objItem in colItems
    Wscript.Echo "Net Connection ID: " & objItem.NetConnectionID
Next
переделанный пример для вывода только имен сетевых соединений

вот оригинальный пример
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
' List Network Adapter Properties

' Windows Server 2003 : Yes
' Windows XP : Yes
' Windows 2000 : Yes
' Windows NT 4.0 : Yes
' Windows 98 : Yes

On Error Resume Next

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

Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapter")

For Each objItem in colItems
    Wscript.Echo "Adapter Type: " & objItem.AdapterType
 
    Select Case objItem.AdapterTypeID
        Case  0  strAdapterType = "Ethernet 802.3" 
        Case  1  strAdapterType = "Token Ring 802.5" 
        Case  2  strAdapterType = "Fiber Distributed Data Interface (FDDI)" 
        Case  3  strAdapterType = "Wide Area Network (WAN)" 
        Case  4  strAdapterType = "LocalTalk" 
        Case  5  strAdapterType = "Ethernet using DIX header format" 
        Case  6  strAdapterType = "ARCNET" 
        Case  7  strAdapterType = "ARCNET (878.2)" 
        Case  8  strAdapterType = "ATM" 
        Case  9  strAdapterType = "Wireless" 
        Case  10  strAdapterType = "Infrared Wireless" 
        Case  11  strAdapterType = "Bpc" 
        Case  12  strAdapterType = "CoWan" 
        Case  13  strAdapterType = "1394"
    End Select
 
    Wscript.Echo "Adapter Type Id: " & strAdapterType
    Wscript.Echo "AutoSense: " & objItem.AutoSense
    Wscript.Echo "Description: " & objItem.Description
    Wscript.Echo "Device ID: " & objItem.DeviceID
    Wscript.Echo "Index: " & objItem.Index
    Wscript.Echo "MAC Address: " & objItem.MACAddress
    Wscript.Echo "Manufacturer: " & objItem.Manufacturer
    Wscript.Echo "Maximum Number Controlled: " & objItem.MaxNumberControlled
    Wscript.Echo "Maximum Speed: " & objItem.MaxSpeed
    Wscript.Echo "Name: " & objItem.Name
    Wscript.Echo "Net Connection ID: " & objItem.NetConnectionID
    Wscript.Echo "Net Connection Status: " & objItem.NetConnectionStatus
    For Each strNetworkAddress in objItem.NetworkAddresses
        Wscript.Echo "NetworkAddress: " & strNetworkAddress
    Next
    Wscript.Echo "Permanent Address: " & objItem.PermanentAddress
    Wscript.Echo "PNP Device ID: " & objItem.PNPDeviceID
    Wscript.Echo "Product Name: " & objItem.ProductName
    Wscript.Echo "Service Name: " & objItem.ServiceName
    Wscript.Echo "Speed: " & objItem.Speed
Next
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.12.2006, 10:30
    #34182301
SmeL_md
SmeL_md
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как перечислить имена сетевых соединений?
спасибо то что нужно
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.12.2006, 11:06
    #34182479
SmeL_md
SmeL_md
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как перечислить имена сетевых соединений?
Не подскажите где можно посмотреть про струтуру таблиц к которым обращается WMI может есть утилита для просмотра. Мне необходимо будет создавать запросы а имена полей мне пока еще не известны.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.12.2006, 12:48
    #34182908
orunbek
orunbek
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как перечислить имена сетевых соединений?
Можно использовать программу VBSEdit, в которой есть возможность просматривать свойства и методы объектов, используемых в программах, но она платная, кажись есть трайал
также на msdn есть бесплатные проги, просмотра WMI, точную ссылку не помню в MSDN посмотрите раздел Windows Script или что-то вроде этого
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.12.2006, 13:42
    #34183181
SmeL_md
SmeL_md
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как перечислить имена сетевых соединений?
Спасибо orunbek все нашел.
Если еще кому то понадобится список только сетевых соединений которые видны в "Network connections" то можно исправить запрос для оптимизации
Код: plaintext
Set colItems = objWMIService.ExecQuery("Select * FROM win32_NETworkAdapter Where NetConnectionID is not NULL")
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как перечислить имена сетевых соединений? / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 521ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2164850]:
 0ms
get settings:
 13ms
get forum list:
 21ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 162ms
get topic data:
 15ms
get forum data:
 4ms
get page messages:
 50ms
get tp. blocked users:
 2ms
others: 250ms
total:  521ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]