Then you change the line that opens the file

$rc = Open(1, @SCRIPTDIR + "\hardware.txt", 5)

Becomes

$rc = Open(1, "\\server\share\" + @UserID + ".txt", 5)

Or if you are not going to clean up the files on a regular basis...

$rc = Open(1, "\\server\share\" + @UserID + Join(Split(@Date,"/")) + ".txt", 5)
_________________________
Today is the tomorrow you worried about yesterday.