【内建环境变量取脚本所在目录】
Dim testername,scriptpath,scriptname
Dim osname,osversion
Dim path
testername=environment.Value("UserName")'Sharing Yang
scriptpath=environment.Value("TestDir")'F:\qtp_12test\GUITest5
scriptname=environment.Value("TestName")'GUITest5
osname=environment.Value("OS")'Microsoft Windows 7 工作站
osversion=environment.Value("OSVersion")'6.1.7601
msgbox testername&