Help for this page

Select Code to Download


  1. or download this
     $DisplayName = shift @ARGV || die;
$Machine = Win32::NodeName() unless( $Machine = shift @ARGV );
$Machine = "\\\\$Machine";
$Machine =~ s/^\\{2,}/\\\\/;
if( Win32::Service::GetServices( $Machine, \%List ) )
  2. or download this
     while ($Line = <>) {
   chomp($Line);
   $Line =~ s/^[ \t]+//;  ### Check for spaces and tabs and remove
...
   $Machine =~ s/^\\{2,}/\\\\/;
  
if( Win32::Service::GetServices( $Machine, \%List ) )