Add(MainForm,2953706,154,105)
{
 link(onCreate,7960161:doString,[])
}
Add(FormatStr,7960161,217,119)
{
 Mask="Dim oRegistry, oFSO, sKey, sAppExe, sValue, sAppVersion\r\nConst HKEY_LOCAL_MACHINE = &H80000002\r\n\r\nSet oRegistry = GetObject("winmgmts:{impersonationLevel=impersonate}//./root/default:StdRegProv")\r\nSet oFSO = CreateObject("Scripting.FileSystemObject")\r\nsKey = "Software\Microsoft\Windows\CurrentVersion\App Paths"\r\nsAppExe = "excel.exe"\r\noRegistry.GetStringValue HKEY_LOCAL_MACHINE, sKey & "\" & sAppExe, "", sValue\r\nsys.onEvent "Версия Excel - " & oFSO.GetFileVersion(sValue)\r\nSet oFSO = Nothing\r\nSet oRegistry = Nothing"
 link(onFString,7794985:##SetScript,[])
}
Add(VBJScript,7794985,280,119)
{
 WorkPoints=#11:##SetScript|
 EventPoints=#7:onEvent|
 Script=#0:|0:|
 UseName=0
 link(onEvent,1086786:doAdd,[])
}
Add(Memo,1086786,336,119)
{
 Left=550
 Top=160
 Align=5
 Font=[MS Sans Serif,15,0,0,1]
 ScrollBars=3
}