CGI/Perl Guide | Learning Center | Forums | Advertise | Login
Site Search: in

  Main Index MAIN
INDEX
Search Posts SEARCH
POSTS
Who's Online WHO'S
ONLINE
Log in LOG
IN

Home: Perl Programming Help: Intermediate:
Windows Services and Logical Volume Monitoring Script ....

 



newbie01.perl
Novice

Mar 15, 2010, 12:31 AM

Post #1 of 1 (282 views)
Windows Services and Logical Volume Monitoring Script .... Can't Post

Hi all,

Am trying to write a script that will simply list all Windows Services and its Status, i.e Started or Not Started and the percent used and percent available space of logical volumes on Windows, is there anyone on this group that may already have a script similar to this that he/she is willing to share?

I've found some on Google and currently tweaking them ...

Sorry for being lazy ... :-) Am kinda trying not to re-invent the wheel if someone from the group may already have one that he/she is willing to share.

Thanks in advance.

Again my apologies for being lazy, am just currently short on time as well and need to get this one by the end of the day or should I say night in my timezone ...

So far this is what I have:

=========================

use Win32::Service;
my ($key, %service, %status, $part);

Win32::Service::GetServices('',\%services);

foreach $key (sort keys %services)
{
print "Display Name \t : $key, $services{$key}\n";
Win32::Service::GetStatus( '',$services{$key}, \%status);
print "CurrentState : $status{CurrentState} \n";
sleep 2;
}

=========================

Still need to workout the various values of CurrentState and what they means and then the next one is to list the Logical Volumes and their percent used space.

 
 


Search for (options) Powered by Gossamer Forum v.1.2.0

Web Applications & Managed Hosting Powered by Gossamer Threads
Visit our Mailing List Archives