Using WMI in Perl

[rscott212]

Need help! I found this script below in a book that uses the call to WMI::OLE. This checks the services on a machine and reports the status of the service. When I ran this script, it reported that the services that is stopped as running and the one's that is running as not running. Is there a special character that represents a null value in perl? Please take a look at this script and tell me what I need to do in order for this script to give me correct information.

<code> use Win32::OLE;

my $refWMI = Win32::OLE->GetObject("winMgmts:");
my $colServices = $refWMI->InstancesOf("Win32_Service");

foreach $refService(in $colServices){
print $refService->{Name}
. " is "
. ($refService->{Started} ? "not " : "")
. "running\n";
}

undef $colServices;
undef $refWMI;
<\code>

[PrakashK]

Check your print statement. You're printing "not running" when the value of $refService->{Started} is true.

Shouldn't it be like this?

print $refService->{Name}
. " is "
. ($refService->{Started} ? "" : "not ")
. "running\n";

/prakash