Break on
$filename = "c:\test\version.txt"
$RowsType = Readvalue("HKLM\SOFTWARE\Microsoft\Internet Explorer", "Version")
If @ERROR = 0
   ? "Version: $RowsType"
If Open( 2 , "$filename" , 5 ) = 0
   $counter = 0
   While $counter < $rowstype
       $nul = WriteLine ( 2 , "$rowstype[$counter] " )
       $counter = $counter + 1
   Loop
   $nul = Close(2)
Endif
 

IF Open(3, "c:\test\ie8.txt")  = 0
   $x = ReadLine(3)
   WHILE @ERROR = 0
      ? "Line read: [" + $x + "]"
      $x = ReadLine(3)
loop
     Close (3)

Break on
$filename = "c:\test\version.txt"
readline ("c:\test\ie8.txt") = 0
$computer = ReadLine(3)
   WHILE @ERROR = 0
      $computer = ReadLine(3)
$RowsType = Readvalue("\\$computer\HKLM\SOFTWARE\Microsoft\Internet Explorer", "Version")
If @ERROR = 0
   ? "Version: $RowsType"
If Open( 2 , "$filename" , 5 ) = 0
   $counter = 0
   While $counter < $rowstype
       $nul = WriteLine ( 2 , "$rowstype[$counter] " )
       $counter = $counter + 1
   Loop
   $nul = Close(2)
Endif

BERK_BRADY, 8.0.6001.18702, 
BERK_BRADY, 8.0.6001.18702, 
BERK_BRADY, 8.0.6001.18702, 
BERK_BRADY, 8.0.6001.18702, 
BERK_BRADY, 8.0.6001.18702, 
BERK_BRADY, 8.0.6001.18702, 
BERK_BRADY, 8.0.6001.18702, 
BERK_BRADY, 8.0.6001.18702, 
BERK_C_DOCK, 6.0.2900.5512, 
BERK_C_DOCK, 6.0.2900.5512, 
BERK_C_DOCK, 6.0.2900.5512, 
BERK_C_DOCK, 6.0.2900.5512, 
BERK_C_DOCK, 6.0.2900.5512, 
BERK_C_DOCK, 6.0.2900.5512,  

 
Break on

$filename = ("c:\test\version.txt")
$list = ("C:\test\ie8.txt")

IF Open(3, "$list")  = 0
$computer = ReadLine(3)
WHILE @ERROR = 0
? "Computer: $computer"
$Computer = readline(3)

$Version = Readvalue("\\$computer\HKLM\SOFTWARE\Microsoft\Internet Explorer", "Version")

If @ERROR = 0
   ? "Version: $Version"

if @error = 1
loop

If Open( 2 , "$filename") = 0
   $counter = 0
   While $counter < $Version
       $nul = WriteLine ( 2 , "$computer, $Version, " )
       $counter = $counter + 1
   Loop

   $nul = Close(2)

Endif

Computer: BERK_BECKY_K
Version: 8.0.6001.18702
Computer: BERK_BRADY
Version: 6.0.2900.5512
Computer: BERK_C_DOCK

 
Break on

$filename = ("c:\test\version.txt")
$list = ("C:\test\ie8.txt")

$Computercount = 0

IF Open( 1 , "$list")  = 0
$computer = ReadLine(1)
WHILE @ERROR = 0
? "Computer: $computer"
$Computer = readline(1)

$Computercount = $Computercount + 1

$Version = Readvalue("\\$computer\HKLM\SOFTWARE\Microsoft\Internet Explorer", "Version")

If @ERROR = 0
? "Version: $Version"

If Open( 2 , "$filename" , 5) = 0
   $counter = 0
   While $counter < $Computercount
       $write = WriteLine ( 2 , '$Version' + " " + '$Computer' + @CRLF)
       $counter = $counter + 1
   loop

$write = Close(2)

Endif

$Version = Readvalue("\\$computer\HKLM\SOFTWARE\Microsoft\Internet Explorer", "Version")

$Version = Readvalue('\\' + $computer + '\HKLM\SOFTWARE\Microsoft\Internet Explorer', 'Version')

If Ping($Computer)
  $Version = Readvalue('\\' + $computer + '\HKLM\SOFTWARE\Microsoft\Internet Explorer', 'Version')
Else
  $Version = 'No response'
EndIf

Break on

$filename = ("c:\test\version.txt")
$list = ("C:\test\ie8.txt")

IF Open( 1 , "$list")  = 0
If Open( 2 , "$filename" , 5) = 0

$computer = ReadLine(1)
WHILE @ERROR = 0
? "Computer: $computer"

$Version = "PC Not Online"

$Version = Readvalue("\\$computer\HKLM\SOFTWARE\Microsoft\Internet Explorer", "Version")

? "Version: $Version"

$write = WriteLine ( 2 , '$Version' + " " + '$Computer' + @CRLF)

$computer = ReadLine(1)

loop

Endif
Endif

$null = close(1)
$null = close(2)

Break on

; Declare variables to prevent scope creep
Dim $InFile, $OutFile			; file names for input and output
Dim $Computer				; computer name, from input file
Dim $Rc					; return-code catcher
Dim $Version				; Version data from Computer

$Rc = SetOption('NoVarsInStings', 'On')


$OutFile = ('c:\test\version.txt')
$InFile  = ('C:\test\ie8.txt')

; Open the input file - no strings in quotes!
If Open( 1 , $InFile) <> 0
  'Failed to open ' $InFile ' - aborting!' ?
  Exit 1
EndIf

; same for the output file
If Open( 2 , $OutFile, 5) <> 0
  'Failed to open ' $OutFile ' - aborting!' ?
  Exit 1
EndIf

; Read the first line, then loop until EOD (End Of Data) error
$Computer = ReadLine(1)
While Not @ERROR

  'Computer: ' $Computer ?		; display the current computer

  ; Only read the registry if the computer is online
  If Ping($Computer)
    $Version = Readvalue('\\' + $Computer + '\HKLM\SOFTWARE\Microsoft\Internet Explorer', 'Version')
  Else
    $Version = 'PC Not Online'		; no ping response
  EndIf

  ; If the registry data is blank, provide appropriate message
  $Version = IIf($Version, $Version, 'Invalid data from PC')

  'Version: ' $Version ?		Display version

  $Rc = WriteLine(2, $Version + ' ' + $Computer + @CRLF)

  $Computer = ReadLine(1)

Loop

$Rc = Close(1)
$Rc = Close(2)

Break on

function Ping($Computer,$GetIP,optional $LoopCount,optional $TimeOut)
	if $GetIP
		dim $ip, $ipfile, $
		$ipfile = @scriptdir + '\ip.txt'
		shell '%Comspec% /q /e:1024 /c for /F "tokens=2 delims=[]" %%i IN ('+ chr(39)
		+ '"ping ' + $Computer1 + ' -n 1 | find "]""' + chr(39) + ') do echo %%i >"' + $ipfile + '"'
		$ = open(10,$ipfile,2) $ip = readline(10) $ = close(10) del $ipfile
		if $ip
			$Ping = $ip
		else
			$Ping = 'Bad IP address ' + $Computer + '!'
		endif
		exit 0
	else
		if $TimeOut
			for $c = 0 to $LoopCount
				shell '%Comspec% /C ping ' + $Computer + ' -n 1 -w ' + $TimeOut + ' | find /C "TTL=" > nul'
				if @error = 0
					$Ping = 1
					exit 0
				endif
			next
		else
			for $c = 0 to $LoopCount
				shell '%Comspec% /C ping ' + $Computer + ' | find /C "TTL=" > nul'
				if @error = 0
					$Ping = 1
					exit 0
				endif
			next
		endif
		$Ping = 0
	endif
endfunction

; Declare variables to prevent scope creep
Dim $InFile, $OutFile			; file names for input and output
Dim $Computer				; computer name, from input file
Dim $Rc					; return-code catcher
Dim $Version				; Version data from Computer

$Rc = SetOption('NoVarsInStings', 'On')

$OutFile = ('c:\test\version.txt')
$InFile  = ('c:\test\ie8.txt')

; Open the input file - no strings in quotes!
If Open( 1 , $InFile) <> 0
  'Failed to open ' $InFile ' - aborting!' ?
  Exit 1
EndIf

; same for the output file
If Open( 2 , $OutFile, 5) <> 0
  'Failed to open ' $OutFile ' - aborting!' ?
  Exit 1
EndIf

; Read the first line, then loop until EOD (End Of Data) error
$Computer = ReadLine(1)
While Not @ERROR

  'Computer: ' $Computer ?		; display the current computer

  ; Only read the registry if the computer is online
  If Ping($Computer)
    $Version = Readvalue('\\' + $Computer + '\HKLM\SOFTWARE\Microsoft\Internet Explorer', 'Version')
  Else
    $Version = 'PC Not Online'		; no ping response
  EndIf

  ; If the registry data is blank, provide appropriate message
  $Version = IIf($Version, $Version, 'Invalid data from PC')

  'Version: ' $Version ?		Display version

  $Rc = WriteLine(2, $Version + ',' + $Computer + @CRLF)

  $Computer = ReadLine(1)

Loop

$Rc = Close(1)
$Rc = Close(2)

Computer(Required)
	-  String value representing the Computer to ping
GetIp (Required)
	-  If specified (1), the Function will Return the ip-address
		of specified Computer rather than pinging it ...
		Has to be 0 If you want to check For reply !
LoopCount (Optional but useful !)
	-  Integer value representing the number of times
		the Computer shall be pinged
Timeout (Optional)
	-  If ommited the Computer Gets pinged with the default
		timeout (1s) And default retries (4)

Break on

function Ping($Computer,$GetIP,optional $LoopCount,optional $TimeOut)
	if $GetIP
		dim $ip, $ipfile, $
		$ipfile = @scriptdir + '\ip.txt'
		shell '%Comspec% /q /e:1024 /c for /F "tokens=2 delims=[]" %%i IN ('+ chr(39)
		+ '"ping ' + $Computer1 + ' -n 1 | find "]""' + chr(39) + ') do echo %%i >"' + $ipfile + '"'
		$ = open(10,$ipfile,2) $ip = readline(10) $ = close(10) del $ipfile
		if $ip
			$Ping = $ip
		else
			$Ping = 'Bad IP address ' + $Computer + '!'
		endif
		exit 0
	else
		if $TimeOut
			for $c = 0 to $LoopCount
				shell '%Comspec% /C ping ' + $Computer + ' -n 1 -w ' + $TimeOut + ' | find /C "TTL=" > nul'
				if @error = 0
					$Ping = 1
					exit 0
				endif
			next
		else
			for $c = 0 to $LoopCount
				shell '%Comspec% /C ping ' + $Computer + ' | find /C "TTL=" > nul'
				if @error = 0
					$Ping = 1
					exit 0
				endif
			next
		endif
		$Ping = 0
	endif
endfunction

; Declare variables to prevent scope creep
Dim $InFile, $OutFile			; file names for input and output
Dim $Computer				; computer name, from input file
Dim $Rc					; return-code catcher
Dim $Version				; Version data from Computer

$Rc = SetOption('NoVarsInStings', 'On')

$OutFile = ('c:\test\version.txt')
$InFile  = ('c:\test\ie8.txt')

; Open the input file - no strings in quotes!
If Open( 1 , $InFile) <> 0
  'Failed to open ' $InFile ' - aborting!' ?
  Exit 1
EndIf

; same for the output file
If Open( 2 , $OutFile, 5) <> 0
  'Failed to open ' $OutFile ' - aborting!' ?
  Exit 1
EndIf

; Read the first line, then loop until EOD (End Of Data) error
$Computer = ReadLine(1)
While Not @ERROR

  'Computer: ' $Computer ?		; display the current computer

  ; Only read the registry if the computer is online
  If Ping($Computer, $getip)
    $Version = Readvalue('\\' + $Computer + '\HKLM\SOFTWARE\Microsoft\Internet Explorer', 'Version')
  Else
    $Version = 'PC Not Online'		; no ping response
  EndIf

  ; If the registry data is blank, provide appropriate message
  $Version = IIf($Version, $Version, 'Invalid data from PC')

  'Version: ' $Version ?		Display version

  $Rc = WriteLine(2, $Version + ',' + $Computer + @CRLF)

  $Computer = ReadLine(1)

Loop

$Rc = Close(1)
$Rc = Close(2)