Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

die "Usage: $0 service_name\n" unless @ARGV == 1;
...
  or die "Unknown service: $service\n";
my $servstart = $services->GetValue('Start');
print "$service is $start{$servstart} service.\n";
  2. or download this
    C:\>servicetype.pl Alerter
Alerter is an automatic service.

C:\>servicetype.pl foo
Unknown service: foo