LISTING 1: Invoking the InstancesOf Method
NONEXECUTABLE

Set wmiServices = GetObject("winmgmts:")
Set wmiObjectSet = wmiServices.InstancesOf("Win32_LogicalDisk")