將以下腳本保存爲vbs格式
********************************************************************************************
'備份系統狀態,以日期命名,並刪除早於指定日期的備份文件
strFolder = "D:\SystemBackup\"
strFileName = Date() &".BAK"
intKeepDay = 4
strBackupCmd = "Ntbackup.exe backup systemstate /J ""定時備份系統狀態""" _
&"/F """ &strFolder &strFileName &""""
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strFolder)
Set objFiles = objFolder.Files
For Each objFile In objFiles
If objFile.DateCreated < Date() - intKeepDay And Right(objFile.Name,3) = "BAK" Then
objFile.Delete
End If
Next
Set objWshShell = CreateObject("WScript.Shell")
Return = objWshShell.Run(strBackupCmd,0,True)
If Return = 0 Then
objWshShell.LogEvent 0,Now() &" 備份系統狀態成功"
Else
objWshShell.LogEvent 1,Now() &" 備份系統狀態失敗"
End If
***************************************************************************************************
腳本說明:
本文出自 “小飛俠的博客” 博客,請務必保留此出處http://wuxiaohui.blog.51cto.com/697989/424587