'Create the html path 'store it in a test results folder
 
sFile=Reporter.ReportPath & "StepsToRecreate.html"
'Create the HTMl file
 
Set FSO=CreateObject("Scripting.FileSystemObject") Set file1=FSO.CreateTextFile(sFile,True) file1.Write "<p><B>Step 1</B> Launch www.gmail.com" file1.Write "<p><B>Step 2</B> Enter Username xyz" file1.Write "<p><B>Step 3</B> Enter password as pqr " file1.Write "<p><B>Step 4</B> Click on Login button" file1.Write "<p><B>Step 5</B> Check Mail" file1.Write "<p><B>Step 6</B> Close the Browser" file1.close
 
'Insert the above file as a IFRAME in the report
 
sHTML="<IFrame width=""100%""height=260 src=""file:///" & sFile & """></IFRAME>&gt;" Reporter.ReportEvent micpass,"Steps to Recreate",sHTML
'Clean up
Set file1=Nothing Set FSO= Nothing