2010/03/10 追記
「ファイル名を指定して実行」で、「 shell:sendto 」 と入力すると、簡単に表示出来るようです。
これは便利です。
============================================================
覚え書きです。
Windows Vista/Windoes 7では、以前のWIndows XPや2000と比べ、フォルダの構造などが変わっています。
マウスで右クリックした際に表示される「送る」に、追加アプリケーションを指定する場合の方法です。
1.以下のフォルダを開く。
C:\Users\【ユーザ名】\AppData\Roaming\Microsoft\Windows\SendTo
2.SendTo フォルダにアプリケーションのショートカットをコピーまたは作成する。
以下、Notepad.exeのショートカットを入れた例です。
72時間限定セール！ アドビ製品が表示価格からさらに15%OFF
2010年02月のマイクロソフトセキュリティ情報です。
今月は13件と大量ですね。
【MS10-003】Microsoft Office (MSO) の脆弱性により、リモートでコードが実行される (978214)
【MS10-004】Microsoft Office PowerPoint の脆弱性により、リモートでコードが実行される (975416)
【MS10-005】Microsoft ペイントの脆弱性により、リモートでコードが実行される (978706)
【MS10-006】SMB クライアントの脆弱性により、リモートでコードが実行される (978251)
【MS10-007】Windows Shell ハンドラー の脆弱性により、リモートでコードが実行される (975713)
【MS10-008】ActiveX の Kill Bit の累積的なセキュリティ更新プログラム (978262)
【MS10-009】Windows TCP/IP の脆弱性により、リモートでコードが実行される (974145)
【MS10-010】Windows Server 2008 Hyper-V の脆弱性により、サービス拒否が起こる (977894)
【MS10-011】Windows クライアント/サーバー ランタイム サブシステムの脆弱性により、特権が昇格される (978037)
【MS10-012】SMB サーバーの脆弱性により、リモートでコードが実行される (971468)
【MS10-013】Microsoft DirectShow の脆弱性により、リモートでコードが実行される (977935)
【MS10-014】Kerberos の脆弱性により、サービス拒否が起こる (977290)
【MS10-015】Windows カーネルの脆弱性により、特権が昇格される (977165)
Windows7及びWindows Server 2008 R2にて、DirectXの診断プログラムであるdxdiag.exeがDirectX11をDirectX10.1と表示するバグがあるようです。
dxdiagの表示は以下の通り
Windowsのパッチを適用することで解消するようです。
Microsoft社の情報は以下の通り。
http://support.microsoft.com/kb/975243/ja
パッチ適用後は以下の通り、解消されました。
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
