Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
  print join("  ->  ", $obj->{Caption}, $obj->{InterfaceType} , $obj->
+{DeviceId});
  print  "\n";
}
  2. or download this
    Device Caption  ->  InterfaceType    ->   DeviceId
============================================================
WDC WD400BB-00CLB0  ->  IDE  ->  \\.\PHYSICALDRIVE0
WDC WD800JB-00JJA0  ->  IDE  ->  \\.\PHYSICALDRIVE1