I am trying to use the Win32::EventLog recipe right off of the
ASPN.ActiveState.com site but keep getting the following error both on
Win2000 and NT4 machines...

Could not backup and clear the Application EventLog on \\gmeyer
 (The RPC server is unavailable)
Could not backup and clear the System EventLog on \\gmeyer
 (The RPC server is unavailable)
Could not backup and clear the Security EventLog on \\gmeyer
 (The RPC server is unavailable)

Here is the exact code I am using (substituting only the machine name....
                                                                           
                                                                           
                                                                           
                                       use Win32::EventLog;                
                                       $myServer="\\\\gmeyer";     # your  
                                      servername here.                     
                                       my($date)=join("-", ((split(/\s+/,  
                                      scalar(localtime)))[0,1,2,4]));      
                                       my($dest);                          
                                       for my $eventLog ("Application",    
                                      "System", "Security") {              
                                              $handle=Win32::EventLog->new 
                                      ($eventLog, $myServer)               
                                                      or die "Can't open   
                                      Application EventLog on              
                                      $myServer\n";                        
                                              $dest="C:                    
                                      \\BackupEventLogs\\$eventLog\\$date. 
                                      evt";                                
                                              $handle->Backup($dest)       
                                                      or warn "Could not   
                                      backup and clear the $eventLog       
                                      EventLog on $myServer ($^E)\n";      
                                              $handle->Close;              
                                       }                                   
                                                                           
                                                                           



What do I need to do to avoid this error?  Thank you!

Glenn Meyer


_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs

Reply via email to