Add(MainForm,3532839,301,371)
{
Caption="а?б?аИаМаЕб? аИб?аПаОаЛб?аЗаОаВаАаНаИб? ArrayEnum"
}
Add(Button,3059601,266,574)
{
Left=105
Top=59
Caption="1"
link(onClick,14963676:doWork,[])
}
Add(Memory,8782635,406,441)
{
Default=String(8.8.8.8)
}
Add(Memory,7991434,448,441)
{
Default=String(8.8.4.4)
}
Add(Message,6705591,406,574)
{
}
Add(Memory,2201513,308,441)
{
Default=String(10.10.4.36)
}
Add(VBJScript,14963676,343,574)
{
WorkPoints=#6:doWork|
EventPoints=#7:onData1|
DataPoints=#3:ip1|3:ip2|4:mask|5:gate1|4:dns1|4:dns2|
Script=#24:Sub doWork (Data, Index)|13:ip1 = sys.ip1|13:ip2 = sys.ip2|15:mask = sys.mask|17:gate1 = sys.gate1|15:dns1 = sys.dns1|15:dns2 = sys.dns2|0:|17:strComputer = "."|112:Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\" & strComputer & "ootcimv2")|115:Set colNetCards = objWMIService.ExecQuery("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")|20:On Error Resume Next|34:For Each objNetCard in colNetCards|30:arrIPAddress = Array(ip1, ip2)|35:arrSubnetMask = Array(mask, mask) |39:arrGateways = Array(gate1) |42:arrDNSServers = Array(dns1, dns2) |64:errEnable = objNetCard.EnableStatic(arrIPAddress, arrSubnetMask)|49:errGateways = objNetCard.SetGateways(arrGateways)|49:objNetCard.SetDNSServerSearchOrder(arrDNSServers)|4:Next|15:Sys.onData1 "1"|7:End Sub|
UseName=0
link(onData1,6705591:doMessage,[])
link(ip1,11008828:String,[(349,495)(153,495)])
link(ip2,2201513:Value,[(356,524)(314,524)])
link(mask,7808185:Item,[(363,490)(265,490)])
link(gate1,2218602:Item,[])
link(dns1,8782635:Value,[(377,524)(412,524)])
link(dns2,7991434:Value,[(384,539)(454,539)])
}
Add(StrList,16421995,245,364)
{
Strings=#13:255.255.192.0|13:255.255.192.0|13:255.255.192.0|13:255.255.192.0|
}
Add(StrList,2838620,350,364)
{
Strings=#9:10.10.0.1|9:10.10.0.1|9:10.10.0.1|9:10.10.0.1|
}
Add(ArrayRW,7808185,259,441)
{
link(onRead,2218602:doRead,[])
link(Array,16421995:Array,[])
link(Index,1653397:Var2,[])
}
Add(ArrayRW,2218602,364,441)
{
link(Array,2838620:Array,[])
link(Index,1653397:Var3,[(377,425)])
}
Add(GetDataEx,1653397,266,420)
{
Angle=3
link(Data,2682025:Value,[(181,425)])
}
Add(ListBox,11008828,126,371)
{
Left=30
Top=110
Width=170
Height=125
Strings=#9:10.10.4.1|9:10.10.4.2|9:10.10.4.3|9:10.10.4.4|
Point(String)
link(onClick,2682025:doValue,[])
}
Add(Memory,2682025,175,378)
{
link(onData,7808185:doRead,[(233,384)(233,447)])
}
Ответов: 1343
Рейтинг: 31
|
|||
полагаю надо так?
|
|||
карма: 2 |
| ||
файлы: 1 | code_33496.txt [2.2KB] [181] |