Sub Click(Source As Button)

     ' --- Windows Scripting Hostオブジェクト作成
     Set wshObj = CreateObject("Wscript.Shell")
     Set wshEnv = wshObj.Environment("PROCESS")
     
     Msgbox _
     "コマンドプロンプト： " & wshEnv("COMSPEC") & Chr(13) & _
     "環境変数： " & wshEnv("PATH") & Chr(13) & _
     "システムディレクトリ： " & wshEnv("WINDIR") & Chr(13) & _
     "コマンドプロンプト： " & wshEnv("PROMPT") & Chr(13) & _
     "テンポラリディレクトリ： " & wshEnv("TEMP") & Chr(13) & _
     "テンポラリディレクトリ： " & wshEnv("TMP") & Chr(13) & _
     "ブートディレクトリ： " & wshEnv("WINBOOTDIR") & Chr(13) & _
     "コマンドライン： " & wshEnv("CMDLINE") & Chr(13) & _
     "BLASTER （?）： " & wshEnv("BLASTER") & Chr(13)

End Sub