$InstalledProductVer = ReadValue('HKLM\SOFTWARE\Network Associates\TVD\VirusScan Enterprise\CurrentVersion\', 'szProductVer')
$ApprovedVersion = "8.0.0.912"
?
if CompareVersions($InstalledProductVer, "<", $ApprovedVersion)
    "We need to run an install or upgrade" ?
    "TRUE  - " + $InstalledProductVer + " < " + $ApprovedVersion ?
    RUN "\\" + $servername + "\" + $sharename + "\YourInstallprogram.exe"
else
    "No upgrade necessary" ?
    "FALSE - " + $InstalledProductVer + " < " + $ApprovedVersion ?
endif
?

;Other examples:

dim $signs, $sign, $Version1, $Version2
$signs = "<", ">", "="
$Version1 = "10.0.1.123"
$Version2 = "10.0.1.9"
for each $sign in $signs
    iif( CompareVersions($Version1, $sign, $Version2), "True  - ", "False - ")
    '"' + $Version1 + '" ' + $sign + ' "' + $Version2 + '"'
    ?
next
  

$NAVHome = ReadValue($RegPath+'HKLM\software\INTEL\LANDesk\VirusProtect6\CurrentVersion\', 'Home Directory')
$NavExecutable = split(GETFILEVERSION($NAVHome +'\vpc32.exe','ProductVersion'),".")

if ubound($NavExecutable)<3
 RUN "\\$server_name\vphome\clt-inst\win32\setup.exe /S /v/qn"
else
 if 10>$NavExecutable[0] or 1>$NavExecutable[1]
  RUN "\\$server_name\vphome\clt-inst\win32\setup.exe /S /v/qn"
 else
  if 0=$NavExecutable[2] and 394>$NavExecutable[3]
   RUN "\\$server_name\vphome\clt-inst\win32\setup.exe /S /v/qn"
  else
   if 0=$NavExecutable[2] and 394=$NavExecutable[3]
    RUN "msiexec /update \\$server_name\netlogon\sav396.msp /passive /qr /norestart"
   else
    if 0=$NavExecutable[2] and 400=$NavExecutable[3]
    RUN "msiexec /update \\$server_name\netlogon\sav401.msp /passive /qr /norestart" 
    endif
   endif
  endif
 endif
endif

function CompareVersions($version1, $comparison, $version2, optional $split)
    dim $Ver1array, $Ver2array, $Ver1arrayCnt, $Ver2arrayCnt
    dim $index, $maxindex

    if VarTypeName($split) <> "String"  $split = "." endif

    $Ver1array = split($version1, $split)
    $Ver1arrayCnt = ubound ($Ver1array)

    $Ver2array = split($version2, $split)
    $Ver2arrayCnt = ubound ($Ver2array)

    Select
        case $Ver1arrayCnt <= $Ver2arrayCnt
            $maxindex = $Ver2arrayCnt
            redim preserve $Ver1array[$maxindex]
        case $Ver1arrayCnt > $Ver2arrayCnt
            $maxindex = $Ver1arrayCnt
            redim preserve $Ver2array[$maxindex]
        case 1
            ;something is wrong
    EndSelect

    $CompareVersions = 1
    for $index = 0 to $maxindex
        dim $difference

        $difference = val($Ver2array[$index]) - val($Ver1array[$index])

        Select
            case $comparison = "="
                if $version1 <> $version2
                    $CompareVersions = 0
                    $index = 1+$maxindex
                endif
            case $comparison = "<"
                if $difference < 0 or $version1 = $version2
                    $CompareVersions = 0
                    $index = 1+$maxindex
                endif
            case $comparison = ">"
                if $difference > 0 or $version1 = $version2
                    $CompareVersions = 0
                    $index = 1+$maxindex
                endif
        Endselect
    next
endfunction