OT - getting the computer's name under OSX

[Ken Ray]

On 9/16/04 4:52 AM, "Terry Judd" <tsj at unimelb.edu.au> wrote:

> I know I can get the user's name under OSX by querying $user, but how
> do I get hold of the computer's name (as given in the Sharing
> preferences pane).


Here you go:

on mouseUp
  answer ComputerName()
end mouseUp

function ComputerName
  local tName
  put shell("system_profiler SPSoftwareDataType") into tData
  get matchText(tData,"(?s)Computer Name:\W*(.*?)\n",tName)
  if it is true then
    return tName
  else
    return "Error: Can't locate computer name."
  end if
end ComputerName


Ken Ray
Sons of Thunder Software
Web site: http://www.sonsothunder.com/
Email: kray at sonsothunder.com