매일의 첫 컴퓨터 기동 시에 자동으로 복원 지점 만들기

1. 이 기사에서는 최근일(일자 단위)의 첫 컴퓨터 기동 시에 자동적으로 시스템 복원 지점을 만들도록 하는 방법에 대하여 설명합니다.

2. 아래 스크립트는 최근일자에 이미 시스템 복원 지점이 생성되어 있는지를 체크하기 위하여 준비된 것입니다.

3. 하루의 제일 처음 컴퓨터 부팅 시에 시스템 복원 지점을 생성하려면 아래를 메모장을 열어 복사한 후 적당한 이름의 .vbs 파일(예 : RestorePointCreate.vbs)로 저장, 이 스크립트가 시작프로그램 폴더에 위치하도록 합니다.

' Creates a SR point during the first startup of the day
' December 18, 2005
' For Windows® XP
' © 2005 Ramesh Srinivasan
' Website: http://windowsxp.mvps.org

Option Explicit
Dim SRP, CSRP, objWMI, clsPoint
Dim RPDate, D1, D2, dtmInstallDate, DMatch
DMatch = 0
Set SRP = getobject("winmgmts:\\.\root\default:Systemrestore")
Set dtmInstallDate = CreateObject("WbemScripting.SWbemDateTime")
Set objWMI = getobject( _
    "winmgmts:\\.\root\default").InstancesOf ("systemrestore")
For Each clsPoint In objWMI
    RPDate = getmytime(clsPoint.creationtime)
    D1 = Month(RPDate) & "/" & Day(RPDate) & "/" & Year(RPDate)
    D2 = Month(Date) & "/" & Day(Date) & "/" & Year(Date)
    If D1 = D2 Then DMatch = 1
Next

Function getmytime(wmitime)
    dtmInstallDate.Value = wmitime
    getmytime = dtmInstallDate.GetVarDate
end Function

If DMatch = 0 Then
    CSRP = SRP.createrestorepoint ("Daily Restore Point", 0, 100)
End If

invalid-file

관련 참고 사항

Windows XP에서 WMI와 시스템 복원 유틸리티를 사용하는 방법