The following works on my Win2k box:

#!perl
use strict;
use warnings;

use Data::Dumper;
use Win32::OLE;

my $phone = Win32::OLE->new('{FC9E740F-6058-11D1-8C66-0060081841DE}');
+ # don't ask!

print Dumper($phone);
[download]

but I had to rake the registry for 'Telephony' (the string you should search for if you want to find it yourself is 'Telephony Class') to get it out of \HKEY_CLASSES_ROOT\CLSID

Hope this helps

   larryk                                          
perl -le "s,,reverse killer,e,y,rifle,lycra,,print"