OSのバージョンやビルド番号をブログの記事内に書くことがあるのですが、いちいちシステム情報を見るのは面倒くさいので、バージョン情報を直接クリップボードにコピーするスクリプトを書きました。

Option Explicit

'OSのバージョン情報をクリップボードにコピー
PutInClipboardText GetOSVersion()
'WScript.Echo GetOSVersion() '確認用

Private Function GetOSVersion()
  Dim colItems
  Dim itm
  Dim ret
  
  Set colItems = CreateObject("WbemScripting.SWbemLocator") _
                   .ConnectServer _
                   .ExecQuery("Select * From Win32_OperatingSystem")
  For Each itm In colItems
    ret = "OS名:" & itm.Caption & " " & "バージョン:" & itm.Version & " ビルド " & itm.BuildNumber
  Next
  GetOSVersion = ret
End Function

Public Sub PutInClipboardText(ByVal str)
'https://www.ka-net.org/blog/?p=1563
  Dim cmd
   
  cmd = "cmd /c ""echo " & str & "| clip"""
  CreateObject("WScript.Shell").Run cmd, 0
End Sub

文字列をクリップボードにコピーする処理は、下記記事のコードをそのまま使っています。

2012.04.03

clipコマンドを利用してクリップボードに文字列をコピーするVBScript

clipコマンドを利用して文字列をクリップボードにコピーするVBScriptです。 XPは標準でclipコマンドが入っていなかったような記憶がありますが、7では標準でclipコマンドが使えるようだったのでスクリプトを書いてみました。 以前に書い...

関連記事

2017.01.17

Microsoft Edgeのバージョン情報をクリップボードにコピーするVBScript

前回の記事に引き続き、自分の手間を減らすためのスクリプト、今回はMicrosoft Edgeのバージョンを取得するVBScriptです。 上記コードを見れば分かる通り、実体はほぼPowerShellです。 Get-AppxPackageコマ...

2017.01.25

Officeアプリケーションのバージョン情報ダイアログから情報を取得するVBScript

自分の手間を減らすためのスクリプトシリーズ、今回はWordやExcelといった、Officeアプリケーションのバージョン情報を取得するスクリプトです。 通常であれば、各OfficeアプリケーションのApplication.Versionプロパティで取得で...