use Win32::OLE;

$ADsPath = "WinNT://VAD-MM/lanmanserver";

$c = Win32::OLE->GetObject($ADsPath) or die "Невозможно получить $ADsPath\n";

print map {"[$_->{path}=$_->{description}]\n"} in $c;

##</code><code>##

[C:\=]
[D:\=]