use something as simple as this to write the information to a log file.

Code:

$logfile = "g:\kix\sandbox\username.ini"

if not readprofilestring($logfile,"Username",@userid)
	$Firstname = prompt("What is the spelling of your Firstname?"+@crlf)
	$lastname = prompt("What is the spelling of your Lastname?"+@crlf)
	$ = writeprofilestring($logfile,"Username",@userid,$firstname+","+$lastname)
endif

function prompt($question)
	? $question+": "
	gets $prompt
endfunction