使用WshShell对象取获取Windows环境变量

    最近在自动化框架应用时，由于在QTP中引入了大量vbs作为库文件，以及其它一些配置文件，这些文件的访问路径需要统一一个根路径以便于访问；而根路径使用绝对地址，在不同机器上可能都不相同，目前我们采用了QTP的环境变量来配置这个路径；虽然可以通过QTP的API很方便的加入这个值，但由于设置是跟着脚本走的，导致不同机器上运行脚本总要重新配置，颇有些不便。
    今天看了几行java代码，忽然想起jdk配置环境变量的方式，于是想到可以用Windows系统环境变量来解决以上问题。在每台Windows机器上配置一个用户环境变量“TARootPath”，供QTP使用，具体的绝对路径只要在TARootPath的值中配置即可。这样一来，只要每台机器配好该值，脚本可以迁移到任何机器上均无需修改即可运行。又或者可以使用Windows固定路径的环境变量值，那就连配置也不需要了。
    查了些文档，实现了以下代码：

Function getWinEnvironment(EnvironmentName)
 Dim oWshShell
 Dim oWshEnvironment
 
 Set ōWshShell = CreateObject("Wscrīpt.Shell")
 Set ōWshEnvironment = oWshShell.Environment("user")
 getWinEnvironment = oWshEnvironment(EnvironmentName)
End Function

    想获取环境变量TARootPath的值可以：

Dim sTARootPath
sTARootPath = getWinEnvironment("TARootPath")

    WshShell对象的方法和属性是Windows脚本中的重要组成部分，还有很多技巧可以应用到自动化测试中。