e$B%A%1%C%He(B #2552 e$B$,99?7$5$l$^$7$?!#e(B (by pegacorn jp)
e$B!&e(Bputenv()e$B$G@_Dj$7$?$b$N$O!"e(Bgetenv()e$B$G$be(BGetEnvironmentVariable()e$B$G$b<hF@$G$-$ke(B
e$B!&e(BSetEnvironmentVariable()e$B$G@_Dj$7$?$b$N$O!"e(BGetEnvironmentVariable()e$B$G$O<hF@$G$-$k$,e(Bgetenv()e$B$G$O<hF@$G$-$J$$e(B
e$B$N$G!"e(BWindowse$BHG$G$OI,$:e(BGetEnvironmentVariable()e$B$G<hF@$9$k$h$&$K$7$?J}$,NI$$$N$G$O$J$$$G$7$g$&$+!#e(B