Inserting comments along with name of the script in excel

[Prashanth]

Hi All,
I am running qtp scripts in batch mode using the following code,

Now i want to insert description of that particular scenario along with its name

Currently using below code:

Code:

set qtp = CreateObject("Quicktest.Application")
qtp.Launch
qtp.visible = True
call moduledriver("EXECUTABLEFOLDER")
qtp.quit

'Aim : Gets folders and subfolders and runs test scripts
'********************************************************

Code:

Function moduledriver(modulename)

set fso = createobject("Scripting.FilesyStemObject")
set module= fso.getfolder("D:\Sanity\"&modulename)
set folders=module.subfolders
i=2
for each tmp in folders
testname = tmp.name

qtp.open tmp.path
qtp.test.run
res=qtp.test.lastrunresults.status
'ts = replace (replace(now,"/","_"),":","_")
t1=time
t2=date
call writeresults(modulename,i,testname,res,t1,t2)
i=i+1
next
end function

'Aim :To writes result in excel sheet
'*************************************************************************

Code:

'function writeresults(modulename,rowno,testname,res,t1,t2)
'set xl= CreateObject("Excel.Application")
'set wb = xl.workbooks.open("D:\Sanity\Sanity_Result\Results.xls")

'ts = replace (replace(now,"/","_"),":","_")
'wb.saveas "D:\Sanity\Sanity_Result\Results"&ts
'set ws= wb.worksheets(modulename)
'ws.cells(rowno,1) = testname
'ws.cells(rowno,2)= res
'ws.cells(rowno,3)= t1
'ws.cells(rowno,4)= t2
'wb.close
'xl.quit
'end function

function writeresults(modulename,rowno,testname,res,t1,t2)
set xl= CreateObject("Excel.Application")
set wb = xl.workbooks.open("D:\Sanity\Sanity_Result\Results.xls")
set ws= wb.Sheets("Sanity_TestSuite")
wsrange=ws.UsedRange.Rows.Count
'msgbox(wsrange)
ws.cells(wsrange+1,1) = testname
ws.cells(wsrange+1,2)= res
ws.cells(wsrange+1,3)= t1
ws.cells(wsrange+1,4)= t2
wb.Save

wb.close
xl.quit
end function

********************************************************

Please suggest me with other piece of code.

Regards,
Prashanth.