Вверх ↑
Этот топик читают: Гость
Ответов: 1528
Рейтинг: 57
#1: 2011-10-04 11:58:48 ЛС | профиль | цитата
как просмотреть всё что есть в разделе NetworkCards ?

HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionNetworkCards

карма: 0

0
Ответов: 1058
Рейтинг: 76
#2: 2011-10-04 13:29:45 ЛС | профиль | цитата
Если правильно понял

code_25347.txt
------------ Дoбавленo в 13.29:
Чет подумал и, не совсем понятно
hitman249 писал(а):
всё что есть в разделе

Возможно еще и значения нужны, в общем вот что получилось


Add(MainForm,2953706,252,189)
{
Width=684
link(onCreate,14693422:doEvent,[])
}
Add(Registry,11129523,413,189)
{
HKey=2
Key="SOFTWAREMicrosoftWindows NTCurrentVersionNetworkCards"
Point(doEnumKeys)
Point(onEnumKey)
Point(onEnumValue)
Point(doEnumValues)
link(onRead,4395295:doValue,[])
link(Key,11449140:Value,[(426,177)(388,177)(388,254)(349,254)])
link(onEnumKey,1914265:doString,[(461,202)(461,223)])
link(onEnumValue,13269037:doValue,[])
}
Add(FormatStr,1914265,476,217)
{
DataCount=1
Mask="SOFTWAREMicrosoftWindows NTCurrentVersionNetworkCards\%1"
link(onFString,5242816:doEvent1,[])
}
Add(Memory,11449140,343,210)
{
Default=String(SOFTWAREMicrosoftWindows NTCurrentVersionNetworkCards)
link(onData,11129523:doEnumValues,[])
}
Add(Hub,5242816,518,217)
{
link(onEvent1,16509002:doWork2,[(550,223)(550,111)])
link(onEvent2,11449140:doValue,[(549,230)(549,264)(331,264)(331,216)])
}
Add(FormatStr,14666167,679,189)
{
Mask="%1=
%2
"
link(onFString,16509002:doWork3,[(718,195)])
link(Str1,13269037:Value,[(685,177)(660,177)(660,244)(622,244)])
link(Str2,4395295:Value,[(692,169)(603,169)(603,233)(573,233)])
}
Add(Memory,13269037,616,203)
{
link(onData,11129523:doRead,[(657,209)(657,161)(401,161)(401,195)])
}
Add(RichEdit,15359059,735,105)
{
Left=5
Top=10
Width=660
Height=255
ScrollBars=3
}
Add(Memory,4395295,567,189)
{
link(onData,14666167:doString,[])
}
Add(Debug,14693422,301,203)
{
link(onEvent,11129523:doEnumKeys,[])
}
Add(HubEx,16509002,714,105)
{
link(onEvent,15359059:doAdd,[])
}


карма: 0

1
файлы: 1code_25347.txt [1KB] [171]
Голосовали:hitman249
Ответов: 3889
Рейтинг: 362
#3: 2011-10-04 13:33:35 ЛС | профиль | цитата
hitman249 писал(а):
NetworkCards

Если нужен просто список сетевых адаптеров.
карма: 1

1
Голосовали:hitman249
Ответов: 16884
Рейтинг: 1239
#4: 2011-10-04 13:46:35 ЛС | профиль | цитата
tom-it,
code_25348.txt
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
1
файлы: 1code_25348.txt [1.4KB] [132]
Голосовали:hitman249
Ответов: 1058
Рейтинг: 76
#5: 2011-10-04 14:25:41 ЛС | профиль | цитата
Tad писал(а):
tom-it,

Не могу не согласится. В оптимизации Вам равных нет.

Кстати, это только пример(намек на необходимые точки) а не завершенная схема и работает только если в разделе имеется по одному ключу

HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionNetworkCards 1
HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionNetworkCards 2
...
HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionNetworkCards N

Если больше, схему надо переделывать.
Также в каждом найденном ключе проводить поиск на наличие "подключей"

HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionNetworkCards 1
HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionNetworkCards 1 1
HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionNetworkCards 1 2
...
HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionNetworkCards 1 N
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#6: 2011-10-04 14:51:05 ЛС | профиль | цитата
tom-it,
card.png
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1card.png [33.6KB] [203]
Ответов: 1058
Рейтинг: 76
#7: 2011-10-04 15:03:47 ЛС | профиль | цитата
tom.png
карма: 0

0
файлы: 1tom.png [17.2KB] [99]
Ответов: 1528
Рейтинг: 57
#8: 2011-10-04 15:33:30 ЛС | профиль | цитата
всем спасибо за участие

пишу утилиту для быстрой смены IP адреса(шлюза, маски, dns, рабочей группы) в реестре windows.
для этого мне нужнен был список сетевых плат т.е.
SOFTWAREMicrosoftWindows NTCurrentVersionNetworkCards1
SOFTWAREMicrosoftWindows NTCurrentVersionNetworkCards2
SOFTWAREMicrosoftWindows NTCurrentVersionNetworkCards9


далее поиск по параметру ServiceName = {4B03D72F-C535-43BC-9D6F-8A8A38759ADD}, настроек сетевухи, чтобы показать их пользователю в

HKEY_LOCAL_MACHINESYSTEMCurrentControlSetServicesTcpipParametersInterfaces

карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#9: 2011-10-04 16:14:17 правка | ЛС | профиль | цитата


Редактировалось 1 раз(а), последний 2017-03-03 07:42:47
карма: 0

0
Ответов: 3889
Рейтинг: 362
#10: 2011-10-04 19:50:28 ЛС | профиль | цитата
Последняя версия схемы с переопределением DNS

Add(MainForm,2422950,399,308)
{
}
Add(FormatStr,4261850,266,287)
{
DataCount=5
Mask="/c netsh interface ip set address name="%1" source=static addr=%2 mask=%3 gateway=%4 gwmetric=%5"
link(onFString,11518151:doWork2,[])
link(Str1,12649087:Var2,[])
link(Str2,5686368:Text,[])
link(Str3,13892114:Text,[])
link(Str4,1011665:Text,[])
link(Str5,13218910:Text,[])
}
Add(Edit,5223815,266,49)
{
Width=392
Align=2
Hint="Название подключения"
Text="Подключение по локальной сети"
}
Add(Edit,5686368,273,84)
{
Top=20
Width=392
Align=2
Hint="IP адрес"
Text="192.168.0.2"
}
Add(Edit,13892114,280,119)
{
Top=40
Width=392
Align=2
Hint="маска подсети"
Text="255.255.255.0"
}
Add(WinExec,14321779,399,273)
{
FileName="cmd.exe"
Point(doConsoleExec)
Point(doConsoleInput)
Point(onConsoleResult)
Point(onConsoleError)
link(onConsoleResult,10938803:doEvent1,[])
link(onConsoleError,10938803:doEvent2,[])
}
Add(Edit,1011665,287,154)
{
Top=60
Width=392
Align=2
Hint="IP адрес шлюза"
Text="192.168.0.1"
}
Add(Memo,9362144,539,280)
{
Top=120
Width=392
Height=133
Align=5
}
Add(Hub,10938803,455,280)
{
InCount=2
OutCount=1
link(onEvent1,10958389:doCharset,[])
}
Add(Charset,10958389,490,280)
{
link(onCharset,9362144:doAdd,[])
}
Add(Button,16636366,147,287)
{
Top=253
Width=392
Align=4
Caption="Изменить параметры"
link(onClick,9844175:doEvent1,[])
}
Add(Edit,13218910,294,189)
{
Top=80
Width=392
Align=2
Hint="метрика"
Text="1"
}
Add(FormatStr,6581594,266,378)
{
Mask="/c netsh interface ip set dns name="%1" source=static addr=%2 register=PRIMARY"
link(onFString,11518151:doWork3,[(347,384)])
link(Str1,12649087:Var1,[(272,269)(263,269)(263,194)])
link(Str2,8306169:Text,[])
}
Add(HubEx,11518151,343,287)
{
link(onEvent,14321779:doConsoleExec,[])
}
Add(GetDataEx,12649087,266,189)
{
link(Data,5223815:Text,[])
}
Add(Edit,8306169,273,336)
{
Top=100
Width=392
Align=2
Hint="IP адрес первичного DNS-сервера"
Text="192.168.0.1"
}
Add(Hub,9844175,196,287)
{
link(onEvent1,4261850:doString,[])
link(onEvent2,6581594:doString,[(238,300)(238,384)])
}


карма: 1

0
Ответов: 1528
Рейтинг: 57
#11: 2011-10-05 05:07:27 ЛС | профиль | цитата
1nd1g0, а если сетевух несколько?
карма: 0

0
Ответов: 3889
Рейтинг: 362
#12: 2011-10-05 11:57:08 ЛС | профиль | цитата
hitman249 писал(а):
а если сетевух несколько?

------------ Дoбавленo в 10.22:
Новая версия утилиты скоростной смены настроек сети, добавлен режим автоматического определения адресов через DHCP-сервер.
------------ Дoбавленo в 11.57:
Очередная версия утилиты смены настроек сети, добавлено автоматическое заполнение полей ввода параметрами, назначенными для выбранного текущим интерфейса. Иногда вместо адреса DNS появляться его статус. Утилита отлаживалась с ядром ОС NT 5.1 x86, на других системах и версиях утилит командной строки поведение может отличаться.

[burl=http://www.hiasm.com/sha/shatools.php?q=5&id=262]Real Time LAN Config v1.3 RC[/burl]
карма: 1

1
Голосовали:hitman249
12
Сообщение
...
Прикрепленные файлы
(файлы не залиты)