その日の最初の起動時にシステムの復元ポイントを自動的に作成するにはどうすればよいですか？
序章
Windows Management Instrumentationを使用すると、システムの復元を管理できます。 効果的にユーティリティ。 この記事では、を自動的に作成する方法について説明します。 その日の最初の起動時にシステムの復元ポイント。
このスクリプトを使用して、復元ポイントを毎日作成します
以下に示すスクリプトは、システムの復元ポイントがあるかどうかを確認します。 当日の作成済みです。 のシステムの復元ポイントが存在しない場合。 現在、スクリプトはシステムの復元ポイントを作成します。
その日の最初の起動時に復元ポイントを作成するには、次の行をメモ帳ドキュメントにコピーして、ファイルとして保存します。 .VBS拡張子（CreateRP.VBS）を使用します。 次に、配置します。 スクリプトを 起動 ログオン中に実行されるようにフォルダ。
'その日の最初の起動時にSRポイントを作成します
'2005年12月18日
'WindowsXPの場合
'2005ラメシュスリニバサン
' Webサイト： https://www.winhelponline.com/xp
オプション明示
Dim SRP、CSRP、objWMI、clsPoint
Dim RPDate、D1、D2、dtmInstallDate、DMatch
DMatch = 0
SRP = getobject（ "winmgmts：\\。\ root \ default：Systemrestore"）を設定します
dtmInstallDate = CreateObject（ "WbemScriptingを設定します。 SWbemDateTime "）
objWMI =を設定します getobject（_
"winmgmts：\\。\ root \ default"）。InstancesOf（ "systemrestore"）
objWMIの各clsPointについて
RPDate = getmytime（clsPoint.creationtime）
D1 =月（RPDate）＆ "/"＆日（RPDate）＆ "/"＆年（RPDate）
D2 =月（日付）＆ "/"＆ 日（日付）＆ "/"＆年（日付）
D1 = D2の場合DMatch = 1
次
関数getmytime（wmitime）
dtmInstallDate。 値= wmitime
getmytime = dtmInstallDate。 GetVarDate
終了機能
DMatch = 0の場合
CSRP = SRP.createrestorepoint（ "Daily Restore Point"、0、100）
終了する場合