Select Code to Download

Select or download this

#!perl

...
for my $k (sort(keys(%{$namespace->AddressLists->Item("Global Address 
+List")->AddressEntries("Lastname,Firstname")}))) {
    printf "$k = %s\n", $namespace->AddressLists->Item("Global Address
+ List")->AddressEntries("Lastname,Firstname")->$k;
}

Select or download this

VinsWorldcom@C:\Users\VinsWorldcom\tmp> test.pl
Address = /O=EXCHANGE/OU=ORG/CN=RECIPIENTS/CN=LASTNAFI1
...
PropertyAccessor = Win32::OLE=HASH(0x2821990)
Session = Win32::OLE=HASH(0x2821a08)
Type = EX

Select or download this

Application = Win32::OLE=HASH(0x26c16c0)
Class = 112
Parent = Win32::OLE=HASH(0x26c1720)
Session = Win32::OLE=HASH(0x26c16d8)

Select or download this

for my $k (sort(keys(%{$namespace->AddressLists->Item("Global Address 
+List")->AddressEntries("Lastname,Firstname")->GetExchangeUser}))) {
    printf "$k = %s\n", $namespace->AddressLists->Item("Global Address
+ List")->AddressEntries("Lastname,Firstname")->GetExchangeUser->$k;
}