tell application "System Events"
set nm to name of every disk
set myVolumes to items 1 thru -3 of nm
end tell
set choice to choose from list myVolumes with prompt "Choose disk."
if the result is not false then
set DiskName to choice
set shellScpt to "diskutil list | grep '" & DiskName & "'"
set whatItem to (do shell script shellScpt)
set DI to last word of whatItem
set shellScpt2 to "diskutil info " & DI & " | grep 'Volume UUID:'"
set UUIDstring to do shell script shellScpt2
set volUUID to last word of UUIDstring
end if