Вверх ↑
Ответов: 834
Рейтинг: 181
#1: 2024-11-18 21:47:39 ЛС | профиль | цитата
zhorik5, Сделал тоже самое но на VBJScript


Add(MainForm,2953706,77,119)
{
 link(onCreate,2575197:dowork,[])
}
Add(VBJScript,2575197,133,133)
{
 WorkPoints=#6:dowork|
 EventPoints=#8:onEvents|
 Script=#23:Sub doWork(Data, Index)|22:  On Error Resume Next|58:  Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")|102:  Set colItems = objWMIService.ExecQuery("Select * from Win32_PnPEntity WHERE Name LIKE '%(COM%'",,48)|30:  For Each objItem in colItems|207:    sys.onEvents objItem.Name & ";" & objItem.Description & ";" & objItem.Manufacturer & ";" & objItem.PNPClass & ";" & objItem.Service & ";" & objItem.Present & ";" & objItem.Status & ";" & objItem.DeviceID|11:  Next     |7:End Sub|
 UseName=0
 link(onEvents,16357700:doAdd,[])
}
Add(StringTable,16357700,189,133)
{
 Left=290
 Top=140
 Align=5
 Columns=#4:Name|11:Description|12:Manufacturer|8:PNPClass|7:Service|7:Present|6:Status|8:DeviceID|
}

карма: 16

0