Como cópias de segurança da Metabase de agenda utilizando o WSH

Este artigo fornece um script de exemplo que pode ser utilizado para efectuar uma cópia de segurança da serviços de informação Internet (IIS) metabase como uma tarefa agendada utilizando o Windows Script Host (WSH).

aviso : quaisquer USE BY YOU OF IN de fornecido o código este artigo É AT YOUR próprio riscos. A Microsoft fornece este código "tal como está" sem garantias de qualquer tipo, expressas ou implícita, incluindo sem limitação as garantias implícitas de comercialização e/ou adequação a um fim específico. O IIS suporta a administração programática a metabase utilizando a interface de Servies do Active Directory (ADSI). O script de exemplo listados abaixo cria uma cópia de segurança da metabase que será armazenado no seguinte caminho: Nota : esta pasta é uma localização fixa e não pode ser alterada.

Para criar o script do WSH de exemplo e uma tarefa agendada para executar o script, siga estes passos:

1. Guardar o código seguinte na pasta C:\Inetpub\Adminscripts como Mbackup.vbs:

   '****************************************
   ' Description:
   '   Metabase Backup Utility   
   ' Syntax:
   '   CSCRIPT MBACKUP.VBS
   '****************************************
   
   Option Explicit
   On Error Resume Next
   
   ' Declare variables.
   Dim strBackupName, lngBackupVersion, lngBackupFlags
   Dim objComputer
   Dim strDay, strMonth, strYear
   
   ' Get the current DD/MM/YY as strings.
   strDay   = Right("00" & Cstr(Day(Date())),2)
   strMonth = Right("00" & Cstr(Month(Date())),2)
   strYear  = Cstr(Year(Date()))
   
   ' Create a file name from the current date.
   strBackupName = strYear & "-" & strMonth & "-" & strDay
   
   ' Use the next available version number.
   lngBackupVersion = &HFFFFFFFF
   lngBackupFlags = 0
    
   ' Output the backup message.
   Wscript.Echo "Backing up metabase to file: """ & strBackupName & """"
   
   ' Get the ADSI object.
   Set objComputer = GetObject("IIS://LOCALHOST")
   
   ' Call the backup method.
   objComputer.Backup strBackupName, lngBackupVersion, lngBackupFlags
   
   ' Check for errors.  
   If Err.Number <> 0 Then
     Wscript.Echo "Error: "  & Err.Description & " (0x" & Right(String(8,"0") & Hex(Err.Number),8) & ")"
   Else
     Wscript.Echo "Success."
   End If
   					

   Nota : O seguinte código pode ser acrescentado ao exemplo anterior para eliminar cópias de segurança antigas. Para personalizar esta, altere o valor da variável lngBackupToDelete no script.

   '****************************************
   ' The remaining code is optional and deletes a specific older backup.
   '****************************************
   
   ' The value of lngBackupToDelete determines which specific date to delete
   ' in this case. 28 days is four weeks ago if you are running a weekly backup.
   Const lngBackupToDelete = 28 
   
   ' Declare variables.
   Dim strOldDay, strOldMonth, strOldYear, strOldBackupName
   
   ' Get the old DD/MM/YY as strings.
   strOldDay   = Right("00" & Cstr(Day(Date()-lngBackupToDelete)),2)
   strOldMonth = Right("00" & Cstr(Month(Date()-lngBackupToDelete)),2)
   strOldYear  = Cstr(Year(Date()-lngBackupToDelete))
   
   ' Create the file name from the old date.
   strOldBackupName = strOldYear & "-" & strOldMonth & "-" & strOldDay
   
   ' Output the deletion message.
   Wscript.Echo "Deleting metabase backup file: """ & strOldBackupName & """"
   
   ' Call the deletion method.
   objComputer.DeleteBackup strOldBackupName, 0
   
   ' Check for errors.  
   If Err.Number <> 0 Then
     If Err.Number = &H80070002 Then
       Wscript.Echo "File not found."
     Else
       Wscript.Echo "Error: "  & Err.Description & " (0x" & Right(String(8,"0") & Hex(Err.Number),8) & ")"
     End If
   Else
     Wscript.Echo "Success."
   End If
   					

2. Crie uma tarefa para agendar o script de cópia de segurança. Numa linha de comandos, escreva um comando semelhante à seguinte:
   • Para uma tarefa para ser executada todas as segundas-feiras às 6: 00:
     AT 6: 00 / every: M cscript.exe c:\inetpub\adminscripts\mbackup.vbs
   • Para uma tarefa é executada uma vez às 9: 00:
     AT 9: 00 pm cscript.exe c:\inetpub\adminscripts\mbackup.vbs
   • Para uma tarefa para ser executada no primeiro mês às 1: 00:
     AT 1: 00 / every: 1 cscript.exe c:\inetpub\adminscripts\mbackup.vbs

Mais ajuda

A Microsoft fornece exemplos de programação apenas, para fins sem garantia expressa ou implícita. Isto inclui, mas não está limitado a, as garantias implícitas de comercialização ou adequação a um fim específico. Este artigo pressupõe que está familiarizado com a linguagem de programação apresentada e as ferramentas que são utilizadas para criar e depurar procedimentos. Os técnicos de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento, mas não modificarão estes exemplos para proporcionarem funcionalidades adicionais nem criarão procedimentos adaptados às necessidades específicas do utilizador.

Para obter informações adicionais sobre a Metabase do IIS 5, clique no número de artigo existente abaixo para visualizar o artigo na base de dados de conhecimento da Microsoft: Para obter mais informações sobre tecnologias de processamento de scripts da Microsoft, consulte o seguinte Web site da Microsoft: