请教各位哥哥姐姐，关于WScript.Shell的问题

skyhen

Dim WshShell, WshEnv
Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshEnv = WshShell.Environment("PROCESS")
WshEnv("TestVar") = "Windows Script Host"
WScript.Echo WshShell.ExpandEnvironmentStrings("The value of the test variable is: '%TestVar%'")
WshEnv.Remove "TestVar"
WScript.Echo WshShell.ExpandEnvironmentStrings("The value of the test variable is: '%TestVar%'")
我看了HELP文件中，我将以上代码放到QTP中，进行回放，系统提示找不到
WScript.Shell这个文件。请问这是怎么回事啊。
请各位哥哥姐姐指导一下，谢谢。

seachild

QTP使用的脚本语言是VBS，但它的脚本不等同于一般VBS文件。你看到那个是QTP里面的VBS的帮助。并不是VBS里面所有东西QTP都能直接支持。

skyhen

那我要通过怎样的方法才能使用它呢，请seachild 给小弟一点指导，小弟先在这里谢谢了。

fishwwww

Dim WshShell, WshEnv
Set WshShell = CreateObject("WScript.Shell")
Set WshEnv = WshShell.Environment("PROCESS")
WshEnv("TestVar") = "Windows Script Host"
msgbox WshShell.ExpandEnvironmentStrings("The value of the test variable is: '%TestVar%'")