Windows関連

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

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

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

関連記事

Microsoft Edgeのお気に入りをHTML形式でインポート・エクスポートする。前のページ

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

関連記事

  1. Windows関連

    Windows 8 Consumer PreviewにMicrosoft Security Esse…

    ※ 下記はWindows 8 Consumer Preview(日本語…

  2. Office関連

    「2014年12月のWindows Update以降コマンドボタンが使えなくなった」トラブルへのFi…

    当ブログでも「KB2553154の更新プログラムをアンインストールする…

  3. Windows関連

    ダウンロードフォルダーのパスを取得するVBScript

    ダウンロードフォルダーのパスを取得する必要があったので、過去に書いた記…

  4. VBScript

    [クライアント管理]WMI Explorerの紹介

    端末のハードウェア情報やインストールされているソフトウェアなどを調べる…

  5. Windows関連

    [Windows 8]クイックアクセスツールバーの情報はどこ?

    ※ 下記はWindows Developer Preview(英語版・…

  6. VBScript

    【Illustrator】指定したPDFプリセットでAIファイルをPDFに一括変換するVBScrip…

    前回の記事で、Illustratorに登録されたPDFプリセットを列挙…

コメント

  • コメント (0)

  • トラックバックは利用できません。

  1. この記事へのコメントはありません。

Time limit is exhausted. Please reload CAPTCHA.

Translate

最近の記事

アーカイブ

PAGE TOP