Dragon-Ark

2009年12月のマイクロソフトセキュリティ情報です。

【MS09-069】 Local Security Authority Subsystem Service (LSASS) の脆弱性により、サービス拒否が起こる (974392)

【MS09-070】 Active Directory フェデレーション サービスの脆弱性により、リモートでコードが実行される (971726)

【MS09-071】 インターネット認証サービスの脆弱性により、リモートでコードが実行される (974318)

【MS09-072】 Internet Explorer 用の累積的なセキュリティ更新プログラム (976325)

【MS09-073】 ワードパッドおよび Office テキスト コンバーターの脆弱性により、リモートでコードが実行される (975539)

【MS09-074】 Microsoft Office Project の脆弱性により、リモートでコードが実行される (967183)

vbscriptにてOutlook Exressのメールファイル(.dbx)の一覧とサイズを出力する例です。

Option Explicit
'On Error Resume Next

'#######################################################
'#                 Global-Configration                 #
'#######################################################

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

  Const HKEY_CURRENT_USER   = &H80000001

'*************************
'    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 COL_Folders     'Collection Object

  Dim STR_FileName    'String Object
  Dim STR_StoreOwner  'String Object
  Dim STR_StorePath   '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")

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

    STR_Work = MsgBox("処理実行中にエラーが発生しました。処理を続行出来ません。プログラムを中止します。" & vbCrLf & "Error Code: RegRead Error-001" ,vbOkOnly + vbCritical,"エラーが発生しました")
    Err.Clear
    Set OBJ_FSO = Nothing
    WScript.Quit 1

  End If

  STR_StorePath  = OBJ_WshShell.RegRead("HKEY_CURRENT_USER\Identities\" & STR_StoreOwner & "\Software\Microsoft\Outlook Express\5.0\Store root")
  If Err.Number <> 0 Then

    STR_Work = MsgBox("処理実行中にエラーが発生しました。処理を続行出来ません。プログラムを中止します。" & vbCrLf & "Error Code: RegRead Error-002" ,vbOkOnly + vbCritical,"エラーが発生しました")
    Err.Clear
    Set OBJ_FSO = Nothing
    WScript.Quit 1

  End If

  WScript.Echo "No,ファイル名,ファイルサイズ(MB)"

'【Get MailBox Folder & File-Size】
  Set OBJ_Folders = OBJ_FSO.GetFolder(STR_StorePath)
  Set COL_Folders = OBJ_Folders.Files
  i = 1

  For Each STR_FileName In COL_Folders

    If LCase(Right(STR_FileName,4)) = ".dbx" Then

      WScript.Echo i & "," & STR_FileName & "," & Round(STR_FileName.Size / 1000000,1)
      i = i + 1

    End If

  Next

End Sub

以下のURLからインストーラをダウンロードすることが可能です。

■Adobe Flash Player ActiveX Installer

http://fpdownload.adobe.com/get/flashplayer/current/install_flash_player_ax.exe

■Adobe Flash Player Plugin Installer

http://fpdownload.adobe.com/get/flashplayer/current/install_flash_player.exe

通常Flash Playerは、以下のフォルダに展開されます。

C:\Windows\system32\Macromed\Flash
※OSにより、”Windows”の部分が”winnt”になります。

WSHを使用して、OSの起動時間と起動してからの経過時間を表示する例です。
WMIで各値を取得するのですが、UTCで値が返ってきますので、このサイトで紹介した
UTCを変換する関数を利用しています。

Option Explicit

 Call Uptime()

'===========================================================================

Sub Uptime()

  Dim OBJ_WMIService
  Dim OBJ_Item
  Dim COL_Item

  Dim STR_Computer
  Dim STR_NameSpace

  Dim STR_BootUpTime
  Dim STR_LocalTime
  Dim STR_Work
  Dim STR_Day
  Dim STR_Hour
  Dim STR_Min

  STR_Computer = "."
  STR_NameSpace = "/root/cimv2"

  Set OBJ_WMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & STR_Computer & STR_NameSpace)

  If Err.Number <> 0 Then

    WScript.Echo "Error=" & Err.Number
    WScript.Echo "ERROR Code=" & Err.Number & " Description=" & Err.Description
    Err.Clear
    Exit Sub

  End If

  Set COL_Item = OBJ_WMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem")

  For Each OBJ_Item In COL_Item

    STR_BootUpTime = OBJ_Item.LastBootUpTime
    STR_LocalTime  = OBJ_Item.LocalDateTime

  Next

  STR_BootUpTime = ConvertUTCToDate(STR_BootUpTime)
  STR_LocalTime  = ConvertUTCToDate(STR_LocalTime)

  STR_Work = DateDIff("n", STR_BootUpTime, STR_LocalTime)

  STR_Day  = Fix((STR_Work / 60 ) / 24)
  STR_Hour = (STR_Work / 60) Mod 24
  STR_Min  = STR_Work Mod 60

  WScript.Echo "起動時刻: " & STR_BootUpTime
  WScript.Echo "経過時間: " & STR_Day & " 日 " & STR_Hour & " 時間 " & STR_Min & " 分"

End Sub

'===========================================================================

Function ConvertUTCToDate(STR_DateTime)

  ConvertUTCToDate = CDate(Mid(STR_DateTime, 5, 2) & "/" & _
  Mid(STR_DateTime, 7, 2) & "/" & Left(STR_DateTime, 4) & " " & _
  Mid(STR_DateTime, 9, 2) & ":" & _
  Mid(STR_DateTime, 11, 2) & ":" & _
  Mid(STR_DateTime, 13, 2))

End Function

2009年11月のマイクロソフトセキュリティ情報です。

【MS09-063】Web Services on Devices API の脆弱性により、リモートでコードが実行される (973565)
【MS09-064】ライセンス ログ サーバーの脆弱性により、リモートでコードが実行される (974783)
【MS09-065】Windows カーネル モード ドライバーの脆弱性により、リモートでコードが実行される (969947)
【MS09-066】Active Directory の脆弱性により、サービス拒否が起こる (973309)
【MS09-067】Microsoft Office Excel の脆弱性により、リモートでコードが実行される (972652)
【MS09-068】Microsoft Office Word の脆弱性により、リモートでコードが実行される (976307)

フォルダを右クリックした際のメニュを追加します。
例ではコマンドプロンプトを右クリックしたフォルダから起動します。

1. レジストリエディタを起動します。

2. 以下の階層まで表示させます。
HKEY_CLASSES_ROOT\Folder\shell

3. 右クリック時に表示させたい名称を決め、右クリックにて「新規」→「キー」を選択し、決めたキー名を入力します。
例では 「コマンドプロンプト」とします

4. 作成した「コマンドプロンプト」キーを右クリックし、「新規」→「キー」を選択し、「command」と入力します。

5. 画面の右側にて(規定)と表示されている部分をダブルクリックし、文字列を編集します。
今回は「cmd.exe /K cd %L」と入力します。

フリーのツール等で右クリックメニュを追加するアプリケーションがありますが、このようなイメージでレジストリが変更されています。
今回はフォルダでしたが、特定の拡張子や全てのファイル・フォルダに適用することも可能です。

ただし編集は自己責任にてお願いします。

通常は、画面のプロパティから変更するデスクトップの壁紙ですが、レジストリを直接編集して壁紙を変更する方法です。
リモートレジストリを利用すれば遠隔で変更することも可能です。

1. レジストリ エディタを起動する。

2. 次のレジストリ サブキーを見つける。
HKEY_USERS\【SID】\Control Panel\Desktop

3. 次のレジストリ値を変更する。
　値の名前 : WallPaper
　データ型 : REG_SZ
　データの内容 : 壁紙のファイルパス

10/22に発売になりましたWindows7をインストールしました。
10/24にDSP版を求め、日頃パーツ等を購入しているお店にいったのですが、売れ切ればっかり…ｗ
4店舗目にてやっと購入出来ました。

64bit版 Ultimateです。
クリーンインストールだったのですが、サクサク進んでいき、30分弱くらいでデスクトップが表示されました。
ドライバ関連もほぼ自動で認識し、動作も軽く感じますね。(メモリ8Gも積んでいれば当たり前かｗ)

が、64bitのせいか、さすがにSC-88Proのシリアルドライバが認識せず…
長い間、シリアルで使用していましたが、ついにUSB midi Interfaceを購入することとしました。
Roland UM-3Gです。予定外の出費が痛い…orz

PowerShell 2.0 正式版ダウンロードURL

Windows XP 用更新プログラム http://www.microsoft.com/downloads/details.aspx?displaylang=ja&FamilyID=60cb5b6c-6532-45e0-ab0f-a94ae9ababf5

Windows Vista 用更新プログラム http://www.microsoft.com/downloads/details.aspx?displaylang=ja&FamilyID=f2fa1227-9a34-4e29-aa03-62f5c00e16f2

Windows Vista for x64-based Systems 用の更新プログラム http://www.microsoft.com/downloads/details.aspx?displaylang=ja&FamilyID=0f73efa2-f8d6-45f3-a8f8-5cdc205b119a

Windows Server 2003 用更新プログラム http://www.microsoft.com/downloads/details.aspx?displaylang=ja&FamilyID=f002462b-c8f2-417a-92a3-287f5f81407e

Windows Server 2003 x64 Edition 用更新プログラム http://www.microsoft.com/downloads/details.aspx?displaylang=ja&FamilyID=909bbcf1-bd78-4e03-8c83-69434717e551

Windows Server 2008 用更新プログラム http://www.microsoft.com/downloads/details.aspx?displaylang=ja&FamilyID=863e7d01-fb1b-4d3e-b07d-766a0a2def0b

Windows Server 2008 x64 Edition 用更新プログラム http://www.microsoft.com/downloads/details.aspx?displaylang=ja&FamilyID=d37e25cf-db05-4b23-a852-cdf865d81b82

WSHを利用してメールを送信する例です。
今時のメール送信はSMTP Authなどが実装されている例が多いのですが、
今回の例は、SMTP Authには対応していません。(別途、紹介します)

パラメータは以下の通り。

Send_Msg “SMTPモード”,”SMTPサーバ”,”SMTPポート”,”送信元メールアドレス”,”宛先メールアドレス”,”CC宛先”,”BCC宛先”,”件名”,”本文”

  Dim STR_SmtpHost
  Dim STR_SmtpPort
  Dim STR_MsgFrom
  Dim STR_MsgTo
  Dim STR_MsgCc
  Dim STR_MsgBcc
  Dim STR_MsgSubject
  Dim STR_MsgBody

  STR_SmtpHost   = "xxx"
  STR_SmtpPort   = "xx"
  STR_MsgFrom    = "xxx@xxx.com"
  STR_MsgTo      = "xxx@yyy.com"
  STR_MsgCc      = ""
  STR_MsgBcc     = ""
  STR_MsgSubject = "aaaa"
  STR_MsgBody    = "bbb"

  Call Send_Msg(STR_SmtpHost, STR_SmtpPort, STR_MsgFrom, STR_MsgTo, STR_MsgCc, STR_MsgBcc, STR_MsgSubject, STR_MsgBody)

Function Send_Msg(STR_SmtpHost, STR_SmtpPort, STR_MsgFrom, STR_MsgTo, STR_MsgCc, STR_MsgBcc, STR_MsgSubject, STR_MsgBody)

  Set OBJ_EMail = CreateObject("CDO.Message")

  OBJ_EMail.From     = STR_MsgFrom
  OBJ_EMail.Subject  = STR_MsgSubject
  OBJ_EMail.TextBody = STR_MsgBody

  OBJ_EMail.To       = STR_MsgTo
  OBJ_EMail.Cc       = STR_MsgCc
  OBJ_EMail.Bcc      = STR_MsgBcc

  OBJ_EMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")      = 2
  OBJ_EMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")     = STR_SmtpHost
  OBJ_EMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = STR_SmtpPort

  OBJ_EMail.Configuration.Fields.Update
  OBJ_EMail.Send

  Set OBJ_EMail = Nothing

End Function