Add(MainForm,7400529,280,84){
 Left=20
 Top=105
 WindowsState=2
}
Add(VBJScript,5068143,399,119)
{
 WorkPoints=#6:doWork|
 EventPoints=#7:onEvent|
 Script=#27:Function doWork(Data,Index)|0:|20:On Error Resume Next|0:|17:strComputer = "."|0:|74:Set objWMIService = GetObject("winmgmts:\" & strComputer & "ootcimv2")|69:Set colItems = objWMIService.ExecQuery("Select * from Win32_Product")|28:For Each objItem in colItems|0:|107:sys.onEvent objItem.Caption & ";" & objItem.Description & ";" & objItem.InstallDate & ";" & objItem.Version|0:|4:Next|0:|12:End Function|
 UseName=0
 link(onEvent,6211496:doAdd,[])
}
Add(StringTable,6211496,455,119)
{
 Left=545
 Top=125
 Align=5
 Columns=#12:Название=400|12:Описание=500|28:Дата установки на машину=180|11:Версия=200 |
}
Add(Button,9681997,350,119)
{
 Left=350
 Top=115
 Align=2
 link(onClick,5068143:doWork,[])
}