vbscriptを利用してOutlook Expressのメールルールをバックアップする例です。
このスクリプトはバックアップファイル(レジストリファイル)の保存先、ファイル名を引数で渡します。
例:
(script名) c:\test.reg
バックアップしたファイルは、ダブルクリックすることでインポートが可能です。
ここでの注意点として、OSを再インストールする度にGUIDが変わってしまいます。
バックアップした時とインポートする時の状況が違う時は、バックアップしたファイルをメモ帳などで開き、
GUIDを置き換える必要があります。
例:
バックアップ元の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が入っていないため、使えません…
ソースのダウンロードは こちら です。
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
パソコン修理 says:
レジストリファイルうーん？それは面白いね。
2011/02/12, 06:23パソコン修理 says:
レジストリファイル – これは面白いね。
2011/02/12, 06:23パソコン修理 says:
そうだと思うわ。有り難う。
2011/02/12, 06:23Darknet Linkverzeichnis says:
… [Trackback]
[…] Information on that Topic: dragon-ark.com/archives/325 […]
2021/06/16, 10:16microsoft exchange kiralık sunucu says:
… [Trackback]
[…] Read More on that Topic: dragon-ark.com/archives/325 […]
2021/06/27, 03:33kurumsal sanallaştırma hizmeti says:
… [Trackback]
[…] Read More on that Topic: dragon-ark.com/archives/325 […]
2021/06/28, 17:43it danışmanlık hizmeti says:
… [Trackback]
[…] Read More Information here to that Topic: dragon-ark.com/archives/325 […]
2021/07/03, 08:18world market link says:
… [Trackback]
[…] Find More here to that Topic: dragon-ark.com/archives/325 […]
2021/07/03, 20:59hotels near me says:
… [Trackback]
[…] Read More on that Topic: dragon-ark.com/archives/325 […]
2021/07/20, 07:32expense management software says:
… [Trackback]
[…] Information to that Topic: dragon-ark.com/archives/325 […]
2021/08/25, 23:46Darknet Links says:
… [Trackback]
[…] Info to that Topic: dragon-ark.com/archives/325 […]
2021/09/15, 19:41kardinal stick says:
… [Trackback]
[…] Here you can find 74133 additional Info to that Topic: dragon-ark.com/archives/325 […]
2021/10/09, 08:16relx says:
… [Trackback]
[…] Read More Information here to that Topic: dragon-ark.com/archives/325 […]
2021/10/09, 08:51https://tontonmania123.com/ says:
… [Trackback]
[…] Read More Information here on that Topic: dragon-ark.com/archives/325 […]
2021/11/17, 00:14how to become a truck driver says:
… [Trackback]
[…] There you will find 27969 more Info to that Topic: dragon-ark.com/archives/325 […]
2021/11/17, 08:39valid cvv dumps store says:
… [Trackback]
[…] Read More on that Topic: dragon-ark.com/archives/325 […]
2021/11/18, 01:53nova88 says:
… [Trackback]
[…] Find More on that Topic: dragon-ark.com/archives/325 […]
2021/11/19, 10:46london travel tips says:
… [Trackback]
[…] Information on that Topic: dragon-ark.com/archives/325 […]
2021/12/03, 00:53Market says:
… [Trackback]
[…] There you can find 60203 additional Info on that Topic: dragon-ark.com/archives/325 […]
2021/12/10, 02:48สล็อตเว็บตรง says:
… [Trackback]
[…] Information to that Topic: dragon-ark.com/archives/325 […]
2021/12/13, 10:07köpa ritalin says:
… [Trackback]
[…] There you can find 44905 additional Information on that Topic: dragon-ark.com/archives/325 […]
2021/12/17, 04:17hotel trivago says:
… [Trackback]
[…] Information to that Topic: dragon-ark.com/archives/325 […]
2021/12/21, 09:48Guns For Sale Online says:
… [Trackback]
[…] Information on that Topic: dragon-ark.com/archives/325 […]
2021/12/29, 00:26random gay chat with a stranger says:
gay chat aveneu https://bjsgaychatroom.info/
2022/01/14, 21:33christian gay dating app for android says:
gay hook up dating site https://gaypridee.com/
2022/01/14, 23:43free asian gay chat lines says:
gay chat webcam room facebook https://gay-buddies.com/
2022/01/15, 06:41facebook gay dating group says:
gay nmale dating sites in southern california https://speedgaydate.com/
2022/01/15, 22:14Reflective Essay Examples About High School says:
… [Trackback]
[…] Find More here on that Topic: dragon-ark.com/archives/325 […]
2022/01/18, 23:24top dollar slots in vegas says:
big win vegas slots https://2-free-slots.com/
2022/01/29, 02:16scatter slots cheats says:
free double diamond slots https://freeonlneslotmachine.com/
2022/01/29, 07:31wobka slots promo codes says:
top dollar slots in vegas https://candylandslotmachine.com/
2022/01/29, 08:10free slots download for pc says:
slots free online https://slotmachinesworld.com/
2022/01/29, 15:53hack online slots says:
no deposit slots https://slot-machine-sale.com/
2022/02/04, 06:33igt free slots says:
free triple diamond slots https://beat-slot-machines.com/
2022/02/04, 10:16mail slots for doors says:
gw2 jewry slots https://download-slot-machines.com/
2022/02/04, 12:30princess bride slots says:
slots pictures https://411slotmachine.com/
2022/02/04, 15:37free casino slots games says:
free slots games egypt https://www-slotmachines.com/
2022/02/04, 18:44online slots says:
hollywood slots in bangor https://slotmachinegameinfo.com/
2022/02/05, 01:13average dissertation length says:
how to write a draft dissertation help https://buydissertationhelp.com/
2022/02/11, 03:17writing acknowledgments dissertation says:
help dissertation https://dissertationwriting-service.com/
2022/02/11, 23:36phd dissertation editing help says:
dissertation topic help https://help-with-dissertations.com/
2022/02/12, 05:46do my dissertation says:
dissertation printing https://mydissertationwritinghelp.com/
2022/02/12, 07:29dissertation help in mumbai says:
online dissertation help vg wort https://dissertations-writing.org/
2022/02/12, 11:44help on writing a dissertation says:
dissertation help service quality https://helpon-doctoral-dissertations.net/
2022/02/12, 16:28ã€WSH】Outlook Expressã®ãƒ¡ãƒ¼ãƒ«ãƒ«ãƒ¼ãƒ«ã‚’ãƒãƒƒã‚¯ã‚¢ãƒƒãƒ—ã™ã‚‹ | Dragon-Ark says:
Sylvester Nickles
vbscriptを利用ã—ã¦Outlook Expressã®ãƒ¡ãƒ¼ãƒ«ãƒ«ãƒ¼ãƒ«ã‚’ãƒãƒƒã‚¯ã‚¢ãƒƒãƒ—ã™ã‚‹ä¾‹ã§ã™ã€‚ ã“ã®ã‚¹ã‚¯ãƒªãƒ—
2022/03/07, 16:04ã€WSH】Outlook Expressã®ãƒ¡ãƒ¼ãƒ«ãƒ«ãƒ¼ãƒ«ã‚’ãƒãƒƒã‚¯ã‚¢ãƒƒãƒ—ã™ã‚‹ | Dragon-Ark says:
Delcie Dam
vbscriptを利用ã—ã¦Outlook Expressã®ãƒ¡ãƒ¼ãƒ«ãƒ«ãƒ¼ãƒ«ã‚’ãƒãƒƒã‚¯ã‚¢ãƒƒãƒ—ã™ã‚‹ä¾‹ã§ã™ã€‚ ã“ã®ã‚¹ã‚¯ãƒªãƒ—
2022/03/09, 15:37easynews.pl says:
… [Trackback]
[…] Here you can find 10677 more Information to that Topic: dragon-ark.com/archives/325 […]
2022/03/15, 04:08ã€WSH】Outlook Expressã®ãƒ¡ãƒ¼ãƒ«ãƒ«ãƒ¼ãƒ«ã‚’ãƒãƒƒã‚¯ã‚¢ãƒƒãƒ—ã™ã‚‹ | Dragon-Ark says:
Buyproxies
vbscriptを利用ã—ã¦Outlook Expressã®ãƒ¡ãƒ¼ãƒ«ãƒ«ãƒ¼ãƒ«ã‚’ãƒãƒƒã‚¯ã‚¢ãƒƒãƒ—ã™ã‚‹ä¾‹ã§ã™ã€‚ ã“ã®ã‚¹ã‚¯ãƒªãƒ—
2022/03/30, 02:39