kvm disk info
while read X ; do printf "$X --"; virsh dumpxml $X | egrep "source dev|source file"; done< <(virsh list | awk '$1 ~ /^[1-9]/ { print $2 }')
This will strip out the relivent disk information from kvm. I'm using it to find disks on a SAN which are no longer in use.
Sample Output
name0 -- <source dev='/dev/mapper/name0-os'/>
<source file='/dev/mapper/name0-data'/>
name1 -- <source dev='/dev/mapper/name1-os'/>
<source file='/dev/mapper/name1-data'/>