自寫的各種設置Windows系統變量的vbs腳本

2012/3/25 16:15:59  出處：本站整理   人氣：627次    字號：小  中  大

　　第一段：

　　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"))

　　這個代碼用于添加當前目錄下的Python27目錄到（用戶）系統變量Path上。最初的用途是，把Python27安裝目錄、Editplus（經過一些配置）和這個vbs打包，可以用于快速搭建Python的開發環境，其中Editplus是編輯器，Python是解釋器，Editplus經過了一些設置有代碼高亮、自動所經等功能（代碼自動補全由于做得不怎么好，被我放棄了），可以通過快捷鍵方便運行Python代碼。這幾樣東西加起來用7z壓縮，還不到9M。當初學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"))

　　這段代碼用于添加用戶系統變量的一個項LM_LICENSE_FILE，值為當前目錄下的license.dat的完整路徑，這其實是用于Modelsim的破解的。上學期學習Verilog，需要使用Modelsim。經過研究，Modelsim是用Tcl寫的界面，軟件本身有綠色軟件的性質。我把一些安裝時產生的文檔，和VHDL等其他語言的示例和庫文件等刪除，配合破解程序和這段vbs腳本，完成了一個快速可用的Modelsim+Verilog開發工具包，壓縮包只有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等系統變量的設置，比從系統屬性上要快很多。當然也可以和上面的代碼一樣完成“綠色版”JDK工具包。這段代碼在Windows XP上沒有什么問題，似乎在Windows 7下需要修改一下。

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

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

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