On 9/16/04 4:52 AM, "Terry Judd" <[EMAIL PROTECTED]> 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: [EMAIL PROTECTED]
_______________________________________________
use-revolution mailing list
[EMAIL PROTECTED]
http://lists.runrev.com/mailman/listinfo/use-revolution
