DIM $SOFTWARELISTA, $SOFTWARELISTITEMA, $SOFTWARELISTVERA
DIM $SOFTWARELISTB, $SOFTWARELISTITEMB, $SOFTWARELISTVERB
DIM $SOFTWARELISTM, $SOFTWARELISTITEMM, $SOFTWARELISTVERM
DIM $S
Global $GROUPBOXSOFTWAREINFOAICON[0], $GROUPBOXSOFTWAREINFOALABEL[0]
Global $GROUPBOXSOFTWAREINFOBICON[0], $GROUPBOXSOFTWAREINFOBLABEL[0]
Global $GROUPBOXSOFTWAREINFOMICON[0], $GROUPBOXSOFTWAREINFOMLABEL[0]
$S = 0
$SOFTWARELISTA = "$ACTIFYSPINFIRESPSTATUS,$ACTIFYSPINFIRESPSTATUSCOLOR,Actify Spinfire,$ACTIFYSPINFIRESPVERSION","$ADOBEACROBATSPSTATUS,$ADOBEACROBATSPSTATUSCOLOR,Adobe Acrobat Professional,$ADOBEACROBATSPVERSION"
For Each $SOFTWARELISTITEMA In $SOFTWARELISTA
$SOFTWARELISTVERA = Split($SOFTWARELISTITEMA,",")
If $SOFTWARELISTVERA[0] <> "NOT INSTALLED"
ReDim Preserve $GROUPBOXSOFTWAREINFOAICON[$S]
ReDim Preserve $GROUPBOXSOFTWAREINFOALABEL[$S]
? "Software List Item Counter: " + $S
? "Software List Item Status: " + $SOFTWARELISTVERA[0]
? "Software List Item Color: " + $SOFTWARELISTVERA[1]
? "Software List Item Title: " + $SOFTWARELISTVERA[2]
? "Software List Item Version: " + $SOFTWARELISTVERA[3]
$GROUPBOXSOFTWAREINFOAICON[$S]=$GROUPBOXSOFTWAREINFO.LABEL()
$GROUPBOXSOFTWAREINFOAICON[$S].CLIENTSIZE=20,20
$GROUPBOXSOFTWAREINFOAICON[$S].LEFT=7
If $SOFTWARELISTVERA[1] = "BLACK" Or $SOFTWARELISTVERA[1] = "GREEN"
$GROUPBOXSOFTWAREINFOAICON[$S].IMAGE = "@SCRIPTDIR\PASS.BMP"
Else
$GROUPBOXSOFTWAREINFOAICON[$S].IMAGE = "@SCRIPTDIR\FAIL.BMP"
EndIf
$GROUPBOXSOFTWAREINFOAICON[$S].IMAGEALIGN=4
$GROUPBOXSOFTWAREINFOAICON[$S].TOP=($S * 15) + 15
$GROUPBOXSOFTWAREINFOALABEL[$S]=$GROUPBOXSOFTWAREINFO.LABEL()
$GROUPBOXSOFTWAREINFOALABEL[$S].CLIENTSIZE=$GROUPBOXSOFTWAREINFO.WIDTH-60,15
$GROUPBOXSOFTWAREINFOALABEL[$S].LEFT=30
$GROUPBOXSOFTWAREINFOALABEL[$S].TEXT = $SOFTWARELISTVERA[2] + ": " + $SOFTWARELISTVERA[3]
$GROUPBOXSOFTWAREINFOALABEL[$S].TEXTALIGN=1
$GROUPBOXSOFTWAREINFOALABEL[$S].TOP=($S * 15) + 20
$S = $S + 1
EndIf
Next
$SOFTWARELISTB = "$BLUEBEAMPDFREVUSPSTATUS,$BLUEBEAMPDFREVUSPSTATUSCOLOR,Bluebeam PDF Revu,$BLUEBEAMPDFREVUSPVERSION"
For Each $SOFTWARELISTITEMB In $SOFTWARELISTB
$SOFTWARELISTVERB = Split($SOFTWARELISTITEMB,",")
If $SOFTWARELISTVERB[0] <> "NOT INSTALLED"
ReDim Preserve $GROUPBOXSOFTWAREINFOBICON[$S]
ReDim Preserve $GROUPBOXSOFTWAREINFOBLABEL[$S]
? "Software List Item Counter: " + $S
? "Software List Item Status: " + $SOFTWARELISTVERB[0]
? "Software List Item Color: " + $SOFTWARELISTVERB[1]
? "Software List Item Title: " + $SOFTWARELISTVERB[2]
? "Software List Item Version: " + $SOFTWARELISTVERB[3]
$GROUPBOXSOFTWAREINFOBICON[$S]=$GROUPBOXSOFTWAREINFO.LABEL()
$GROUPBOXSOFTWAREINFOBICON[$S].CLIENTSIZE=20,20
$GROUPBOXSOFTWAREINFOBICON[$S].LEFT=7
If $SOFTWARELISTVERB[1] = "BLACK" Or $SOFTWARELISTVERB[1] = "GREEN"
$GROUPBOXSOFTWAREINFOBICON[$S].IMAGE = "@SCRIPTDIR\PASS.BMP"
Else
$GROUPBOXSOFTWAREINFOBICON[$S].IMAGE = "@SCRIPTDIR\FAIL.BMP"
EndIf
$GROUPBOXSOFTWAREINFOBICON[$S].IMAGEALIGN=4
$GROUPBOXSOFTWAREINFOBICON[$S].TOP=($S * 15) + 15
$GROUPBOXSOFTWAREINFOBLABEL[$S]=$GROUPBOXSOFTWAREINFO.LABEL()
$GROUPBOXSOFTWAREINFOBLABEL[$S].CLIENTSIZE=$GROUPBOXSOFTWAREINFO.WIDTH-60,15
$GROUPBOXSOFTWAREINFOBLABEL[$S].LEFT=30
$GROUPBOXSOFTWAREINFOBLABEL[$S].TEXT = $SOFTWARELISTVERB[2] + ": " + $SOFTWARELISTVERB[3]
$GROUPBOXSOFTWAREINFOBLABEL[$S].TEXTALIGN=1
$GROUPBOXSOFTWAREINFOBLABEL[$S].TOP=($S * 15) + 20
$S = $S + 1
EndIf
Next
$SOFTWARELISTM = "$MSGROOVESPSTATUS,$MSGROOVESPSTATUSCOLOR,Microsoft Groove,$MSGROOVESPVERSION","$MSOUTLOOKSPSTATUS,$MSOUTLOOKSPSTATUSCOLOR,Microsoft Outlook,$MSOUTLOOKSPVERSION"
For Each $SOFTWARELISTITEMM In $SOFTWARELISTM
$SOFTWARELISTVERM = Split($SOFTWARELISTITEMM,",")
If $SOFTWARELISTVERM[0] <> "NOT INSTALLED"
ReDim Preserve $GROUPBOXSOFTWAREINFOMICON[$S]
ReDim Preserve $GROUPBOXSOFTWAREINFOMLABEL[$S]
? "Software List Item Counter: " + $S
? "Software List Item Status: " + $SOFTWARELISTVERM[0]
? "Software List Item Color: " + $SOFTWARELISTVERM[1]
? "Software List Item Title: " + $SOFTWARELISTVERM[2]
? "Software List Item Version: " + $SOFTWARELISTVERM[3]
$GROUPBOXSOFTWAREINFOMICON[$S]=$GROUPBOXSOFTWAREINFO.LABEL()
$GROUPBOXSOFTWAREINFOMICON[$S].CLIENTSIZE=20,20
$GROUPBOXSOFTWAREINFOMICON[$S].LEFT=7
If $SOFTWARELISTVERM[1] = "BLACK" Or $SOFTWARELISTVERM[1] = "GREEN"
$GROUPBOXSOFTWAREINFOMICON[$S].IMAGE = "@SCRIPTDIR\PASS.BMP"
Else
$GROUPBOXSOFTWAREINFOMICON[$S].IMAGE = "@SCRIPTDIR\FAIL.BMP"
EndIf
$GROUPBOXSOFTWAREINFOMICON[$S].IMAGEALIGN=4
$GROUPBOXSOFTWAREINFOMICON[$S].TOP=($S * 15) + 15
$GROUPBOXSOFTWAREINFOMLABEL[$S]=$GROUPBOXSOFTWAREINFO.LABEL()
$GROUPBOXSOFTWAREINFOMLABEL[$S].CLIENTSIZE=$GROUPBOXSOFTWAREINFO.WIDTH-60,15
$GROUPBOXSOFTWAREINFOMLABEL[$S].LEFT=30
$GROUPBOXSOFTWAREINFOMLABEL[$S].TEXT = $SOFTWARELISTVERM[2] + ": " + $SOFTWARELISTVERM[3]
$GROUPBOXSOFTWAREINFOMLABEL[$S].TEXTALIGN=1
$GROUPBOXSOFTWAREINFOMLABEL[$S].TOP=($S * 15) + 20
$S = $S + 1
EndIf
Next