Makale numarası: 302888 - Son Gözden Geçirme: 08 Ağustos 2007 Çarşamba - Gözden geçirme: 3.2

WSH kullanarak zamanlama metatabanı yedekleri nasıl

Sistem İpucuBu makale, kullandığınızdan farklı bir işletim sistemine yöneliktir. Sizinle ilgili olmayabilecek makale içeriği devre dışı bırakıldı.
Hepsini aç | Hepsini kapa

Özet

Bu makalede, Windows Script Host (WSH) kullanarak, zamanlanmış görev ınternet ınformation Services (IIS) metatabanını yedeklemek için kullanılabilecek örnek bir komut dosyası sağlar.

Daha fazla bilgi

UYARı: Bu MAKALEYI YOUR KENDI RISKI IS KOD SAğLANAN IN OF SIZE BY ANY USE. Microsoft, hiçbir garanti, ya da veya zımni, dahil ancak bunlarla sınırlı olmamak satılabilirlik ve/veya belirli bir amaca uygunluk zımni hiçbir garanti olmadan "olduğu gibi", bu kodu sağlar. IIS metatabanının Active Directory Servies arabirimi (ADSI) kullanılarak programsal yönetim destekler. Aşağıda listelenen örnek komut dosyası, aşağıdaki yolda depolanan metatabanı yedeğini oluşturur:
%SystemRoot%\System32\InetSrv\MetaBack
Not: Bu klasör, sabit bir konumdur ve değiştirilemez.

Örnek WSH komut dosyası ve komut dosyasını çalıştırmak için zamanlanmış bir görev oluşturmak için <a0></a0>, aşağıdaki adımları izleyin:
  1. Aşağıdaki kod C:\Inetpub\Adminscripts klasörünüz Mbackup.vbs olarak kaydedin:
    '****************************************
    ' 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
    					
    Not: aşağıdaki kod, eski yedekleri silmek için önceki örnek eklenebilir. Bu özelleştirmek için <a0></a0>, komut dosyas?nda lngBackupToDelete değişkenin değerini değiştirin.
    '****************************************
    ' 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. Yedekleme komut dosyası zamanlamak için bir görev oluşturun. Komut isteminde, aşağıdakine benzer bir komut yazın:
    • Her Pazartesi 6: 00'de çalışacak bir görev için:
      6: 00 Am AT / every: M cscript.exe c:\inetpub\adminscripts\mbackup.vbs
    • Bir kez 9: 00 pm altında çalışan bir görev için:
      9: 00 Pm cscript.exe c:\inetpub\adminscripts\mbackup.vbs AT
    • 1: 00 Am sırasında her ayın ilk günü üzerinde çalışacak bir görev için:
      1: 00 Am AT / every: 1 cscript.exe c:\inetpub\adminscripts\mbackup.vbs

Daha fazla Yardım

Microsoft, programlama örneklerini yalnızca gösterim amacıyla sağlar; örtülü veya açık garanti vermez. Buna satılabilirlik veya belirli bir amaca uygunluk zımni garantileri de dahildir, ancak bunlarla sınırlı değildir. Bu makale, gösterilen programlama dilini ve yordamları oluşturmak ve hata ayıklamak amacıyla kullanılan araçları kullanmayı bildiğinizi varsayar. Microsoft destek mühendisleri, belirli bir yordamın işlevselliğinin açıklanmasına yardımcı olabilir, ancak gereksinimlerinizi karşılamaya yönelik olarak ek işlevsellik sağlamak veya yordamlar geliştirmek amacıyla bu örnekleri değiştirmezler.

Referanslar

IIS 5 metatabanı yedekleme hakkında ek bilgi için Microsoft Knowledge Base'deki makaleyi görüntülemek üzere aşağıdaki makale numarasını tıklatın:
300672  (http://support.microsoft.com/kb/300672/EN-US/ ) IIS 5 kullanarak bir metatabanı yedeği oluşturma
Microsoft komut dosyası teknolojileri hakkında daha fazla bilgi için aşağıdaki Microsoft Web sitesine bakın:
http://msdn2.microsoft.com/en-us/library/ms950396.aspx (http://msdn2.microsoft.com/en-us/library/ms950396.aspx)

Bu makaledeki bilginin uygulandığı durum:
  • Microsoft Internet Information Services 5.0
Anahtar Kelimeler: 
kbmt kbinfo KB302888 KbMttr
Otomatik TercümeOtomatik Tercüme
ÖNEMLİ: Bu makale, bir kişi tarafından çevrilmek yerine, Microsoft makine-çevirisi yazılımı ile çevrilmiştir. Microsoft size hem kişiler tarafından çevrilmiş, hem de makine-çevrisi ile çevrilmiş makaleler sunar. Böylelikle, bilgi bankamızdaki tüm makalelere, kendi dilinizde ulaşmış olursunuz. Bununla birlikte, makine tarafından çevrilmiş makaleler mükemmel değildir. Bir yabancının sizin dilinizde konuşurken yapabileceği hatalar gibi, makale; kelime dağarcığı, söz dizim kuralları veya dil bilgisi açısından yanlışlar içerebilir. Microsoft, içeriğin yanlış çevrimi veya onun müşteri tarafından kullanımından doğan; kusur, hata veya zarardan sorumlu değildir. Microsoft ayrıca makine çevirisi yazılımını sıkça güncellemektedir.
Makalenin İngilizcesi aşağıdaki gibidir:302888  (http://support.microsoft.com/kb/302888/en-us/ )
Retired KB ArticleKullanım Dışı Bilgi Bankası İçeriği Yasal Uyarı
Bu makale, Microsoft'un artık destek sağlamadığı ürünler ile ilgili olarak yazılmıştır. Bu nedenle, bu makale "olduğu gibi" sağlanmıştır ve bundan sonra güncelleştirilmeyecektir.