Creating objects

[brice]

Hello,

I am using Perl to access the Windows management interface to query
information on some Windows boxes through the Win32::OLE module. I am
on Windows 2000 Professional SP4 using ActivePerl 5.8. I wanted to
create a cleaner interface to this information by trying the following
code:

# ****************************************
# PACKAGE
# ****************************************
package WMI;
use Win32::OLE qw(in);

sub new{
my $host = @_[1];
my $WMI = Win32::OLE->GetObject("winmgmts://$host");
my $class = shift;
my $self = { WMI => $WMI };
bless($self, $class);
return $self;
}

sub getServices{
my $self = shift;
my $WMI = $self->{WMI};
my $set = $WMI->InstancesOf("Win32_Service");
foreach(in($set)){
print "$_->{Name}\n";
}
}

1;
# ***********************************************

# ***********************************************
# Sample Code which successfully prints out a list of running
services.
# ***********************************************
#!C:/perl/bin/perl

use strict;
use WMI;

my $WMI = WMI->new("localhost");
$WMI->getServices();
# ************************************************

So my question now is, is this a silly way to do this by taking an
object and creating another layer over it like I've done? Your
comments are greatly appreciated.

Thanks,

brice

[James Willmore]

On 26 Aug 2003 06:02:13 -0700
[email]bricemason@hotmail.com[/email] (brice) wrote:

> So my question now is, is this a silly way to do this by taking an
> object and creating another layer over it like I've done? Your
> comments are greatly appreciated.

Define what you mean by "silly". I'm of the opinion that, if it's
going to aid in producing code latter on, then it's not "silly" - it's
smart. It's that OO thing again.

Other may have opinions on this, but that's mine to offer.

--
Jim

[brice]

James Willmore <jwillmore@cyberia.com> wrote in message news:<20030826150901.2f38ecd7.jwillmore@cyberia.co m>...

>
> Define what you mean by "silly". I'm of the opinion that, if it's
> going to aid in producing code latter on, then it's not "silly" - it's
> smart. It's that OO thing again.
>
> Other may have opinions on this, but that's mine to offer.

Thanks for your response, I feel the same way. I know this will help
me in the future grabbing this information from my Windows boxes.

brice

[Webmaster]

Hi,

let us say there is Class A.
In the constructor of this class I create an Object B of Class B.

Now what is the difference between these two ?

this->B = new B;

and

B = new B;


Thank you very much!

Wenmaster