yu2n

Dim wso
Set wso=CreateObject("wscript.shell")
wso.run "cmd /V:ON /C" & _
	" echo 1. 設定環境變數" & _
	" & set ""path=%path%;e:"" & echo." & _
	" & echo 2. 顯示環境變數一" & _
	" & set path & echo." & _
	" & echo 3. 顯示環境變數二" & _
	" & echo !path! & echo." & _
	" & pause", 1, False
复制代码