home *** CD-ROM | disk | FTP | other *** search
/ Netrunner 2004 October / NETRUNNER0410.ISO / regular / ActivePerl-5.8.4.810-MSWin32-x86.msi / _5a5d2cd20e9aab7f36494845fcba7fdb < prev    next >
Encoding:
Text File  |  2004-06-01  |  357 b   |  19 lines
  1. #! ./perl
  2. #
  3. # tests the Windows Script Host functionality
  4.  
  5. @list = ( 'ADOSample1.wsf',
  6.     'ADOSample2.wsf',
  7.     'args.wsf "ok 1" "ok 2"',
  8.     'helloworld.wsf',
  9.     'notepad.wsf',
  10.     'showenv.wsf',
  11.     'specialfolder.wsf' );
  12.  
  13. for my $item (@list) {
  14.     system ("CScript $item");
  15.     print "Press [ ENTER ] to continue\n";
  16.     <STDIN>;
  17. }
  18.  
  19.