Makale numarası: 941330 - Son Gözden Geçirme: 16 Haziran 2008 Pazartesi - Gözden geçirme: 2.2

SharePoint Server 2007'de ve Windows SharePoint Services 3.0 yedeklerinin silme işlemini bir Visual Basic komut dosyası kullanarak otomatikleştirme

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

Giriş

Bu makalede, Microsoft Office SharePoint Server 2007'de ve Windows SharePoint Services 3.0 yedeklerinin silme, bir Microsoft Visual Basic komut dosyası kullanarak otomatikleştirme. Bu makalede, belirli sayıda gün içinde erişilenlerdir yüksektir yedekleri silen bir Visual Basic komut dosyası örneği içerir.

Daha fazla bilgi

Yedekleme, bir yapılandırılabilir bekletme ilkesini olmalıdır. Bekletme ilkeleri örnekler aşağıdaki gibidir:
  • Yedekleme, belirli bir gün sayısından sonra silinir.
  • Korunur yedekleri sayısı sınırlıdır.
Yedekleri el ile de silebilirsiniz. Ancak, el ile yedeklemeler silme (Spbrtoc.xml) liste dosyası doğru temiz değil. Bu sorunu gidermek için <a0></a0>, bir komut dosyası yedekleri silmek için kullanın.

Not Bu yordamı gerçekleştirmek için yeterli izinleriniz olmalıdır. Genellikle, yedek silme yedekleri için bir paylaşılan klasörün bulunduğu bilgisayarda yerel yönetici grubunun bir üyesi tarafından gerçekleştirilmelidir. Her durumda komut dosyasını çalıştıran kişinin izinleri, yazma izinleri ve Sil izinleri paylaşılan klasör için yedekler ve silinecek yedek dosyalarını okuma gerekir.

Uyarı Bu makaledeki kod kendi sorumluluà ° unuzdadýr kullanılır.

Microsoft, programlama örneklerini yalnızca gösterim amacıyla sağlar; satılabilirlik ve/veya belirli bir amaca uygunluk da dahil, ancak bununla sınırlı olmamak kaydıyla, örtülü veya açık garanti vermez. 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 uzmanları, 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.
Programlama deneyiminiz kısıtlıysa, bir Microsoft Sertifikalı İş Ortağı'na veya Microsoft Danışmanlık Hizmetleri'ne başvurabilirsiniz. Daha fazla bilgi için şu Microsoft Web sitelerini ziyaret edin:

Microsoft Partner - https://partner.microsoft.com/global/30000104 (https://partner.microsoft.com/global/30000104) Onaylandı

Microsoft danışma belgesi Hizmetleri - http://support.microsoft.com/gp/advisoryservice (http://support.microsoft.com/gp/advisoryservice)

Kullanılabilir destek seçenekleri ve Microsoft'a başvurma konusunda daha fazla bilgi için aşağıdaki Microsoft Web sitesini ziyaret edin: http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS (http://support.microsoft.com/default.aspx?scid=fh;en-us;cntactms)

Sınırlı programlama deneyiminiz varsa, Microsoft Certified Partner'ı veya Microsoft ücret tabanlı satırında (800) 936-5200 danışmanlık tercih edebilirsiniz. Microsoft Sertifikalı iş ortakları hakkında daha fazla bilgi için aşağıdaki Microsoft Web sitesini ziyaret edin:
https://partner.microsoft.com/40011340 (https://partner.microsoft.com/40011340)
Sunulan destek seçenekleri ve Microsoft'a başvurma hakkında daha fazla bilgi için, aşağıdaki Microsoft Web sitesini ziyaret edin:
http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS (http://support.microsoft.com/default.aspx?scid=fh;en-us;cntactms)

Örnek komut dosyası

Aşağıdaki örnek Visual Basic komut dosyası, yedekleme silme işlemini otomatikleştirir. Bu komut, belirli sayıda gün içinde erişilenlerdir yüksektir yedek silinir.
'       Title: BackupCleanUp
' Description: Deletes SharePoint 2007 backups that are older than a specified 
'              number of days and then removes the backups from the backup history. 

Setlocale(1033)
Dim nNumberOfDays
Dim strTOCFile
Dim dtDeleteDate

Dim sTemp

Set objXML = CreateObject("Microsoft.XMLDOM")
Set objFS  = CreateObject("Scripting.FileSystemObject")
Set objLog = objFS.OpenTextFile("BackupCleanUp.log",8,true)

' Validate command line arguments and initialize data.
If WScript.Arguments.Count = 2 Then
    If IsNumeric(WScript.Arguments(0)) Then   
        nNumberOfDays = CInt(WScript.Arguments(0))
        dtDeleteDate = DateAdd("d",nNumberOfDays*-1,Now)
    Else
        WScript.Echo "<NumberOfDays> must be an integer value."
    End If
        strTOCFile = WScript.Arguments(1)
Else
    WScript.Echo "Usage: BackupCleanUp <NumberOfDays> <PathToTOC>"
    WScript.Quit
End If

objLog.WriteLine(Now() &vbTab& "Start: Clean up backups older than " &nNumberOfDays& " days from " &strTOCFile& ".")

' Load the SharePoint backup and restore the TOC file.
objXML.Async = false
objXML.Load(strTOCFile)

If objXML.ParseError.ErrorCode <> 0 Then
    objLog.WriteLine(Now() &vbTab& "Error: Could not load the SharePoint Backup / Restore History." &vbCrLf&_
                     Now() &vbTab& "Reason: " &objXML.ParseError.Reason& ".") 
    WScript.Quit
End If

' Delete backup nodes that are older than the deletion date.
For Each objNode in objXML.DocumentElement.ChildNodes
    If CDate(objNode.SelectSingleNode("SPFinishTime").Text) < dtDeleteDate Then
        If objNode.SelectSingleNode("SPIsBackup").Text = "True" Then
            
sTemp = mid(objNode.SelectSingleNode("SPBackupDirectory").Text,1,len(objNode.SelectSingleNode("SPBackupDirectory").Text)-1)

'objFS.DeleteFolder(mid(objNode.SelectSingleNode("SPBackupDirectory").Text),1,len(objNode.SelectSingleNode("SPBackupDirectory").Text)-1)
objFS.DeleteFolder sTemp




            objLog.WriteLine(Now() &vbTab& "Deleted: " &objNode.SelectSingleNode("SPBackupDirectory").Text& ".")
            objXML.DocumentElement.RemoveChild(objNode)
        End If     
    End If
Next

' Save the XML file with the old nodes removed.
objXML.Save(strTOCFile)
objLog.WriteLine(Now() &vbTab& "Finish: Completed backup clean up.")

Referanslar

Verileri yedekleyin ve Microsoft SharePoint Yönetim Merkezi Web sitesini kullanarak verileri geri yükleme hakkında daha fazla bilgi için aşağıdaki Microsoft Web sitesini ziyaret edin:
http://technet2.microsoft.com/windowsserver/WSS/en/library/64171b8c-5608-4e69-881a-67996080b7ff1033.mspx (http://technet2.microsoft.com/windowsserver/WSS/en/library/64171b8c-5608-4e69-881a-67996080b7ff1033.mspx)

Bu makaledeki bilginin uygulandığı durum:
  • Microsoft Office SharePoint Server 2007
  • Microsoft Windows SharePoint Services 3.0
Anahtar Kelimeler: 
kbmt kbhowto kbinfo kbexpertiseinter KB941330 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:941330  (http://support.microsoft.com/kb/941330/en-us/ )