use Win32::Service;
 
 #set up a hash of known service states
my %statcodeHash = (
     '1' => 'stopped.',
     '2' => 'start pending.',
     '3' => 'stop pending.',
     '4' => 'running.',
     '5' => 'continue pending.',
     '6' => 'pause pending.',
     '7' => 'paused.'
);
        
my %serviceHash;

#Win32::Service::StartService("", <some service>);

 #go get 'em...
Win32::Service::GetServices("", \%serviceHash);

foreach $key(keys %serviceHash)
{
     my %statusHash;
     Win32::Service::GetStatus("", "$key", \%statusHash);
     #print "$statusHash{\"CurrentState\"} \n";
     
     if ($statusHash{"CurrentState"} =~ /[1-7]/)
     {
          print $serviceHash{"$key"} . " is currently " . $statcodeHas
+h{$statusHash{"CurrentState"}} . "\n";
     }
}
[download]

The following example starts the service 'myService' after 7200 seconds (two hours).

#! /usr/bin/perl -w

use strict;
use warnings;

my $command = "net start myService";
my $delay = 7200;
my $startTime = time + $delay;
my ($seconds, $minutes, $hours, $day) = localtime $startTime;
`at $hours:$minutes /next:$day $command`;

inman

MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!"

I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README).

** The third rule of perl club is a statement of fact: pod is sexy.

my $delay = 3600;
my $$service2start = "C:\\path\\mycoolservice.exe";
my $starttime = sprintf "%d:%02d:%02d", (localtime(time+$delay))[2,1,0
+];
exec("at", $starttime, "net", "start", $service2start);
[download]

--

flounder