On the off chance this has been missed:
use Win32::Service;
$host=shift;
Win32::Service::GetServices($host,\%hashref);
foreach $key (sort keys %hashref)
{print "Service: $hashref{$key} \tDescription: $key\n";}
-----Original Message-----
From: Leon [mailto:[EMAIL PROTECTED]
Sent: Tuesday, September 09, 2003 7:53 AM
To: perl; Yahoo Beginner Perl; win32
Subject: script to enumerate window services
Hi everyone,
Does anyone know how I could go about writing a script
to find all the services running on a remote windows
2000 server (actually I need to go through about 200
servers looking for a particular service but if you
guys can just help get me started I can write the
logic to loop through all 200 and check for the
service once i Have it.) I tried to cheat :( and use
scriptomatic but i was surprised to find there is not
a wmi class for services??? Is there one am I missing
it? Can anyone give me a helpful push in the right
direction? Does anyone have any sample code I could
look at?
Thx in advance,
Leon (scripting newbie)
__________________________________
Do you Yahoo!?
Yahoo! SiteBuilder - Free, easy-to-use web site design software
http://sitebuilder.yahoo.com
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
