$rc = ? "File not opened, error code: [" + $ErrorValue + "]"  
 If NOT $rc=0
   ? $rc
 EndIf
 

 
CLS
;Debug On
Break On

$NotInstalled = "Not Installed.log"
$Installed = "Installed.log"
$ErrorFile = "Errors.log"
$InputFile = "computerlist.txt"

$RegistryValue = 'HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Exchange\Client\Options'
$RegistryKey = 'DumpsterAlwaysOn'
$RegData = '01'

$FileNames =  $Installed, $NotInstalled, $ErrorFile
For Each $Item In $FileNames
    If Exist($Item)
        Del $Item
    EndIf
Next


;THIS IS THE LIST OF COMPUTERS FOR WHICH REGISTRY HAS TO BE CHECKED

 
$ComputerName1 = 'COMPUTER1'
$ComputerName2 = 'COMPUTER2'
$ComputerName3 = 'COMPUTER3'
$ComputerName4 = 'COMPUTER4'

$CompNames =  $ComputerName1, $ComputerName2, $ComputerName3, $ComputerName4
For Each $Item In $CompNames
    CheckRegValue($Item)
Next


;THE LIST OF COMPUTERS HAS ALSO BEEN MENTIONED IN A .TXT FILE


/*
If Open(3, $InputFile) = 0
  $x = ReadLine(3)
  While @ERROR = 0
    ;? "Line read: [" + $x + "]"
    CheckRegValue($x)
    $x = ReadLine(3)
  Loop
  Close (3)
Else
  Beep
  $msg=messagebox("$InputFile not accessible","Check Registry key",0) 
  ;LogErrors(@ERROR,"Input File not accessible")
EndIf
*/

Function CheckRegValue($Item)

    $Value = '\\' + $Item + '\' + $RegistryValue
 
    
    $VersionType = ReadValue($Value,$RegistryKey)
    ;$msg=messagebox("$VersionType,"version type",0) 
    
      If @ERROR=0
         ;$msg=messagebox($VersionType,"version type",0) 
      Else
         LogErrors(@ERROR,$Item) 
      EndIf
    
      If VAL($VersionType) = VAL($RegData)

        $Handle1 = FreeFileHandle()     
        If Open( $Handle1 , $Installed , 5 ) = 0
            $z = WriteLine($Handle1,@CRLF + $Item)
            Close ($Handle1)
        ;Else
            ;? "failed to open file $Installed with Handle1, error code : [" + @ERROR + "]"
        EndIf  

      Else   

        $Handle2 = FreeFileHandle()     
        If Open( $Handle2 , $NotInstalled , 5 ) = 0
            If $VersionType = ""
                 $VersionType ='N/A'
            EndIf    
                $z = WriteLine($Handle2,@CRLF + $Item + " --> " + " Registry key is: " + $VersionType)
                Close ($Handle2)
        ;Else
            ;? "failed to open file $NotInstalled with Handle2, error code : [" + @ERROR + "]"
        EndIf  
      EndIf

EndFunction


Function LogErrors($ErrorValue, optional $MiscInfo1, optional $MiscInfo2)


If @ERROR
  $errorString = $MiscInfo1 + "--> " + @serror + " (" + @error + ")"
  $=RedirectOutput($ErrorFile)
  $errorString ?
  $=RedirectOutput("")
EndIf

EndFunction