Miscellany

alias drives {
comopen Locator WbemScripting.SWbemLocator
if ($comerr) { echo comopen failed | halt }
echo Com: $com(Locator,ConnectServer,3, dispatch* Services)
echo Result: $com(Locator).result
comclose Locator
if $com(Services) {
   echo com: $com(Services, InstancesOf,3,string,Win32_LogicalDisk,dispatch* Instances)
   echo result: $com(Services).result
   comclose Services
}
if $com(Instances) {
   echo com: $com(Instances,Count,3)
   var %n = $com(Instances).result
   echo result: %n
   var %m = 1
   while (%m <= %n) {
     echo 4 disk: %m
     echo 3 Com: $comval(Instances, %m, Name)
     echo 3 Com: $comval(Instances, %m, FileSystem)
     echo 3 Com: $comval(Instances, %m, FreeSpace)
     echo 3 Com: $comval(Instances, %m, Description)
     inc %m
   }
   comclose instances
}
}