{"id":11757,"date":"2019-06-14T12:00:01","date_gmt":"2019-06-14T03:00:01","guid":{"rendered":"https:\/\/www.ka-net.org\/blog\/?p=11757"},"modified":"2019-06-14T13:36:25","modified_gmt":"2019-06-14T04:36:25","slug":"microsoft-update-%e3%82%ab%e3%82%bf%e3%83%ad%e3%82%b0%e3%81%8b%e3%82%89%e7%b4%af%e7%a9%8d%e6%9b%b4%e6%96%b0%e3%83%97%e3%83%ad%e3%82%b0%e3%83%a9%e3%83%a0%e3%82%92%e3%83%80%e3%82%a6%e3%83%b3%e3%83%ad","status":"publish","type":"post","link":"https:\/\/www.ka-net.org\/blog\/?p=11757","title":{"rendered":"Microsoft Update \u30ab\u30bf\u30ed\u30b0\u304b\u3089\u7d2f\u7a4d\u66f4\u65b0\u30d7\u30ed\u30b0\u30e9\u30e0\u3092\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u3059\u308bVBScript"},"content":{"rendered":"

\u300c\u7d2f\u7a4d\u66f4\u65b0\u30d7\u30ed\u30b0\u30e9\u30e0\u300d\u3068\u306f\u3001\u305d\u306e\u540d\u306e\u901a\u308aOS\u3092\u6700\u65b0\u306e\u72b6\u614b\u306b\u4fdd\u3064\u305f\u3081\u306e\u66f4\u65b0\u30d7\u30ed\u30b0\u30e9\u30e0\u304c\u7d2f\u7a4d\u3055\u308c\u305f\u3082\u306e\u3067\u3042\u308a\u3001\u6bce\u67081\u56de\u4ee5\u4e0a\u914d\u4fe1\u3055\u308c\u307e\u3059\u3002<\/p>\n

Windows Update\u304b\u3089\u66f4\u65b0\u3092\u9069\u7528\u3059\u308b\u3053\u3068\u3082\u3067\u304d\u307e\u3059\u304c\u3001\u793e\u5185\u306ePC\u7ba1\u7406\u3092\u3055\u308c\u3066\u3044\u308b\u65b9\u3067\u3042\u308c\u3070\u300cMicrosoft Update \u30ab\u30bf\u30ed\u30b0<\/a>\u300d\u304b\u3089\u5fc5\u8981\u306a\u30d5\u30a1\u30a4\u30eb\u3060\u3051\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u3055\u308c\u3066\u3044\u308b\u65b9\u3082\u591a\u3044\u306e\u3067\u306f\u306a\u3044\u3067\u3057\u3087\u3046\u304b\u3002<\/p>\n

\u3057\u304b\u3057\u3001\u3053\u306e\u30ab\u30bf\u30ed\u30b0\u304b\u3089\u306e\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u4f5c\u696d\u306f<\/p>\n

\u201c\u5730\u5473\u306b\u9762\u5012\u304f\u3055\u3044\uff01\u201d<\/span><\/p>\n

\u3067\u3059\u3002
\n\u30b5\u30a4\u30c8(http:\/\/www.catalog.update.microsoft.com\/<\/a>)\u306b\u30a2\u30af\u30bb\u30b9\u3057\u3066\u3001KB\u756a\u53f7\u3084\u300c\u7d2f\u7a4d \u66f4\u65b0 Windows-10\u300d\u3068\u3044\u3063\u305f\u30ad\u30fc\u30ef\u30fc\u30c9\u3067\u691c\u7d22\u3057\u3066\u3001\u30d2\u30c3\u30c8\u3057\u305f\u30d5\u30a1\u30a4\u30eb\u3092\u30af\u30ea\u30c3\u30af\u3057\u3066\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u3057\u3066\u30fb\u30fb\u30fb\u3002
\n\u6bce\u65e5\u884c\u3046\u4f5c\u696d\u3067\u306f\u306a\u3044\u3067\u3059\u304c\u3001\u30db\u30f3\u30c8\u5730\u5473\u30fc\u30fc\u30fc\u306b\u624b\u9593\u304c\u639b\u304b\u308b\u4f5c\u696d\u3067\u3059\u3002<\/p>\n

\u305d\u3053\u3067\u4eca\u56de\u306f\u3001\u81ea\u5206\u304c\u697d\u3059\u308b\u305f\u3081\u306b\u3001Microsoft Update \u30ab\u30bf\u30ed\u30b0\u304b\u3089\u81ea\u52d5\u7684\u306b\u7d2f\u7a4d\u66f4\u65b0\u30d7\u30ed\u30b0\u30e9\u30e0\u3092\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u3059\u308b\u30b9\u30af\u30ea\u30d7\u30c8\u3092\u4f5c\u6210\u3057\u3066\u307f\u307e\u3057\u305f\u3002<\/p>\n

Microsoft Update\u30ab\u30bf\u30ed\u30b0\u306e\u4ed5\u69d8\u3092\u8abf\u3079\u308b<\/h4>\n

\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u3059\u308b\u65b9\u6cd5\u3068\u3057\u3066\u3001\u307e\u305a\u30d6\u30e9\u30a6\u30b6\u30fc\u306e\u64cd\u4f5c\u304c\u8003\u3048\u3089\u308c\u307e\u3059\u304c\u3001\u52d5\u4f5c\u304c\u91cd\u304f\u306a\u308b\u306e\u3067\u3042\u307e\u308a\u4f7f\u3044\u305f\u304f\u306f\u3042\u308a\u307e\u305b\u3093\u3002<\/p>\n

\u3067\u304d\u308c\u3070\u66f4\u65b0\u30d7\u30ed\u30b0\u30e9\u30e0(msu)\u306eURL\u3092\u8abf\u3079\u3066\u3001\u30d6\u30e9\u30a6\u30b6\u30fc\u3092\u4ecb\u3055\u305a\u306b\u30d5\u30a1\u30a4\u30eb\u3092\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u3057\u305f\u3044\u3082\u306e\u3067\u3059\u3002<\/p>\n

\u305d\u3053\u3067\u3001\u307e\u305a\u306f\u624b\u52d5\u3067\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u3059\u308b\u969b\u306eMicrosoft Update\u30ab\u30bf\u30ed\u30b0\u306e\u4ed5\u69d8\u3092\u8abf\u3079\u3066\u307f\u308b\u3053\u3068\u306b\u3057\u307e\u3057\u305f\u3002<\/p>\n

\u300c\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u300d\u30dc\u30bf\u30f3\u3092\u62bc\u3057\u305f\u3068\u304d\u306e\u6319\u52d5<\/h5>\n

Update\u30ab\u30bf\u30ed\u30b0\u306e\u691c\u7d22\u7d50\u679c\u304b\u3089\u300c\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u300d\u30dc\u30bf\u30f3\u3092\u30af\u30ea\u30c3\u30af\u3059\u308b\u3068\u3001\u30d5\u30a1\u30a4\u30eb\u306e\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9URL\u304c\u8a18\u8f09\u3055\u308c\u305f\u300cDownloadDialog.aspx\u300d\u30da\u30fc\u30b8\u304c\u958b\u304d\u307e\u3059\u3002<\/p>\n

\"\"<\/a><\/p>\n

\u3053\u306e\u3068\u304d\u306e\u6319\u52d5\u3092\u300cFiddler<\/a>\u300d\u3067\u8ffd\u3063\u3066\u307f\u307e\u3057\u305f(\u4e0b\u8a18\u306f\u5fc5\u8981\u306a\u3068\u3053\u308d\u3060\u3051\u629c\u7c8b)\u3002<\/p>\n

POST http:\/\/www.catalog.update.microsoft.com\/DownloadDialog.aspx HTTP\/1.1\r\nContent-Type: application\/x-www-form-urlencoded\r\n\r\nupdateIDs=%5B%7B%22size%22%3A0%2C%22languages%22%3A%22%22%2C%22uidInfo%22%3A%22c51e9c8d-8757-49bd-a65f-c1fa9ebc2c6e%22%2C%22updateID%22%3A%22c51e9c8d-8757-49bd-a65f-c1fa9ebc2c6e%22%7D%5D&updateIDsBlockedForImport=&wsusApiPresent=&contentImport=&sku=&serverName=&ssl=&portNumber=&version=<\/pre>\n
POST\u3055\u308c\u305f\u30c7\u30fc\u30bf\u3092\u30c7\u30b3\u30fc\u30c9\u3059\u308b\u3068\u4e0b\u8a18\u306e\u3088\u3046\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n
updateIDs=[{"size":0,"languages":"","uidInfo":"c51e9c8d-8757-49bd-a65f-c1fa9ebc2c6e","updateID":"c51e9c8d-8757-49bd-a65f-c1fa9ebc2c6e"}]&updateIDsBlockedForImport=&wsusApiPresent=&contentImport=&sku=&serverName=&ssl=&portNumber=&version=<\/pre>\n
\u3053\u308c\u3092\u898b\u308b\u3068\u3001\u91cd\u8981\u306a\u306e\u306f\u300cupdateIDs<\/span>\u300d\u30d1\u30e9\u30e1\u30fc\u30bf\u30fc\u3067\u3001\u300cupdateID<\/span>\u300d\u3068\u3044\u3046\u3001\u305d\u308c\u3089\u3057\u3044\u5024\u3092JSON\u5f62\u5f0f\u3067\u6e21\u3057\u3066\u3044\u308b\u3088\u3046\u3067\u3059\u3002<\/p>\n
[{\r\n    "size": 0,\r\n    "languages": "",\r\n    "uidInfo": "c51e9c8d-8757-49bd-a65f-c1fa9ebc2c6e",\r\n    "updateID": "c51e9c8d-8757-49bd-a65f-c1fa9ebc2c6e"\r\n}]<\/pre>\n
\u3053\u306e\u300cupdateID\u300d\u3055\u3048\u5206\u304b\u308c\u3070\u4f55\u3068\u304b\u306a\u308a\u305d\u3046\u306a\u6c17\u304c\u3057\u3066\u304d\u307e\u3057\u305f\u3002<\/p>\n
updateID\u306e\u53d6\u5f97<\/h5>\n
\u30bd\u30fc\u30b9\u3092\u8abf\u3079\u308b\u3068\u3001\u30ea\u30f3\u30af\u306eonclick\u5c5e\u6027\u306e\u5024\u306e\u4e2d\u306bID\u304c\u8a18\u8f09\u3055\u308c\u3066\u3044\u307e\u3057\u305f\u3002<\/p>\n
\"\"<\/a><\/p>\n
\u305f\u3060\u3001Web\u30b5\u30a4\u30c8 \uff1d html\u304b\u3089\u5024\u3092\u6301\u3063\u3066\u304f\u308b\u306e\u306f\u9762\u5012\u304f\u3055\u305d\u3046\u3067\u3059\u3002<\/p>\n
\u305d\u3053\u3067\u76ee\u3092\u4ed8\u3051\u305f\u306e\u304c\u691c\u7d22\u7d50\u679c\u306e\u300cRSS\u30d5\u30a3\u30fc\u30c9<\/span>\u300d\u3001XML\u306b\u5024\u304c\u8a18\u8f09\u3055\u308c\u3066\u3044\u308c\u3070\u3001html\u306e\u89e3\u6790\u3092\u3059\u308b\u3088\u308a\u697d\u306b\u5024\u3092\u53d6\u5f97\u3067\u304d\u307e\u3059\u3002<\/p>\n
\u3068\u3053\u308d\u304c\u3001RSS\u30d5\u30a3\u30fc\u30c9\u306e\u30ea\u30f3\u30af\u3092\u30af\u30ea\u30c3\u30af\u3059\u308b\u3068\u3001\u898b\u4e8b\u306b\u30a8\u30e9\u30fc\u767a\u751f\uff01
\n\u4e16\u306e\u4e2d\u305d\u3046\u601d\u3044\u901a\u308a\u306b\u306f\u52d5\u3044\u3066\u304f\u308c\u307e\u305b\u3093\u30fb\u30fb\u30fb\u3002<\/p>\n
\"\"<\/a><\/p>\n
\u8ae6\u3081\u304d\u308c\u306a\u3044\u306e\u3067\u3001\u30d6\u30e9\u30a6\u30b6\u30fc\u3092\u66ff\u3048Internet Explorer\u3067\u958b\u3044\u3066\u307f\u308b\u3068\u3001<\/p>\n
\"\"<\/a><\/p>\n
\u4eca\u5ea6\u306f\u554f\u984c\u306a\u304f\u8868\u793a\u3067\u304d\u307e\u3057\u305f\u3002
\nupdateID\u3082\u3061\u3083\u3093\u3068guid\u8981\u7d20\u306e\u5024\u3068\u3057\u3066\u8a18\u8f09\u3055\u308c\u3066\u3044\u307e\u3059\u3002<\/p>\n
\"\"<\/a><\/p>\n
\u3053\u3053\u307e\u3067\u304f\u308c\u3070\u3001\u4e0b\u8a18\u306e\u3088\u3046\u306a\u6d41\u308c\u3067\u51e6\u7406\u3067\u304d\u305d\u3046\u3067\u3059\u3002<\/p>\n
    \n
  1. Microsoft Update\u30ab\u30bf\u30ed\u30b0\u3067\u300c\u7d2f\u7a4d \u66f4\u65b0 Windows-10\u300d\u30ad\u30fc\u30ef\u30fc\u30c9\u691c\u7d22\u3057\u305f\u7d50\u679c\u306eRSS\u30d5\u30a3\u30fc\u30c9\u3092\u53d6\u5f97(Internet Explorer)<\/li>\n
  2. 1.\u306eRSS\u30d5\u30a3\u30fc\u30c9\u304b\u3089\u3001\u5bfe\u8c61\u3068\u306a\u308b\u66f4\u65b0\u30d7\u30ed\u30b0\u30e9\u30e0\u306eupdateID\u3092\u53d6\u5f97<\/li>\n
  3. \u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u30da\u30fc\u30b8\u306b\u5bfe\u3057\u3066updateID\u3092\u542b\u3081\u305f\u30d1\u30e9\u30e1\u30fc\u30bf\u30fc\u3092POST<\/li>\n
  4. \u7d50\u679c\u3068\u3057\u3066\u8868\u793a\u3055\u308c\u308bWeb\u30da\u30fc\u30b8\u304b\u3089\u30d5\u30a1\u30a4\u30eb\u306e\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9URL\u3092\u53d6\u5f97<\/li>\n<\/ol>\n
    Microsoft Update \u30ab\u30bf\u30ed\u30b0\u304b\u3089\u7d2f\u7a4d\u66f4\u65b0\u30d7\u30ed\u30b0\u30e9\u30e0\u3092\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u3059\u308bVBScript<\/h4>\n
    \u3053\u306e\u6d41\u308c\u3092\u5b9f\u88c5\u3057\u305f\u306e\u304c\u4e0b\u8a18\u306e\u30b3\u30fc\u30c9\u3067\u3059\u3002
    \n\u3059\u3079\u3066\u306e\u66f4\u65b0\u30d7\u30ed\u30b0\u30e9\u30e0\u3092\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u3059\u308b\u308f\u3051\u306b\u306f\u3044\u304b\u306a\u3044\u306e\u3067\u3001\u30d7\u30e9\u30c3\u30c8\u30d5\u30a9\u30fc\u30e0\u3084OS\u306e\u30d0\u30fc\u30b8\u30e7\u30f3\u3001\u65e5\u4ed8\u3067\u7d5e\u308a\u8fbc\u3080\u3088\u3046\u306b\u3057\u3066\u3044\u307e\u3059\u3002
    \n\u65e5\u4ed8\u306fRSS\u30d5\u30a3\u30fc\u30c9\u306epubDate\u8981\u7d20\u3067\u3056\u3063\u304f\u308a\u3068\u5e74\u6708\u3092\u5224\u65ad\u3057\u3066\u3044\u308b\u3060\u3051\u306a\u306e\u3067\u3001\u6307\u5b9a\u6708\u4ee5\u5916\u306e\u66f4\u65b0\u30d7\u30ed\u30b0\u30e9\u30e0\u304c\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u3055\u308c\u308b\u5834\u5408\u304c\u3042\u308a\u307e\u3059\u304c\u3001\u5927\u307e\u304b\u306b\u306f\u4e0a\u624b\u304f\u52d5\u3044\u3066\u3044\u308b\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n
    '*************************************************************************\r\n' Microsoft Update \u30ab\u30bf\u30ed\u30b0\u304b\u3089\u66f4\u65b0\u30d7\u30ed\u30b0\u30e9\u30e0\u3092\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u3059\u308b\u30b9\u30af\u30ea\u30d7\u30c8\r\n' \r\n' 2019\/6\/14 @kinuasa\r\n'*************************************************************************\r\n\r\nOption Explicit\r\n\r\nCall DownloadWindowsUpdatesFromCatalog()\r\nWscript.Echo "\u51e6\u7406\u304c\u5b8c\u4e86\u3057\u307e\u3057\u305f\u3002"\r\n\r\nPrivate Sub DownloadWindowsUpdatesFromCatalog()\r\n'Microsoft Update \u30ab\u30bf\u30ed\u30b0\u304b\u3089\u66f4\u65b0\u30d7\u30ed\u30b0\u30e9\u30e0\u3092\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\r\n  Dim fso, fol\r\n  Dim nodes, node\r\n  Dim res\r\n  Dim yyyy, mm\r\n  Dim update_title, update_id, update_url, update_filename\r\n  Dim parent_folderpath, dl_folderpath, dl_filepath\r\n  Dim pub_date, guid\r\n  Dim flg\r\n  Dim v\r\n  Dim i, cnt\r\n  \r\n  '[\u7d2f\u7a4d \u66f4\u65b0 Windows-10]\u3092\u691c\u7d22\u30ad\u30fc\u30ef\u30fc\u30c9\u3068\u3057\u305f\u30d5\u30a3\u30fc\u30c9URL\r\n  Const url = "http:\/\/catalog.update.microsoft.com\/v7\/site\/Rss.aspx?q=%e7%b4%af%e7%a9%8d+%e6%9b%b4%e6%96%b0+Windows-10&lang=ja"\r\n  'title\u7d5e\u308a\u8fbc\u307f\u7528\u306e\u30ad\u30fc\u30ef\u30fc\u30c9(Or\u6761\u4ef6)\r\n  Const keyword = "1803,1809,1903"\r\n  '\u5bfe\u8c61\u30d7\u30e9\u30c3\u30c8\u30d5\u30a9\u30fc\u30e0\r\n  Const platform = "x64"\r\n  \r\n  '\u30d5\u30a9\u30eb\u30c0\u8a2d\u5b9a\r\n  Set fol = CreateObject("Shell.Application") _\r\n            .BrowseForFolder(0, "\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u5148\u30d5\u30a9\u30eb\u30c0\u9078\u629e", &H10, 0)\r\n  If fol Is Nothing Then Exit Sub\r\n  parent_folderpath = fol.Self.Path\r\n  Set fso = CreateObject("Scripting.FileSystemObject")\r\n  \r\n  '\u5e74\u6708\u8a2d\u5b9a\r\n  yyyy = InputBox("\u5bfe\u8c61\u5e74\u3092\u5165\u529b\u3057\u3066\u304f\u3060\u3055\u3044\u3002", , Year(Now()))\r\n  mm = InputBox("\u5bfe\u8c61\u6708\u3092\u5165\u529b\u3057\u3066\u304f\u3060\u3055\u3044\u3002", , Right("0" & Month(Now()), 2))\r\n  \r\n  'RSS\u30d5\u30a3\u30fc\u30c9\u53d6\u5f97\r\n  With CreateObject("WinHttp.WinHttpRequest.5.1")\r\n    .Open "GET", url, False\r\n    .setRequestHeader "User-Agent", "Mozilla\/5.0 (Windows NT 10.0; WOW64; Trident\/7.0; rv:11.0) like Gecko"\r\n    .Send\r\n    Select Case .Status\r\n      Case 200\r\n        res = .responseText\r\n      Case Else\r\n        Wscript.Echo "!!RSS\u30d5\u30a3\u30fc\u30c9\u53d6\u5f97\u5931\u6557!! \u30b9\u30c6\u30fc\u30bf\u30b9\u30b3\u30fc\u30c9\uff1a" & .Status\r\n        Exit Sub\r\n    End Select\r\n  End With\r\n  \r\n  cnt = 0\r\n  v = Split(keyword, ",")\r\n  With CreateObject("MSXML2.DOMDocument")\r\n    .async = False\r\n    If .LoadXML(res) = True Then\r\n      Set nodes = .SelectNodes("\/\/item")\r\n      If nodes.Length > 0 Then\r\n        For Each node In nodes\r\n          flg = False\r\n          update_title = node.SelectSingleNode("title").Text\r\n          pub_date = node.SelectSingleNode("pubDate").Text\r\n          \r\n          '\u65e5\u4ed8(pubDate)\u3068\u30d7\u30e9\u30c3\u30c8\u30d5\u30a9\u30fc\u30e0(title)\u3067\u7d5e\u308a\u8fbc\u307f\r\n          If (InStr(pub_date, yyyy & "-" & mm) > 0) And (InStr(update_title, platform) > 0) Then\r\n            '\u30ad\u30fc\u30ef\u30fc\u30c9\u306b\u3088\u308b\u7d5e\u308a\u8fbc\u307f(title)\r\n            For i = LBound(v) To UBound(v)\r\n              If InStr(update_title, v(i)) > 0 Then flg = True: Exit For\r\n            Next\r\n          End If\r\n          \r\n          If flg = True Then\r\n            If cnt > 0 Then WScript.Sleep 10000 '\u8ca0\u8377\u3092\u8003\u3048\u306610\u79d2\u51e6\u7406\u5f85\u3061\r\n            guid = node.SelectSingleNode("guid").Text\r\n            update_id = GetUpdateID(guid)\r\n            update_url = GetDownloadUrl(update_id)\r\n            update_filename = GetDownloadFileName(update_url)\r\n            \r\n            '\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u5148\u30d5\u30a9\u30eb\u30c0\u4f5c\u6210\r\n            dl_folderpath = fso.BuildPath(parent_folderpath, update_title)\r\n            If fso.FolderExists(dl_folderpath) = False Then fso.CreateFolder dl_folderpath\r\n            \r\n            '\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u5b9f\u884c\r\n            dl_filepath = fso.BuildPath(dl_folderpath, update_filename)\r\n            Wscript.Echo "[\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u4e2d]" & update_title & ", " & update_url & ", " & dl_filepath\r\n            DownloadFile update_url, dl_filepath\r\n            cnt = cnt + 1\r\n          End If\r\n        Next\r\n        Wscript.Echo "----- " & cnt & "\u30d5\u30a1\u30a4\u30eb\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u5b8c\u4e86 -----"\r\n      End If\r\n    Else\r\n      Wscript.Echo "!!RSS\u30d5\u30a3\u30fc\u30c9\u8aad\u8fbc\u5931\u6557!!"\r\n    End If\r\n  End With\r\nEnd Sub\r\n\r\nPrivate Sub DownloadFile(ByVal url, ByVal save_filepath)\r\n'XMLHTTPRequest + ADODB.Stream\u3067\u30d5\u30a1\u30a4\u30eb\u3092\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\r\n  Dim req\r\n  Const adTypeBinary = 1\r\n  Const adSaveCreateOverWrite = 2\r\n   \r\n  Set req = CreateObject("Msxml2.XMLHTTP")\r\n  req.Open "GET", url, False\r\n   \r\n  '\u30ad\u30e3\u30c3\u30b7\u30e5\u5bfe\u7b56\r\n  'http:\/\/vird2002.s8.xrea.com\/javascript\/XMLHttpRequest.html#XMLHttpRequest_Cache-Control\r\n  'http:\/\/www.atmarkit.co.jp\/ait\/articles\/0305\/10\/news002.html \u53c2\u8003\r\n  req.setRequestHeader "Pragma", "no-cache"\r\n  req.setRequestHeader "Cache-Control", "no-cache"\r\n  req.setRequestHeader "If-Modified-Since", "Thu, 01 Jun 1970 00:00:00 GMT"\r\n   \r\n  req.Send\r\n  Select Case req.Status\r\n    Case 200\r\n      With CreateObject("ADODB.Stream")\r\n        .Type = adTypeBinary\r\n        .Open\r\n        .Write req.responseBody\r\n        .SaveToFile save_filepath, adSaveCreateOverWrite\r\n        .Close\r\n      End With\r\n    Case Else\r\n      Wscript.Echo "!!\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u5931\u6557!! \u30b9\u30c6\u30fc\u30bf\u30b9\u30b3\u30fc\u30c9\uff1a" & .Status\r\n      Exit Sub\r\n  End Select\r\nEnd Sub\r\n\r\nPrivate Function GetUpdateID(ByVal guid)\r\n'\u30a2\u30c3\u30d7\u30c7\u30fc\u30c8ID\u53d6\u5f97\r\n  GetUpdateID = Left(guid, InStr(guid, "#") - 1)\r\nEnd Function\r\n\r\nPrivate Function GetDownloadUrl(ByVal update_id)\r\n'\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9URL\u53d6\u5f97\r\n  Dim dat\r\n  Dim html\r\n  Dim matches\r\n  Dim match\r\n  Dim ret\r\n  Const url = "http:\/\/www.catalog.update.microsoft.com\/DownloadDialog.aspx"\r\n  \r\n  dat = "updateIDs=%5B%7B%22size%22%3A0%2C%22languages%22%3A%22%22%2C%22uidInfo%22%3A%22" & update_id & _\r\n        "%22%2C%22updateID%22%3A%22" & update_id & "%22%7D%5D"\r\n  With CreateObject("WinHttp.WinHttpRequest.5.1")\r\n    .Open "POST", url, False\r\n    .setRequestHeader "Content-Type", "application\/x-www-form-urlencoded"\r\n    .Send dat\r\n    Select Case .Status\r\n      Case 200: html = .responseText\r\n    End Select\r\n  End With\r\n  \r\n  '[downloadInformation[0].files[0].url =...]\u304b\u3089URL\u53d6\u5f97\r\n  With CreateObject("VBScript.RegExp")\r\n    .IgnoreCase = True\r\n    .Global = True\r\n    .Pattern = "downloadInformation.*url.*"\r\n    If .Test(html) Then\r\n      Set matches = .Execute(html)\r\n      \r\n      '\u30d1\u30bf\u30fc\u30f3\u3092\u30b7\u30f3\u30d7\u30eb\u306b\u3057\u3066\u5f8c\u304b\u3089\u4e0d\u8981\u306a\u6587\u5b57\u3092\u524a\u9664\r\n      match = matches(0).Value\r\n      match = Replace(match, vbCrLf, "")\r\n      match = Replace(match, vbLf, "")\r\n      match = Replace(match, vbCr, "")\r\n      match = Replace(match, ";", "")\r\n      match = Replace(match, ",", "")\r\n      match = Replace(match, "'", "")\r\n      match = Replace(match, " ", "")\r\n      \r\n      ret = Mid(match, InStr(match, "=") + 1)\r\n    End If\r\n  End With\r\n  \r\n  GetDownloadUrl = ret\r\nEnd Function\r\n\r\nPrivate Function GetDownloadFileName(ByVal update_url)\r\n'\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u5bfe\u8c61\u306e\u30d5\u30a1\u30a4\u30eb\u540d\u53d6\u5f97\r\n  Dim v\r\n  \r\n  v = Split(update_url, "\/")\r\n  GetDownloadFileName = v(UBound(v))\r\nEnd Function<\/pre>\n
    \"\"<\/a><\/p>\n
    \"\"<\/a><\/p>\n
    \"\"<\/a><\/p>\n
    \"\"<\/a><\/p>\n
    \"\"<\/a><\/p>\n
    \u3053\u308c\u3067\u9762\u5012\u306a\u5b9a\u4f8b\u4f5c\u696d\u304c\u4e00\u3064\u81ea\u52d5\u5316\u3067\u304d\u307e\u3057\u305f\u3002<\/p>\n
    \u3061\u306a\u307f\u306b\u3001VBScript\u306b\u3057\u305f\u7406\u7531\u306f\u5358\u306b\u904e\u53bb\u306e\u30b3\u30fc\u30c9\u3092\u6d41\u7528\u3057\u305f\u3060\u3051\u306a\u306e\u3067\u3001\u9069\u5f53\u306b\u5909\u66f4\u3059\u308b\u306a\u308aPowerShell\u306b\u66f8\u304d\u63db\u3048\u308b\u306a\u308a\u3001\u3054\u81ea\u7531\u306b\u304a\u4f7f\u3044\u3044\u305f\u3060\u3051\u308c\u3070\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n
    \u307e\u305f\u3001\u4e0a\u8a18\u30b3\u30fc\u30c9\u306f\u3001Microsoft Update\u30ab\u30bf\u30ed\u30b0\u306e\u4ed5\u69d8\u5909\u66f4\u306b\u4f34\u3063\u3066\u52d5\u4f5c\u3057\u306a\u304f\u306a\u308b<\/span>\u53ef\u80fd\u6027\u304c\u3042\u308a\u307e\u3059\u306e\u3067\u3001\u305d\u306e\u70b9\u306f\u3054\u6ce8\u610f\u304f\u3060\u3055\u3044\u3002<\/p>\n
    \n
    \n