{"id":8315,"date":"2017-04-13T09:37:36","date_gmt":"2017-04-13T00:37:36","guid":{"rendered":"https:\/\/www.ka-net.org\/blog\/?p=8315"},"modified":"2017-04-13T09:37:36","modified_gmt":"2017-04-13T00:37:36","slug":"windows-update%e3%81%ae%e6%9b%b4%e6%96%b0%e5%b1%a5%e6%ad%b4%e3%82%92csvutf-8%e3%81%a7%e4%bf%9d%e5%ad%98%e3%81%99%e3%82%8bvbscript","status":"publish","type":"post","link":"https:\/\/www.ka-net.org\/blog\/?p=8315","title":{"rendered":"Windows Update\u306e\u66f4\u65b0\u5c65\u6b74\u3092CSV(UTF-8)\u3067\u4fdd\u5b58\u3059\u308bVBScript"},"content":{"rendered":"

\u4ee5\u524d\u66f8\u3044\u305f\u30b9\u30af\u30ea\u30d7\u30c8\u304c\u51fa\u3066\u304d\u307e\u3057\u305f\u3002
\nWindows Update\u306e\u66f4\u65b0\u5c65\u6b74\u3092<\/p>\n

“\u66f4\u65b0\u65e5\u6642”,”\u30b3\u30f3\u30d4\u30e5\u30fc\u30bf\u30fc\u540d”,”\u30e6\u30fc\u30b6\u30fc\u540d”,”\u30bf\u30a4\u30c8\u30eb”,”KB\u756a\u53f7”,”\u7d50\u679c”<\/p>\n

\u3068\u3044\u3063\u305f\u5f62\u5f0f\u306eCSV\u30d5\u30a1\u30a4\u30eb\u3068\u3057\u3066\u51fa\u529b\u3059\u308b\u30b9\u30af\u30ea\u30d7\u30c8\u3067\u3059\u3002<\/p>\n

Option Explicit\r\n\r\nDim dir_path, cn, ymd\r\n\r\ndir_path = "" 'CSV\u30d5\u30a1\u30a4\u30eb\u306e\u51fa\u529b\u5148\u6307\u5b9a\r\n\r\nIf Len(Trim(dir_path)) < 1 Then _\r\n   dir_path = CreateObject("Scripting.FileSystemObject").GetParentFolderName(WScript.ScriptFullName)\r\ndir_path = AddPathSeparator(dir_path)\r\n\r\ncn = CreateObject("WScript.Network").ComputerName\r\nymd = Year(Now()) & Right("0" & Month(Now()), 2) & Right("0" & Day(Now()), 2)\r\nOutputMSUpdateInfo dir_path & ymd & "_MSUP_" & cn & ".csv"\r\n\r\nPublic Sub OutputMSUpdateInfo(ByVal TxtFilePath)\r\n'Windows Update\u306e\u66f4\u65b0\u5c65\u6b74\u3092CSV(UTF-8)\u3067\u4fdd\u5b58\r\n  Dim str\r\n  Const adTypeText = 2\r\n  Const adSaveCreateOverWrite = 2\r\n  \r\n  str = GetMSUpdateInfo\r\n  If Len(Trim(str)) > 0 Then\r\n    With CreateObject("ADODB.Stream")\r\n      .Type = adTypeText\r\n      .Charset = "UTF-8"\r\n      .Open\r\n      .WriteText str\r\n      .SaveToFile TxtFilePath, adSaveCreateOverWrite\r\n      .Close\r\n    End With\r\n  End If\r\nEnd Sub\r\n\r\nPrivate Function GetMSUpdateInfo()\r\n'Windows Update\u306e\u66f4\u65b0\u5c65\u6b74\u53d6\u5f97\r\n  Dim us 'WUApiLib.UpdateSession\r\n  Dim sr 'WUApiLib.UpdateSearcher\r\n  Dim uhec 'WUApiLib.IUpdateHistoryEntryCollection\r\n  Dim uhe 'WUApiLib.IUpdateHistoryEntry\r\n  Dim rs\r\n  Dim kb, rc\r\n  Dim cn, un\r\n  Dim cnt\r\n  Dim ret\r\n  Const adVarChar = 200\r\n  Const adDBTimeStamp = 135\r\n  \r\n  Set us = CreateObject("Microsoft.Update.Session")\r\n  Set sr = us.CreateUpdateSearcher\r\n  \r\n  cnt = sr.GetTotalHistoryCount\r\n  If cnt < 1 Then Exit Function\r\n  \r\n  '\u30b3\u30f3\u30d4\u30e5\u30fc\u30bf\u30fc\u540d\u3068\u30e6\u30fc\u30b6\u30fc\u540d\u53d6\u5f97\r\n  With CreateObject("WScript.Network")\r\n    cn = .ComputerName\r\n    un = .UserName\r\n  End With\r\n  \r\n  '\u30ec\u30b3\u30fc\u30c9\u30bb\u30c3\u30c8\u8a2d\u5b9a\r\n  Set rs = CreateObject("ADODB.Recordset")\r\n  rs.Fields.Append "Date", adDBTimeStamp, 255\r\n  rs.Fields.Append "ComputerName", adVarChar, 255\r\n  rs.Fields.Append "UserName", adVarChar, 255\r\n  rs.Fields.Append "Title", adVarChar, 255\r\n  rs.Fields.Append "KB", adVarChar, 255\r\n  rs.Fields.Append "Result", adVarChar, 255\r\n  rs.Open\r\n  \r\n  Set uhec = sr.QueryHistory(0, cnt)\r\n  For Each uhe In uhec\r\n    kb = UCase(uhe.Title)\r\n    If InStr(kb, "KB") Then\r\n      kb = Mid(kb, InStr(kb, "KB"))\r\n      kb = Left(kb, InStr(kb, ")") - 1)\r\n    Else\r\n      kb = ""\r\n    End If\r\n    \r\n    'OperationResultCode enumeration\r\n    'https:\/\/msdn.microsoft.com\/en-us\/library\/windows\/desktop\/aa387095.aspx\r\n    Select Case uhe.ResultCode\r\n      Case 0: rc = "NotStarted"\r\n      Case 1: rc = "InProgress"\r\n      Case 2: rc = "Succeeded"\r\n      Case 3: rc = "SucceededWithErrors"\r\n      Case 4: rc = "Failed"\r\n      Case 5: rc = "Aborted"\r\n      Case Else: rc = ""\r\n    End Select\r\n    \r\n    rs.AddNew\r\n    rs.Fields("Date").Value = uhe.Date\r\n    rs.Fields("ComputerName").Value = cn\r\n    rs.Fields("UserName").Value = un\r\n    rs.Fields("Title").Value = uhe.Title\r\n    rs.Fields("KB").Value = kb\r\n    rs.Fields("Result").Value = rc\r\n    rs.Update\r\n  Next\r\n  rs.Sort = "Date DESC" '\u65e5\u4ed8\u3067\u964d\u9806\u30bd\u30fc\u30c8\r\n  rs.MoveFirst\r\n  Do Until rs.EOF\r\n    ret = ret & _\r\n          ChrW(34) & rs.Fields("Date").Value & ChrW(34) & ChrW(44) & _\r\n          ChrW(34) & rs.Fields("ComputerName").Value & ChrW(34) & ChrW(44) & _\r\n          ChrW(34) & rs.Fields("UserName").Value & ChrW(34) & ChrW(44) & _\r\n          ChrW(34) & rs.Fields("Title").Value & ChrW(34) & ChrW(44) & _\r\n          ChrW(34) & rs.Fields("KB").Value & ChrW(34) & ChrW(44) & _\r\n          ChrW(34) & rs.Fields("Result").Value & ChrW(34) & vbNewLine\r\n    rs.MoveNext\r\n  Loop\r\n  rs.Close\r\n  ret = Left(ret, InStrRev(ret, vbNewLine) - 1) '\u6700\u5f8c\u306e\u6539\u884c\u524a\u9664\r\n  GetMSUpdateInfo = ret\r\nEnd Function\r\n\r\nPrivate Function AddPathSeparator(ByVal s)\r\n  If Right(s, 1) <> ChrW(92) Then s = s & ChrW(92)\r\n  AddPathSeparator = s\r\nEnd Function<\/pre>\n
\u591a\u6570\u306e\u7aef\u672b\u306eWindows Update\u5c65\u6b74\u3092\u3001\u4e00\u53f0\u4e00\u53f0\u78ba\u8a8d\u3059\u308b\u306e\u304c\u9762\u5012\u304f\u3055\u304b\u3063\u305f\u306e\u3067\u66f8\u3044\u305f\u3088\u3046\u306a\u8a18\u61b6\u304c\u3042\u308a\u307e\u3059\u3002<\/p>\n
VBScript\u304b\u3089\u306eWindows Update\u306e\u53d6\u308a\u6271\u3044\u306b\u3064\u3044\u3066\u306f\u4e0b\u8a18Web\u30da\u30fc\u30b8\u306b\u8a73\u3057\u304f\u307e\u3068\u3081\u3089\u308c\u3066\u3044\u308b\u306e\u3067\u3001\u8208\u5473\u304c\u3042\u308b\u65b9\u306f\u305d\u3061\u3089\u3092\u3054\u53c2\u7167\u304f\u3060\u3055\u3044\u3002<\/p>\n