当前位置: 首页IT技术 → 自写的各种设置Windows系统变量的vbs脚本

自写的各种设置Windows系统变量的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"))

  这个代码用于添加当前目录下的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,似乎就是为了解决这个问题。上面的第二段代码也没有注意到这个问题。

热门评论
最新评论
昵称:
表情: 高兴 可 汗 我不要 害羞 好 下下下 送花 屎 亲亲
字数: 0/500 (您的评论需要经过审核才能显示)