(1)マイコンピュータから順に、C:\Program Files\madonote(窓の手をインストールした)フォルダを開いてください。
(2)ツール(表示)→フォルダオプション→表示で、「登録されている拡張子は表示しない」にチェックが付いていれば、チェックを外してOKをクリックします。
(3)madonoteフォルダ内の何もないところで右クリック→新規作成→テキスト ドキュメントを作成してください。
(4)そのファイル(新規テキスト ドキュメント.txt)を開きます。
(5)以下の' Create~End Ifまで(※'も含めてください。'~fです。)をコピーしてメモ帳で開いた新規テキスト ドキュメント.txtに貼り付けます。
(6)ファイル→上書き保存で保存します。
(7)名前の変更で新規テキスト ドキュメント.txtをCreateRestorePoint_JA.vbsと変えてください。
(8)窓の手を起動してバックアップできるか確認してください。
' Create Restore Point Script
' ------------------------------------------------------------------------
' Copyright (C) 2001 Masami Ikawa
'
' (Notes) You cannot modify.
' ------------------------------------------------------------------------
L_RestorePointName = "窓の手"
L_MsgBox_Title_Text = "窓の手"
L_MsgBox_Success_Text = "復元ポイントを作成しました。"
L_MsgBox_Error_Text = "復元ポイントの作成に失敗しました。"
Dim intDoIt
Set obj = GetObject("winmgmts:{impersonationLevel=impersonate}!root/default:SystemRestore")
If (obj.CreateRestorePoint(L_RestorePointName,0,100)) = 0 Then
intDoIt = MsgBox(L_MsgBox_Success_Text,vbOKOnly + vbInformation,L_MsgBox_Title_Text)
Else
intDoIt = MsgBox(L_MsgBox_Error_Text,vbOKOnly + vbExclamation,L_MsgBox_Title_Text)
End If
お礼
申し訳ありません。 真ん中の方法を先ほど試したところ、無事に成功できました。 ありがとうございました。 きちんと、インストールするのは、いつかwindowsを再インストした時にでもします。 ありがとうございましたm(_ _)m