;just a suggestion - not tried or anything (just typed ;) ;EDIT quick and dirty way added to throw out a error-return

WriteAndDisplay('computername is something like: ' +@WKSTA )

Function WriteAndDisplay($entry)
dim $rc,$freefilehandler
$freefilehandler=FreeFileHandle()
$rc=Open($freefilehandler,"d:\temp\somefile.txt",5)
?'$entry'
$rc=WriteLine($freefilehandler,$entry)
$rc=Close($freefilehandler)
exit @error
EndFunction