截图本地环境

testDir = Environment.Value("TestDir")
testName = Environment.Value("TestName")
actionName = Environment.Value("ActionName")
dateArrary = Split(Date,"/")
vDate = dateArrary(0)&dateArrary(1)&dateArrary(2)
print vDate
filepath = testDir&"\"&testName&"_"&"_"&actionName&"_"&vDate&".png"
print filepath
Desktop.CaptureBitmap filepath,true
Reporter.ReportEvent micPass,"enviroment","截图演示",filepath