DriveGet, List, List 
Loop, Parse, List
{
	DriveGet, Serial, Serial, %A_LoopField%:
	MsgBox, % "Drives:`t`t" . A_LoopField . "`n"
	. "Volume Serial No:`t" . Format("{:X}", Serial)
}

objWMIService := ComObjGet("winmgmts:\\.\root\cimv2")
colItems := objWMIService.ExecQuery("SELECT * FROM Win32_LogicalDisk")._NewEnum
while colItems[objItem]
{
        MsgBox, % "Drives:`t`t" . objItem.Caption . "`n"
            . "Volume Serial No:`t" . objItem.VolumeSerialNumber
}