Add(MainForm,3496064,182,154)
{
 link(onCreate,7615066:doWork,[])
}
Add(Memo,9538519,294,168)
{
 Width=392
 Height=266
 Align=5
}
Add(VBJScript,7615066,238,168)
{
 @Hint=#29:Список установленных программ|
 WorkPoints=#6:doWork|
 EventPoints=#6:onInfo|
 Script=#22:Sub doWork(Data,Index)|0:|43:Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE|17:strComputer = "."|63:strKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"|26:strEntry1a = "DisplayName"|31:strEntry1b = "QuietDisplayName"|25:strEntry2 = "InstallDate"|26:strEntry3 = "VersionMajor"|26:strEntry4 = "VersionMinor"|27:strEntry5 = "EstimatedSize"|0:|54:Set objReg = GetObject("winmgmts://" & strComputer & _|28: "/root/default:StdRegProv")|39:objReg.EnumKey HKLM, strKey, arrSubkeys|68:sys.onInfo ("Installed Applications (" & strComputer & ")" & VbCrLf)|32:For Each strSubkey In arrSubkeys|61:  intRet1 = objReg.GetStringValue(HKLM, strKey & strSubkey, _|25:   strEntry1a, strValue1)|22:  If intRet1 <> 0 Then|53:    objReg.GetStringValue HKLM, strKey & strSubkey, _|26:     strEntry1b, strValue1|8:  End If|25:  If strValue1 <> "" Then|54:    sys.onInfo (VbCrLf & "Display Name: " & strValue1)|8:  End If|51:  objReg.GetStringValue HKLM, strKey & strSubkey, _|23:   strEntry2, strValue2|25:  If strValue2 <> "" Then|45:    sys.onInfo ("Install Date: " & strValue2)|8:  End If|50:  objReg.GetDWORDValue HKLM, strKey & strSubkey, _|23:   strEntry3, intValue3|50:  objReg.GetDWORDValue HKLM, strKey & strSubkey, _|23:   strEntry4, intValue4|25:  If intValue3 <> "" Then|59:     sys.onInfo ("Version: " & intValue3 & "." & intValue4)|8:  End If|50:  objReg.GetDWORDValue HKLM, strKey & strSubkey, _|23:   strEntry5, intValue5|25:  If intValue5 <> "" Then|77:    sys.onInfo ("Estimated Size: " & Round(intValue5/1024, 3) & " megabytes")|8:  End If|4:Next|0:|7:End Sub|
 UseName=0
 link(onInfo,9538519:doAdd,[])
 AddHint(95,97,186,13,@Hint)
}