Access WMI functions

BIZ TMS Scripter
7

DIM Locator        
DIM WMIService
DIM Volume
DIM DeviceID        

Locator = CreateOleObject("WbemScripting.SWbemLocator")         
WMIService = Locator.ConnectServer("", "root\CIMV2", "", "")
Volume = WMIService.ExecQuery("SELECT * FROM Win32_Volume WHERE name='C'")   

DeviceID=Volume.DeviceID                                                                                     

The last line causes a runtime error. Is it possible to access values from Volume?