Como os backups de Metabase agenda usando WSH

Este artigo fornece um script de exemplo que pode ser usado para fazer backup da metabase (IIS) como uma tarefa agendada usando o Windows Script Host (WSH).

Aviso : qualquer USE BY você de IN de fornecido o código este artigo está em YOUR próprio risco. A Microsoft fornece esse código "como estão" sem garantia de qualquer tipo, expressa ou implícita, inclusive mas não limitada às garantias implícitas de comercialização e/ou adequação a uma finalidade específica. O IIS oferece suporte a administração programática da metabase usando a interface de Servies do Active Directory (ADSI). O script de exemplo que está listado abaixo cria um backup da metabase que serão armazenados no seguinte caminho: Observação : esta pasta é um local fixo e não pode ser alterada.

Para criar o script do WSH de exemplo e uma tarefa agendada para executar o script, execute essas etapas:

1. Salvar o código a seguir 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
   					

   Observação : O código a seguir pode ser anexado ao exemplo anterior para excluir os backups antigos. Para personalizar isso, 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 backup. Em um prompt de comando, digite um comando semelhante à seguinte:
   • Para uma tarefa que é executado toda segunda-feira em 6: 00:
     AT 6: 00 / every: M cscript.exe c:\inetpub\adminscripts\mbackup.vbs
   • Para uma tarefa que é executada uma vez no 9: 00 pm:
     AT 9: 00 pm cscript.exe c:\inetpub\adminscripts\mbackup.vbs
   • Para uma tarefa que será executado no primeiro de cada mês no 1: 00:
     AT 1: 00 / every: 1 cscript.exe c:\inetpub\adminscripts\mbackup.vbs

Ajuda adicional

Microsoft fornece exemplos de programação apenas para ilustração, sem garantia expressa ou implícita. Isso inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação para uma finalidade específica. Este artigo presume que você está familiarizados com a linguagem de programação que está sendo demonstrada e com as ferramentas que são usadas para criar e depurar procedimentos. Engenheiros de suporte podem ajudar a explicar a funcionalidade de um determinado procedimento, mas eles não modificarão esses exemplos para fornecer funcionalidades adicionais ou construir procedimentos para atender às suas necessidades.

Para obter informações adicionais sobre backup de Metabase do IIS 5, clique no número abaixo para ler o artigo na Base de dados de Conhecimento da Microsoft: Para obter mais informações sobre tecnologias de scripts da Microsoft, consulte o seguinte site: