>How can I get the default disk volume label or number?

If all you need is the volume label:

DECLARE aVolLabel[1,5]
=ADIR(aVolLabel,'C:\*.*','V')  && use the drive letter you want
wait window 'Volume label is '+aVolLabel[1]