Disk serial numaralarını öğrenme. (mSL)

alias _hdd {
  $iif($com(dv),.comclose dv)
  $iif($com(dv2),.comclose dv2)
  var %s,%s2 = 1
  .comopen dv Scripting.FileSystemObject
  if ($comerr) return 
  noop $com(dv,drives,3,dispatch * dv2)
  .comclose dv
  if ($com(dv2)) {
    %s = 1
    :..
    !echo -: $$comval(dv2,%s,path) $$comval(dv2,%s,serialnumber)
    inc %s
    goto ..
  }
}