Oops, I forgot the space character following the commas.
#[SCRIPT]
system info
try
result as text
on error errMsg number errNbr
offset of "{" in errMsg
set errMsg to text (result + 1) thru -1 of errMsg
offset of "}" in errMsg
set errMsg to text 1 thru (result - 1) of errMsg
set listOfRecords to my decoupe(errMsg, ", ") # EDITED
set theLabels to {}
repeat with aRecord in listOfRecords
item 1 of my decoupe(aRecord, ":")
set end of theLabels to result
end repeat
theLabels
end try
#=====
on decoupe(t, d)
local oTIDs, l
set {oTIDs, AppleScript's text item delimiters} to {AppleScript's text item delimiters, d}
set l to text items of t
set AppleScript's text item delimiters to oTIDs
return l
end decoupe
#=====
#[/SCRIPT]