set myPrefsFile to (choose file with prompt "Select a file to read:")
open for access myPrefsFile
set prefsContents to read myPrefsFile using delimiter {return}
-- set line_count to 0
-- repeat
-- try
-- read myPrefsFile until return
-- set line_count to line_count + 1
-- on error
-- probably ran out of lines to read.
-- exit repeat
-- end try
-- end repeat
-- return line_count
-- l'ho tolto perchè è veramente lento nel contare le righe del file di testo

close access myPrefsFile

set IPvar to ((text returned) of (display dialog "Enter IP address" default answer "127.0.0.1" buttons {"Cancel", "Accept"} default button "Accept")) as text

set x to 1
repeat while x < 100
-- il ciclo è su numero di test naturalmente
set txtvar to (read myPrefsFile for (get eof myPrefsFile))
set var1 to paragraph x of txtvar
tell application "Terminal" to do script ("rdesktop -u administrator -p " & var1 & " " & IPvar)
set x to x + 1
if x = 30 then
tell application "Terminal" to quit
end if
end repeat