Re: Validating that service is fully stopped in Windows

Since you're working with Windows, it may be easier to utilize some of the utilities from the Sysinternals suite of tools. PsService might end up showing you the same thing that Windows' service manager is showing. Another alternative is the PsList, which provides information about running processes. You can have your script just do a system call to utilize these utilities.

(NOTE: The first time you run one of the utilities from Sysinternals will have a GUI pop up dealing with the EULA. Subsequent times running the utilities does not encounter the EULA pop up.)

Comment on Re: Validating that service is fully stopped in Windows

Replies are listed 'Best First'.
Re^2: Validating that service is fully stopped in Windows (sysinternals eula) by Anonymous Monk on Jul 02, 2013 at 20:43 UTC
`use File::Fetch; my $ff = File::Fetch->new(uri => 'http://live.sysinternals.com/psservi +ce.exe'); my $where = $ff->fetch( to => $ENV{TEMP} \|\| $ENV{TMP} ) or die $ff->er +ror; system $where, qw{ -? -accepteula /accepteula } ) ; ## run for each us +er` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^2: Validating that service is fully stopped in Windows (sysinternals eula)
by Anonymous Monk on Jul 02, 2013 at 20:43 UTC

use File::Fetch;
my $ff = File::Fetch->new(uri => 'http://live.sysinternals.com/psservi
+ce.exe');
my $where = $ff->fetch( to => $ENV{TEMP} || $ENV{TMP} ) or die $ff->er
+ror;
system $where, qw{ -? -accepteula /accepteula } ) ; ## run for each us
+er
[download]

[reply]
[d/l]