自寫的各種設(shè)置Windows系統(tǒng)變量的vbs腳本

　　第一段：

　　Set WshShell=CreateObject("WScript.Shell")

　　Set WshEnv=WshShell.Environment("User")

　　'WScript.Echo(WshShell.currentdirectory&"\Python27")

　　WshEnv.Item("Path") = WshEnv.Item("Path")&";"&WshShell.currentdirectory&"\Python27;"

　　WScript.Echo(WshEnv.Item("Path"))

　　這個代碼用于添加當(dāng)前目錄下的Python27目錄到（用戶）系統(tǒng)變量Path上。最初的用途是，把Python27安裝目錄、Editplus（經(jīng)過一些配置）和這個vbs打包，可以用于快速搭建Python的開發(fā)環(huán)境，其中Editplus是編輯器，Python是解釋器，Editplus經(jīng)過了一些設(shè)置有代碼高亮、自動所經(jīng)等功能（代碼自動補全由于做得不怎么好，被我放棄了），可以通過快捷鍵方便運行Python代碼。這幾樣?xùn)|西加起來用7z壓縮，還不到9M。當(dāng)初學(xué)Python的時候，這個工具包是隨身攜帶，隨時可用的。

　　第二段：

　　Set WshShell=CreateObject("WScript.Shell")

　　Set WshEnv=WshShell.Environment("User")

　　'WScript.Echo(WshShell.currentdirectory&"\Python27")

　　WshEnv.Item("Path") = WshEnv.Item("Path")&";"&WshShell.currentdirectory&"\Python27;"

　　WScript.Echo(WshEnv.Item("Path"))

　　這段代碼用于添加用戶系統(tǒng)變量的一個項LM_LICENSE_FILE，值為當(dāng)前目錄下的license.dat的完整路徑，這其實是用于Modelsim的破解的。上學(xué)期學(xué)習(xí)Verilog，需要使用Modelsim。經(jīng)過研究，Modelsim是用Tcl寫的界面，軟件本身有綠色軟件的性質(zhì)。我把一些安裝時產(chǎn)生的文檔，和VHDL等其他語言的示例和庫文件等刪除，配合破解程序和這段vbs腳本，完成了一個快速可用的Modelsim+Verilog開發(fā)工具包，壓縮包只有19M，解壓之后，幾個點擊和雙擊就可以使用了，比超大的原始安裝程序的安裝要快和輕便了很多。

　　Set WshShell=CreateObject("WScript.Shell")

　　Set WshEnv=WshShell.Environment("User")

　　'WScript.Echo(WshShell.currentdirectory&"\Python27")

　　WshEnv.Item("Path") = WshEnv.Item("Path")&";"&WshShell.currentdirectory&"\Python27;"

　　WScript.Echo(WshEnv.Item("Path"))

　　這段代碼是用于配置Jdk的，雙擊之后，可以立即完成PATH、CLASSPATH等系統(tǒng)變量的設(shè)置，比從系統(tǒng)屬性上要快很多。當(dāng)然也可以和上面的代碼一樣完成“綠色版”JDK工具包。這段代碼在Windows XP上沒有什么問題，似乎在Windows 7下需要修改一下。

　　第三段代碼最值得品味的一行是

　　temp=ws.regread(regpath & "PATH")

　　這行看似沒有什么用處，其實不然。vbs通過WScript.Shell對象設(shè)置系統(tǒng)變量，但是只有修改和刪除的直接方法，修改就是用等號賦值，刪除使用remove方法，而增加系統(tǒng)變量的直接方法，微軟沒有提供，在一些文檔上也是這么說的。于是想添加系統(tǒng)變量，就得另辟蹊徑，操作注冊表，vbs可以操作注冊表，但是單單寫注冊表項并不能立即生效，只有在重新登錄后才有用，使用讀注冊表regread，似乎就是為了解決這個問題。上面的第二段代碼也沒有注意到這個問題。