Perl Win32 :: OLE打印AD对象的所有属性

Question

我使用以下代码获取AD计算机对象的属性NAME的值：

$compObj = Win32::OLE->GetObject("LDAP://cn=$computername,dc=test,dc=com");
print "$compObj->{Name}";

如何获取存储在对象中的所有属性的信息？我想念一个类似转储功能的方法或类似的东西。如何找出存在哪些可能的属性？

Answer 1

使用：

foreach $key (keys %$compObj){
  print $key."\n";
}