RE: Problem with format command

2002-02-01 Thread Michael Eggleton
Ok, Did I ask a dumb question? or is there just no answer? -Original Message- From: Michael Eggleton [mailto:[EMAIL PROTECTED]] Sent: Thursday, January 31, 2002 8:33 PM To: [EMAIL PROTECTED] Subject: Problem with format command Hello All, Here is the code for the format command: use

Problem with format command

2002-01-31 Thread Michael Eggleton
Hello All, Here is the code for the format command: use Win32::Service; push( @ARGV, Win32::NodeName() ) unless( scalar @ARGV ); foreach my $Machine ( @ARGV ) { local %List; print "Available services on $Machine:\n"; if( Win32::Service::GetServices( $Machine, \%List ) ) {