プロセス固有の環境変数(PATH)を設定したコマンドプロンプトを立ち上げる


# 概要
よく使うツール群のパスがなぜか通ってないけど、
・システムの環境変数(PATH)をいじりたいくない
・コマンドプロンプトごとに適宜切り替えたい
ということがあったので、プロセス固有の環境変数(PATH)を設定したプロンプトを立ち上げるようにします。

これを、rubyのsetrbvars.batを題材にvbscriptやrbで書いてみます。

# コード - vbscript

ポイントとなるコードをvbscriptで示します。rbでもwin32oleを使うのでだいたい同じです。応用例2参照

```vbnet:cmd_after_addpath.vbs
'利用するオブジェクトを生成しておく
set shell = CreateObject("WScript.Shell")
set fso   = CreateObject("Scripting.FileSystemObject") 'path_to_addに設定するもの次第ではfsoはなくてもOK

'このスクリプトがあるフォルダをパスに追加する
path_to_add = fso.getParentFolderName(WScript.ScriptFullName)

' たちあげたプロンプトにだけ一時的に追加したいのでEnvironment("Process")にしておく。
set env = shell.Environment("Process")
env.Item("PATH") =  path_to_add & ";" & env.item("PATH")

' cmd.exeを実行する
shell.Run "cmd.exe /K", ,FALSE
```

cmd.exeのパラメータに/Kを指定してるのは、

[Cmd - DOS コマンド一覧 - Programming Field][8]

> ```/K <command>```
>    ```<command>``` で指定した内容を実行します。実行をした後、「このコマンドを実行したcmd.exe」は終了せず、引き続きプロンプトを表示します。

ということを利用して、コマンドプロンプトに出てしまうロゴ(↓)を出さなようにするためです。

```shell-session:ロゴ
Microsoft Windows [Version xx.y.zzzzzzzz]
(c) 201y Microsoft Corporation. All rights reserved.
```

改造すると自分なりのロゴを出すために使えます。
たとえば、以下のようにすると追加したパスをロゴ代わりに出します。

```vbnet:改造
' cmd.exeを実行する
shell.Run "cmd.exe /K echo " & path_to_add & " is temporary added to PATH", ,FALSE
```

# 応用例1

```vbnet:setrbvars.vbs
'利用するオブジェクトを生成しておく
set shell = CreateObject("WScript.Shell")
set fso   = CreateObject("Scripting.FileSystemObject") 'path_to_addに設定するもの次第ではfsoはなくてもOK

'このスクリプトがあるフォルダをパスに追加する
'SET RUBY_BIN=%CD% 相当の処理
path_to_add = fso.getParentFolderName(WScript.ScriptFullName)

' たちあげたプロンプトにだけ一時的に追加したいのでEnvironment("Process")にしておく。
' SET PATH=%RUBY_BIN%;%PATH%相当の処理
set env = shell.Environment("Process")
env.Item("PATH") =  path_to_add & ";" & env.item("PATH")

' cmd.exeを実行する
' ruby.exe -v相当の処理
shell.Run "cmd.exe /K ruby.exe -v", ,FALSE
```
setrbvars.vbsをruby.exeと同じフォルダにおいてダブルクリックするとコマンドプロンプトが立ち上がります。
![5.png](https://qiita-image-store.s3.amazonaws.com/0/34777/146a1601-307a-783c-c872-d6c572bbcfcc.png)

setrbvars.batは、```C:\Windows\System32\cmd.exe /E:ON /K C:\Ruby22-x64\bin\setrbvars.bat```のようにcmd.exe上で実行されます。
setrbvars.vbsは、WScript.exe もしくは CScript.exeで実行され、cmd.exeを子プロセスとして生成するという違いがあります。


# 応用例2

```rb:setrbvars.rb
require "win32ole"
shell = WIN32OLE.new("WScript.Shell")
env   = shell.Environment("Process")
env.setproperty("item", "PATH", File.expand_path(File.dirname(__FILE__)).gsub("/", "\\\\") + ";" + env.item("PATH"))
shell.Run("cmd.exe /K ruby.exe -v",nil,false)
```

ダブルクリックでrbを実行できるようになってたら、これをクリックするだけで「Ruby コマンドプロンプトを開く」と同じようにコマンドプロンプトが起動します。

# 使い方
追記予定
cmd_after_addpath.vbsのショートカットをコマンドプロンプトのカレントフォルダにしたいフォルダ作成して、
作業フォルダ欄を空欄にするとか・・・アイコンを変更するとか・・・[Anaconda Promptの起動について調べる - Qiita][10]に関連したことを書く予定


# 備考
もともとは、bat-->vbscript-->batみたいな感じで一時的な環境変数をやりとりしようとしてました
"bat プロセス間 環境変数 引継ぎ 共有"でぐぐったら、

[batファイル内での環境変数の共有について][9]

>  ＰＡＴＩＯ 2008/03/25(火) 10:34:14
>確か実行ファイルの環境変数は起動した環境の環境変数のコピーだったと思います。
なので実行ファイルの環境変数を変更しても起動した環境の環境変数は変えられないはずです。
結論として環境変数でデータを返す事はできない。

とのことで、Environment("System"), Environment("User"), Environment("Volatile")のように「一時的じゃないもの」を使わないと引き継げないようでした。
やりたいことは、「たちあげたプロンプトにだけ一時的に追加したい」なので、Environment("Process")と同等のスコープじゃないとちょっと都合が悪い

逆に、

[batファイル内での環境変数の共有について][9]

> 麩 2008/03/25(火) 16:58:44
> EXEから呼び出し側Batに戻る事は諦めて、続きの処理をEXEの子プロセスとして生成してしまえば環境変数の引継ぎは出来ませんか？

とのことで、子プロセスはEnvironment("Process")を引き継ぐようだったので、vbscriptからcmd.exeを起動するようにしました。

書いているうちに、「この内容だったら、rubyのwin32oleにもできるだろう」と気がついたので、
[[ruby-list 31108] Re  WIN32OLE の質問 環境変数の設定はどうやる？][11]を参考にやりました。


# 参考
[[ruby-list 31108] Re  WIN32OLE の質問 環境変数の設定はどうやる？][11]
[Anaconda Promptの起動について調べる - Qiita][10]
[batファイル内での環境変数の共有について – らららのエンジニアラウンジ][9]
[Cmd - DOS コマンド一覧 - Programming Field][8]
[全ては時の中に…   【VBScript】環境変数の登録][7]
[MS Windows_VBScript - PukiWiki][6]
[＠IT：Windows TIPS -- Tips：WSHで環境変数を設定する][5]
[Tech TIPS：setxで環境変数の値を設定する（基本編） - ＠IT][4]
[一時的に環境変数を設定してプログラムを起動するJScript  PuppyLinuxで爆速PCライフ][3]
[一時的に環境変数 XYZZYHOME を設定してから xyzzy を起動させる - Cookie & Ice cream][2]
[Environment プロパティ][1]

<!-- リンク実体 -->
[11]:http://smileruby.hatenablog.com/entry/20110331/1301589137
[10]:http://qiita.com/int_main_void/items/9b54a28c91a530b58f64
[9]:https://rarara.org/community/programming/bat%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB%E5%86%85%E3%81%A7%E3%81%AE%E7%92%B0%E5%A2%83%E5%A4%89%E6%95%B0%E3%81%AE%E5%85%B1%E6%9C%89%E3%81%AB%E3%81%A4%E3%81%84%E3%81%A6/
[8]:https://pf-j.sakura.ne.jp/program/dos/doscmd/cmd.htm
[7]:http://blog.livedoor.jp/akf0/archives/51607997.html
[6]:http://mizupc8.bio.mie-u.ac.jp/pukiwiki/index.php?MS%20Windows%2FVBScript
[5]:http://www.atmarkit.co.jp/fwin2k/win2ktips/460envset/envset.html
[4]:http://www.atmarkit.co.jp/ait/articles/0803/28/news145.html
[3]:http://puppylinux.seesaa.net/article/425459516.html
[2]:http://d.hatena.ne.jp/C_and_I/20110414/p1
[1]:https://msdn.microsoft.com/ja-jp/library/cc364502.aspx