{"id":7845,"date":"2017-01-16T16:26:37","date_gmt":"2017-01-16T07:26:37","guid":{"rendered":"https:\/\/www.ka-net.org\/blog\/?p=7845"},"modified":"2017-01-25T13:20:31","modified_gmt":"2017-01-25T04:20:31","slug":"os%e3%81%ae%e3%83%90%e3%83%bc%e3%82%b8%e3%83%a7%e3%83%b3%e6%83%85%e5%a0%b1%e3%82%92%e3%82%af%e3%83%aa%e3%83%83%e3%83%97%e3%83%9c%e3%83%bc%e3%83%89%e3%81%ab%e3%82%b3%e3%83%94%e3%83%bc%e3%81%99%e3%82%8b","status":"publish","type":"post","link":"https:\/\/www.ka-net.org\/blog\/?p=7845","title":{"rendered":"OS\u306e\u30d0\u30fc\u30b8\u30e7\u30f3\u60c5\u5831\u3092\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u306b\u30b3\u30d4\u30fc\u3059\u308bVBScript"},"content":{"rendered":"

OS\u306e\u30d0\u30fc\u30b8\u30e7\u30f3\u3084\u30d3\u30eb\u30c9\u756a\u53f7\u3092\u30d6\u30ed\u30b0\u306e\u8a18\u4e8b\u5185\u306b\u66f8\u304f\u3053\u3068\u304c\u3042\u308b\u306e\u3067\u3059\u304c\u3001\u3044\u3061\u3044\u3061\u30b7\u30b9\u30c6\u30e0\u60c5\u5831\u3092\u898b\u308b\u306e\u306f\u9762\u5012\u304f\u3055\u3044\u306e\u3067\u3001\u30d0\u30fc\u30b8\u30e7\u30f3\u60c5\u5831\u3092\u76f4\u63a5\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u306b\u30b3\u30d4\u30fc\u3059\u308b\u30b9\u30af\u30ea\u30d7\u30c8\u3092\u66f8\u304d\u307e\u3057\u305f\u3002<\/p>\n

\"\"<\/p>\n

Option Explicit\r\n\r\n'OS\u306e\u30d0\u30fc\u30b8\u30e7\u30f3\u60c5\u5831\u3092\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u306b\u30b3\u30d4\u30fc\r\nPutInClipboardText GetOSVersion()\r\n'WScript.Echo GetOSVersion() '\u78ba\u8a8d\u7528\r\n\r\nPrivate Function GetOSVersion()\r\n  Dim colItems\r\n  Dim itm\r\n  Dim ret\r\n  \r\n  Set colItems = CreateObject("WbemScripting.SWbemLocator") _\r\n                   .ConnectServer _\r\n                   .ExecQuery("Select * From Win32_OperatingSystem")\r\n  For Each itm In colItems\r\n    ret = "OS\u540d:" & itm.Caption & " " & "\u30d0\u30fc\u30b8\u30e7\u30f3:" & itm.Version & " \u30d3\u30eb\u30c9 " & itm.BuildNumber\r\n  Next\r\n  GetOSVersion = ret\r\nEnd Function\r\n\r\nPublic Sub PutInClipboardText(ByVal str)\r\n'https:\/\/www.ka-net.org\/blog\/?p=1563\r\n  Dim cmd\r\n   \r\n  cmd = "cmd \/c ""echo " & str & "| clip"""\r\n  CreateObject("WScript.Shell").Run cmd, 0\r\nEnd Sub<\/pre>\n
\u6587\u5b57\u5217\u3092\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u306b\u30b3\u30d4\u30fc\u3059\u308b\u51e6\u7406\u306f\u3001\u4e0b\u8a18\u8a18\u4e8b\u306e\u30b3\u30fc\u30c9\u3092\u305d\u306e\u307e\u307e\u4f7f\u3063\u3066\u3044\u307e\u3059\u3002<\/p>\n
clip\u30b3\u30de\u30f3\u30c9\u3092\u5229\u7528\u3057\u3066\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u306b\u6587\u5b57\u5217\u3092\u30b3\u30d4\u30fc\u3059\u308bVBScript<\/a><\/div>
2012.04.03<\/span>
clip\u30b3\u30de\u30f3\u30c9\u3092\u5229\u7528\u3057\u3066\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u306b\u6587\u5b57\u5217\u3092\u30b3\u30d4\u30fc\u3059\u308bVBScript <\/a><\/div>
clip\u30b3\u30de\u30f3\u30c9\u3092\u5229\u7528\u3057\u3066\u6587\u5b57\u5217\u3092\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u306b\u30b3\u30d4\u30fc\u3059\u308bVBScript\u3067\u3059\u3002\r\n\r\n[vb]Option Explicit\r\n\r\nDim s\r\n\r\ns = "\u3053\u3093\u306b\u3061\u306f" & vbTab & ""&...<\/div><\/div>
<\/div><\/div>\n
\u95a2\u9023\u8a18\u4e8b<\/h4>\n
Microsoft Edge\u306e\u30d0\u30fc\u30b8\u30e7\u30f3\u60c5\u5831\u3092\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u306b\u30b3\u30d4\u30fc\u3059\u308bVBScript<\/a><\/div>
2017.01.17<\/span>
Microsoft Edge\u306e\u30d0\u30fc\u30b8\u30e7\u30f3\u60c5\u5831\u3092\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u306b\u30b3\u30d4\u30fc\u3059\u308bVBScript <\/a><\/div>
\u524d\u56de\u306e\u8a18\u4e8b\u306b\u5f15\u304d\u7d9a\u304d\u3001\u81ea\u5206\u306e\u624b\u9593\u3092\u6e1b\u3089\u3059\u305f\u3081\u306e\u30b9\u30af\u30ea\u30d7\u30c8\u3001\u4eca\u56de\u306fMicrosoft Edge\u306e\u30d0\u30fc\u30b8\u30e7\u30f3\u3092\u53d6\u5f97\u3059\u308bVBScript\u3067\u3059\u3002\r\n\r\n[vb]CreateObject("WScript.Shell").Run "powe...<\/div><\/div>
<\/div><\/div>\n
Office\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u306e\u30d0\u30fc\u30b8\u30e7\u30f3\u60c5\u5831\u30c0\u30a4\u30a2\u30ed\u30b0\u304b\u3089\u60c5\u5831\u3092\u53d6\u5f97\u3059\u308bVBScript<\/a><\/div>
2017.01.25<\/span>
Office\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u306e\u30d0\u30fc\u30b8\u30e7\u30f3\u60c5\u5831\u30c0\u30a4\u30a2\u30ed\u30b0\u304b\u3089\u60c5\u5831\u3092\u53d6\u5f97\u3059\u308bVBScript <\/a><\/div>
\u81ea\u5206\u306e\u624b\u9593\u3092\u6e1b\u3089\u3059\u305f\u3081\u306e\u30b9\u30af\u30ea\u30d7\u30c8\u30b7\u30ea\u30fc\u30ba\u3001\u4eca\u56de\u306fWord\u3084Excel\u3068\u3044\u3063\u305f\u3001Office\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u306e\u30d0\u30fc\u30b8\u30e7\u30f3\u60c5\u5831\u3092\u53d6\u5f97\u3059\u308b\u30b9\u30af\u30ea\u30d7\u30c8\u3067\u3059\u3002\r\n\r\n\u901a\u5e38\u3067\u3042\u308c\u3070\u3001\u5404Office\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u306eApplication.Version\u30d7\u30ed\u30d1\u30c6\u30a3\u3067\u53d6\u5f97\u3067...<\/div><\/div>
<\/div><\/div>\n
\n
\n