Sub Click(Source As Button)

     Set wshObj = CreateObject("WScript.Shell")
     Set wshEnv = wshObj.Environment("SYSTEM")
     
     Msgbox _
     "プロセッサ数： "         & wshEnv("NUMBER_OF_PROCESSORS") & Chr(13) & _
     "プロセッサ種類： "       & wshEnv("PROCESSOR_ARCHITECTURE") & Chr(13) & _
     "プロセッサID： "         & wshEnv("PROCESSOR_IDENTIFIER") & Chr(13) & _
     "プロセッサレベル： "     & wshEnv("PROCESSOR_LEVEL") & Chr(13) & _
     "プロセッサバージョン： " & wshEnv("PROCESSOR_REVISION") & Chr(13) & _
     "オペレーティングシステム： "   & wshEnv("OS") & Chr(13) & _
     "コマンドプロンプト： "         & wshEnv("COMSPEC") & Chr(13) & _
     "プライマリローカルドライブ： " & wshEnv("HOMEDRIVE") & Chr(13) & _
     "ユーザー用ディレクトリ： "     & wshEnv("HOMEPATH") & Chr(13) & _
     "環境変数： "                   & wshEnv("PATH") & Chr(13) & _
     "実行可能ファイルの拡張子： "   & wshEnv("PATHEXT") & Chr(13) & _
     "コマンドプロンプト： "         & wshEnv("PROMPT") & Chr(13) & _
     "システムディレクトリがあるローカルドライブ： " & wshEnv("SYSTEMDRIVE") & Chr(13) & _
     "システムディレクトリ： "       & wshEnv("SYSTEMROOT") & Chr(13) & _
     "システムディレクトリ： "       & wshEnv("WINDIR") & Chr(13) & _
     "テンポラリディレクトリ： "     & wshEnv("TEMP") & Chr(13) & _
     "テンポラリディレクトリ： "     & wshEnv("TMP") & Chr(13)

End Sub