Set objSession = CreateObject("Microsoft.Update.Session") Set objSearcher = objSession.CreateUpdateSearcher Set objResults = objSearcher.Search("Type='Software'") Set colUpdates = objResults.Updates Dim Msg Msg = "[更新プログラム一覧]" & vbCrLf For i = 0 to colUpdates.Count - 1 If colUpdates.Item(i).Title <> "" Then Msg = Msg & i+1 & ". " If colUpdates.Item(i).IsInstalled <> 0 Then Msg = Msg & "(更新済) " Else Msg = Msg & "(未更新) " End If Msg = Msg & colUpdates.Item(i).Title & vbCrLf End If Next MsgBox Msg