User-agent: Mozilla/5.0 (Macintosh; U; PPC Mac OS X Mach-O; en-US; rv:1.8.1.11) Gecko/20071128 SeaMonkey/1.1.7
Just for the fun of it...
calling
diskutil_info("/")
will give you a record of all the information diskutil -info returns.
So calling
get |UUID| of diskutil_info("/")
will give you the UUID of the root disk.
Here is the handler...
on diskutil_info(a_disk)
return run script (do shell script "diskutil info " & (quoted form
of POSIX path of a_disk) & " | perl -e " & quoted form of "
use strict;
use warnings;
my (%info, $last_key);
while (<>) {
chomp;
next if /^$/;
s/^\\s+//;
s/\\s+$//;
if (s/^(\\w[^:]+?)\\s*:\\s*//) {
$last_key= $1;
$info{ $last_key }= $_;
next;
}
$info{ $last_key }.= qq(\\n).$_ if $last_key;
}
print '{',join(',',map { qq(|$_|:).quote($info{$_}) } keys %info),'}';
sub quote {
my($txt)= @_;
$txt=~ s/\"/\\\\\"/g;
return qq(\"$txt\");
}")
end diskutil_info
_______________________________________________
Do not post admin requests to the list. They will be ignored.
AppleScript-Users mailing list (email@hidden)
Help/Unsubscribe/Update your Subscription: http://lists.apple.com/mailman/options/applescript-users/email@hidden
Archives: http://lists.apple.com/archives/applescript-users
