Access WMI functions

BIZ TMS Scripter
11
The following code works.

DIM Locator        
DIM WMIService
DIM Volume    
DIM nError

Locator = CreateOleObject("WbemScripting.SWbemLocator")         
WMIService = Locator.ConnectServer("", "root\CIMV2", "", "")      
Volume = WMIService.ExecQuery("Select * from Win32_Volume WHERE Name='C:\\'")
showmessage("Caption: " & Volume.ItemIndex(0).Caption)
showmessage("DeviceID: " & Volume.ItemIndex(0).DeviceID)   

Now I need to set DefragAnalysis parameters.