vamsikrishna has asked for the wisdom of the Perl Monks concerning the following question:

Hello,
I request you help to resolve following problem.I want to print all the properties of all the office documents which are existing at my PC. 
ActivePrinter ............ \\GENT016\HPLJ_Yuk on Ne01
AlertBeforeOverwriting ... 1
AlwaysUseClearType ....... 1
Application .............. [_Application]

[download]
If my question or request is not clear please let me know.
Thanks in advance.

Replies are listed 'Best First'.
Re: how to find properties of office documents at windows
by Anonymous Monk on Apr 07, 2008 at 00:24 UTC

    To implement the functions referred to use File::Find to locate all the .doc, .xls files for you. Use Win32::OLE and Win32::OLE::Enum to enumerate the properties for you.

    You will need to write some code and try before you are likely to get further help.

[reply]
      not sure but BuiltInDocumentProperties() method from the OLE object can help too i think...
[reply]
Re: how to find properties of office documents at windows
by Narveson (Chaplain) on Apr 06, 2008 at 20:40 UTC 
    use strict;
use warnings;

my @documents = all_office_documents_at_my_PC();

for my $document (@documents) {
    my %value_of = get_properties_of($document);
    for my $key (sort keys %value_of) {
        printf "%-20s%s\n", $key, $value_of{$key};
    }
}

    [download]

    Now you just have to implement 

    sub all_office_documents_at_my_PC

    [download]
    and 
    sub get_properties_of

    [download]
    .

[reply]
[d/l]
[select]
      very humoristic replay!

      it remember me a famous sentence "Excuse me, to go where we had to go, where we had to go ?" (dunno if the translation is correct..)
      but I think there is some black-magic in the properties of a M$ doc
[reply]

Back to Seekers of Perl Wisdom