tell application "System Events"
set theDisks to id of every disk
end tell
set the_disks to {}
repeat with aDisk in theDisks
if (aDisk does not start with "net") and (aDisk does not start with "home") then
set end of the_disks to my recolle(items 1 thru 2 of my decoupe(aDisk, ","), ", ID ")
end if
end repeat
set myChoice to choose from list the_disks
if myChoice is false then error number -128
set shortID to item -1 of my decoupe(item 1 of myChoice, space)
tell application "System Events"
properties of first disk whose id contains "," & shortID & ","
end tell
#=====
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
#=====
on recolle(l, d)
local oTIDs, t
set {oTIDs, AppleScript's text item delimiters} to {AppleScript's text item delimiters, d}
set t to "" & l
set AppleScript's text item delimiters to oTIDs
return t
end recolle
#=====