Re: Simple WIN32 Service Test

[frag]

There's an error in your code. The line:

Win32::Service::GetStatus("", "$key", \%statusHash);

should be:

Win32::Service::GetStatus("", $serviceHash{$key}, \%statusHash);

-- Frag.
--
"Just remember what ol' Jack Burton does when the earth quakes, the poison arrows fall from the sky, and the pillars of Heaven shake. Yeah, Jack Burton just looks that big old storm right in the eye and says, "Give me your best shot. I can take it."

[mrmick]

Thanks, frag ,

I tried your solution and it gives me a much more complete list. Here's the proof:

Output before the change:

ANSYS FLEXlm license manager is currently stopped.
Norton Program Scheduler is currently running.
NAV Alert is currently running.
UPS is currently stopped.
NAV Auto-Protect is currently running.
Spooler is currently running.
Flexlm License Server for VPI is currently stopped.
SMS Hardware Inventory Agent Service is currently stopped.
Messenger is currently running.
Retrospect Client is currently running.
EventLog is currently running.
MySql is currently running.
Alerter is currently stopped.

Output after the change:

Replicator is currently stopped.
ANSYS FLEXlm license manager is currently stopped.
WinMgmt is currently running.
SENS is currently running.
LanmanWorkstation is currently running.
Schedule is currently running.
Norton Program Scheduler is currently running.
Tb2RCAssist is currently running.
PlugPlay is currently running.
NAV Alert is currently running.
NtLmSsp is currently running.
LmHosts is currently running.
NetDDEdsdm is currently stopped.
UPS is currently stopped.
ProtectedStorage is currently running.
NAV Auto-Protect is currently running.
NetDDE is currently stopped.
WPMS is currently running.
Tb2Launch is currently running.
Spooler is currently running.
DHCP is currently running.
LanmanServer is currently running.
Netlogon is currently running.
JTAGServer is currently stopped.
Browser is currently stopped.
Flexlm License Server for VPI is currently stopped.
RPCLOCATOR is currently running.
TapiSrv is currently stopped.
MSIServer is currently stopped.
SMS Hardware Inventory Agent Service is currently stopped.
Messenger is currently running.
ClipSrv is currently stopped.
Retrospect Client is currently running.
EventLog is currently running.
SimpTcp is currently running.
clisvc is currently running.
EventSystem is currently running.
MySql is currently running.
RpcSs is currently running.
winvnc is currently running.
Alerter is currently stopped.

Mick