Dragon-Ark

例:
バックアップ元のGUID　{xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx}
インポート先のGUID　　{zzzzzzzz-zzzz-zzzz-zzzz-zzzzzzzzzzzz}
1.インポート先のGUIDを調べる。
2.バックアップ元のファイルを開き、{xxx～}を置き換える。
メモ帳の場合は「検索する文字列」にバックアップ元のGUIDを、「置換後の文字列」にインポート先のGUIDを入れましょう。

また、このスクリプトでは、reg.exeというファイルを利用しています。Windows XPから標準でインストールされているものになります。
Windows 2000ではreg.exeが入っていないため、使えません…

[vb]
Option Explicit

‘#######################################################
‘# Global-Configration #
‘#######################################################

Const OpenTextFileForReading = 1
Const OpenTextFileForWriting = 2
Const OpenTextFileForAppending = 8

Const REG_SZ = 1
Const REG_EXPAND_SZ = 2
Const REG_BINARY = 3
Const REG_DWORD = 4
Const REG_MULTI_SZ = 7

‘*************************
‘ Call Main Program
‘*************************
Main()

‘*************************
‘ Start Main Program
‘*************************

Sub Main()

‘#######################################################
‘# Local-Configration #
‘#######################################################

Dim OBJ_WshShell ‘WSH Shell Object
Dim OBJ_FSO ‘File System Object
Dim OBJ_Folders ‘Folder Object
Dim OBJ_Args ‘Argument Object

Dim COL_Folders ‘Collection Object

Dim STR_FileName ‘String Object
Dim STR_StoreOwner ‘String Object
Dim STR_RulePath ‘String Object
Dim STR_LogFolder ‘String Object
Dim STR_LogFile ‘String Object
Dim STR_Temp ‘String Object
Dim i

Set OBJ_WshShell = WScript.CreateObject(“WScript.Shell”)
Set OBJ_FSO = WScript.CreateObject(“Scripting.FileSystemObject”)
Set OBJ_Args = WScript.Arguments

‘引数チェック
If OBJ_Args.Count = 1 Then

STR_FileName = OBJ_Args(0)

If Right(LCase(STR_FileName), 4) = “.reg” Then

Else

STR_FileName = STR_FileName & “.reg”

End If

If OBJ_FSO.FileExists(STR_FileName) Then

WScript.Echo “エラー:出力先に同名のファイルが存在します。処理を続行出来ません。”
WScript.Quit 1

End If

Else

WScript.Echo “エラー:引数の数が不正です。処理を続行出来ません。プログラムを中止します。”
WScript.Quit 1

End If

‘【Get Mail Store Owner & Mail Store Path】
STR_StoreOwner = OBJ_WshShell.RegRead(“HKEY_CURRENT_USER\Identities\Last User ID”)
If Err.Number <> 0 Then

WScript.Echo “エラー:処理実行中にエラーが発生しました。処理を続行出来ません。プログラムを中止します。”
Err.Clear
Set OBJ_FSO = Nothing
WScript.Quit 1

End If

STR_RulePath = “”"HKEY_CURRENT_USER” & “\Identities\” & STR_StoreOwner & “\Software\Microsoft\Outlook Express\5.0\Rules”"”
If Err.Number <> 0 Then

WScript.Echo “エラー:処理実行中にエラーが発生しました。処理を続行出来ません。プログラムを中止します。”
Err.Clear
Set OBJ_FSO = Nothing
WScript.Quit 1

End If

‘レジストリのExport
OBJ_WshShell.Run “reg.exe export ” & STR_RulePath & ” ” & STR_FileName, 0, True
If Err.Number = 0 Then

WScript.Echo “レジストリのバックアップは正常に完了しました。出力したファイルは ” & STR_FileName & ” です。”
WScript.Quit 0

Else

WScript.Echo “エラー:レジストリのバックアップに失敗しました。”
WScript.Quit 1

End If

End Sub

[/vb]

【メモ】マイクロソフト製品ライフサイクル

admin — Sun, 27 Dec 2009 13:11:34 +0000

マイクロソフト製品ライフサイクル情報
http://support.microsoft.com/gp/lifeselect

Radeon5770を買いました…そしてドライバ入らず

admin — Sun, 13 Dec 2009 16:09:32 +0000

Windows 7 64bitを導入したPCでデュアルディスプレイを使用するため、
ビデオカードを買い替えました。安心のGigabyteです(笑)

カードを挿し、いざドライバの導入を！
と、思ったらドライバのセットアップが起動しない！？
…解決するのに、3時間くらいかかりましたorz

原因は、Mfc80.dll のようです。
マイクロソフトのサイトにKBがありました。
http://support.microsoft.com/kb/961894

対策としては、↓のサイトにあるパッチをダウンロードして実行しました。
http://code.msdn.microsoft.com/KB961894/Release/ProjectReleases.aspx?ReleaseId=2067

Radeonのドライバは噂通り、○○でした(笑)

Dragon-Ark

【メモ】Windows 7 でGodModeを作成する

【メモ】64bit環境にてWSHからAccess DBにアクセスする際の注意

【MS】2010年02月セキュリティ情報

【MS】2010年01月セキュリティ情報-追加-

dxdiag.exeがDirectX11をDirectX10.1と表示する

【MS】2010年01月セキュリティ情報

謹賀新年

【WSH】Outlook Expressのメールルールをバックアップする

【メモ】マイクロソフト製品 ライフサイクル

Radeon5770を買いました…そしてドライバ入らず

【メモ】マイクロソフト製品ライフサイクル