z80 писал(а):
Подскажите как быть, если у меня скажем три сетевых адаптера?Если надо найти только имя сетевого интерфейса, то это можно сделать той же командой.
Add(MainForm,2953706,119,119)
{
Width=803
Height=274
link(onCreate,5447582:doConsoleExec,[])
}
Add(WinExec,5447582,168,119)
{
FileName="netsh"
Param="interface show interface"
Mode=0
Point(doConsoleExec)
Point(onConsoleResult)
Point(onConsoleError)
Point(onConsoleTerminate)
link(onConsoleResult,5372131:doCharset,[])
}
Add(Charset,5372131,217,133)
{
link(onCharset,10263349:doAdd,[])
}
Add(Memo,10263349,266,133)
{
Width=787
Height=235
Align=5
Font=[Lucida Console,12,0,0,204]
ScrollBars=3
}
Add(MainForm,8845070,182,168)
{
Width=1183
Height=201
Point(onClose)
link(onCreate,5447582:doConsoleExec,[])
link(onClose,5447582:doConsoleTerminate,[])
}
Add(WinExec,5447582,238,168)
{
FileName="powershell"
Param="-Command Get-NetAdapter -Physical"
Mode=0
Point(doConsoleExec)
Point(onConsoleResult)
Point(onConsoleError)
Point(onConsoleTerminate)
Point(doConsoleTerminate)
link(onConsoleResult,14369307:doWork2,[])
link(onConsoleError,7606120:doWork2,[])
link(onConsoleTerminate,7606120:doWork3,[(291,202)])
}
Add(Memo,14325343,364,182)
{
Width=1167
Height=162
Align=5
Font=[Lucida Console,12,0,0,204]
ScrollBars=3
}
Add(Charset,5372131,308,182)
{
link(onCharset,14325343:doAdd,[])
}
Add(HubEx,14369307,287,182)
{
link(onEvent,5372131:doCharset,[])
}
Add(HubEx,7606120,287,189)
{
Angle=3
link(onEvent,14369307:doWork3,[])
}
Add(MainForm,12315819,35,70)
{
Width=510
Height=561
link(onCreate,9412585:doEnumKeys,[])
}
Add(Registry,9412585,91,70)
{
HKey=2
Key="SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards"
Point(doEnumKeys)
Point(onEnumKey)
Point(doEnumValues)
Point(onEnumValue)
link(onEnumKey,4219004:doStrCat,[])
}
Add(Registry,11427169,196,77)
{
HKey=2
Value="Description"
Point(doEnumKeys)
Point(onEnumKey)
Point(doEnumValues)
Point(onEnumValue)
link(onRead,12798024:doRead,[])
link(Key,8954820:Var2,[])
}
Add(StrCat,4219004,140,77)
{
Str1="SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards\"
link(onStrCat,11427169:doRead,[])
}
Add(Registry,12798024,245,77)
{
HKey=2
Value="ServiceName"
Point(doEnumKeys)
Point(onEnumKey)
Point(doEnumValues)
Point(onEnumValue)
link(onRead,1758079:doAdd,[])
link(Key,8954820:Var3,[(258,68)])
}
Add(GetDataEx,8954820,203,63)
{
Angle=3
link(Data,4219004:Result,[(188,68)(188,117)(146,117)])
}
Add(MTStrTbl,3467787,28,175)
{
Width=494
Height=99
Align=2
Name="tabl"
Columns=#1:1|
ColorItems=0
Redaction=0
Style=4
Grid=0
link(onClick,15637679:doEvent1,[])
}
Add(MT_Add,1758079,301,77)
{
InputMT=1
link(onAdd,2450731:doRowAction,[])
link(Data,11427169:RData,[(307,68)(293,68)(293,117)(202,117)])
}
Add(MST_RowAction,2450731,357,77)
{
MSTControl="tabl"
link(onChange,582143:doColAction,[])
}
Add(MST_ColAction,582143,413,77)
{
Action=11
MSTControl="tabl"
}
Add(MT_Part,7927464,126,182)
{
Point(Data)
link(onSplit,11296418:doStrCat,[])
link(Data,3467787:Select,[(132,173)(118,173)(118,215)(34,215)])
}
Add(Registry,7275228,245,161)
{
HKey=2
Point(doEnumKeys)
Point(onEnumKey)
Point(doEnumValues)
Point(onEnumValue)
link(onRead,10066820:doString,[])
link(Key,11296418:Result,[(258,152)(237,152)(237,222)(181,222)])
link(onEnumValue,13057681:doValue,[])
}
Add(StrCat,11296418,175,182)
{
Str1="SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\"
link(onStrCat,7275228:doEnumValues,[])
}
Add(Memo,13696162,441,161)
{
Top=99
Width=494
Height=423
Align=5
Font=[Lucida Console,12,0,0,204]
ScrollBars=3
}
Add(Hub,15637679,84,175)
{
link(onEvent1,13696162:doClear,[(109,181)(109,146)(459,146)(459,174)])
link(onEvent2,7927464:doSplit,[])
}
Add(FormatStr,10066820,378,161)
{
Mask="%1 : %2"
link(onFString,13696162:doAdd,[])
link(Str1,13057681:Value,[(384,152)(370,152)(370,215)(314,215)])
}
Add(Memory,13057681,308,175)
{
link(onData,7275228:doRead,[(347,181)(347,139)(228,139)(228,167)])
}