Getting the currently logged in user under Windows

[Malte Pfaff-Brill]

Hi all,

I am using this under Vista to identify the currently logged in user:

function getUserName
  local tUser
  set the hideconsolewindows to true
  put shell("set user") into tUser
  set the itemDel to "="
  repeat for each line theLine in tUser
     if item 1 of theLine="USERNAME" then
        return item 2 to -1 of theLine
     end if
  end repeat
  return tUser
end getUserName

Is there a simpler way? Can anyone test if this works under XP and / or WIn 7, even when not logged in with admin rights?

All the best,

malte