Ask a question

Search Forums:

• Search The Official Scripting Guys Forum! Forum
• Search All Scripting Forums
• Search All Microsoft TechNet Forums

 

VB Script to shcedule a task in remote server

• Monday, November 02, 2009 12:12 PMmadhuadavi

   
  

  0

  Sign In to Vote
  In our Project We are using a perl script which copies files from FTP site to our local server.
  
  and we provide the parameters to that Script as <ftp address> <user_name> <Passwd> <FTP_Dir> <Local server Path where the files has to get copy>
  
  and that above thing we use to shcedule as a task to run every 10 min and should run with previllage of user name and passwd and the task should repeat every 23:59 min..
  
  
  For this every day we need to login to that server every day and have to create a schedule task.
  
  So my idea is to like if we could have had some vb script or some GUI foram so that it will some what make easy the work.
  
  So plz if any body help me in this and plz give me some vb script..
  
  Basically the Server is physically located in USA, But we need to RDP to that server every day and have to create a Shcedule task in that.. Its quite hectick every day..
  
  Please some body help me..
  
  and the Perl Scrpt which we use to copy files is as bellow.
  

  #!/usr/bin/perl
  
  use Net::FTP;
  use Getopt::Std;
  
  
  my $LOCK_FILE = "hiperf.lock";
  my $move = 0;
  
  my %options = ();
  
  getopts("m", \%options);
  
  if ($options{m}) {
      $move = 1;
  }
  
  
  if ($#ARGV != 4) {
      die("Usage: download_files.pl hostname user password remote-directory local-directory");
  }
  
  my $hostname = $ARGV[0];
  my $username = $ARGV[1];
  my $password = $ARGV[2];
  my $remoteDir = $ARGV[3];
  my $localDir = $ARGV[4];
  my %downloadedMap = ();
  
  my $downloadedList = "$localDir/downloadedlist.txt";
  
  # Read dowloaded list
  open(FILE, "$downloadedList");
  while (<FILE>) {
      chop;
      #print "Adding $_ to the map\n";
      $downloadedMap{$_} = 1;
  }
  close(FILE);
  
  my $ftp = Net::FTP->new($hostname) or
      die "Cannot connect to $hostname";
  
  $ftp ->login($username, $password) or 
  die "Cannot login using user: $username: ", $ftp->message;
  
  if ($remoteDir ne ".") {
      $ftp->cwd($remoteDir) || die "Unable to change directory to $remoteDir";
  }
  
  $ftp->binary;
  
  
  print "Getting file list ...\n";
  
  my @remoteList = $ftp->ls();
  
  print "Done $#remoteList\n";
  
  # Check if lock file exists
  
  if (grep(/"$LOCK_FILE"/, @remoteList)) {
      die "$LOCK_FILE exists on remote ftp server. Quitting.";
  }
  
  
  open(FILE, ">>$downloadedList");
  if (!(-e "$localDir/$LOCK_FILE")) {
      open(LOCK, ">$localDir/$LOCK_FILE");
      close(LOCK);
  }
  
  foreach $file (@remoteList) {
      next if ($downloadedMap{$file});
      if ((!($file =~ /^enc_/)) && (!($file =~ /^dkcbusy_/)) && (!($file =~ /^pairstat_/)) && (!($file =~ /^ldevio_/)) && (!($file =~ /^portio_/)) 
           && (!($file =~ /^clprbusy_/)) && (!($file =~ /^perf_/))  && (!($file =~ /^conf_/))) {
          #print "$file\n";
          next;
      }
      # Extract YYYYMMDD HHMMSS
      my ($ymd, $hms) = $file =~ /[A-Za-z]+_(\d+)_(\d+)/;
      #print "ymd = $ymd, hms = $hms\n";
      next if (($ymd eq "") || ($hms eq ""));
  
      if ($ftp->get($file, "$localDir/$file")) {
          if ($move) {
              # Move the file to yyyymmdd folder
              $ftp->mkdir($ymd);
              if (!$ftp->rename($file, "$ymd/$file")) {
                  print "Unable to move $file to $ymd/$file\n";
                  next;
              }
          }
          print "Dowloaded file $file\n";
          print FILE "$file\n";
      }
      else {
          print "Unable to download $file: " , $ftp->message, "\n";
      }
  }
  close(FILE);
  
  unlink("$localDir/$LOCK_FILE");
  
  

  and the Ex of Scheduled task is as bellow..
  
  C:\Perl\bin\perl.exe "C:\HiPERF Installers\download_files.pl" -m 207.126.248.84 allstate "allstate" 23388\  "E:\tmeacsv2\Allstate\23388\data"
  
  Please help me...

  ---

  Madhu Adavi
  • Reply
  • Quote