Basic FrameWork:Basic FSO

Function Cleanup()
Systemutil.CloseDescendentProcesses
Systemutil.CloseProcessByName("chrome.exe")

End Function


Function CreateFolder(strFolderName)
    Set ObjFSO=CreateObject("Scripting.FileSystemObject")
If Not ObjFSO.FolderExists(strFolderName)  Then

ObjFSO.CreateFolder(strFolderName)


End If
Set ObjFSO=Nothing

End Function

'Function OpenFileForWriting(strFilename)
'    Set ObjFSO=CreateObject("Scripting.FileSystemObject")
'     ObjFSO.Op
'
'
' End If
'Set ObjFSO=Nothing
'
'End Function
'




Function GetExecutionTime(StartTime,EndTime)
'@ Description : This will get the execution time
' This function is called by Class_Terminate

'Seperate hours, minutes and seconds
StartHour = Hour(StartTime)
StartMin = Minute(StartTime)
StartSec = Second(StartTime)
EndHour = Hour(EndTime)
EndMin = Minute(EndTime)
EndSec = Second(EndTime)

'Convert all in to seconds
StartingSeconds = (StartSec + (StartMin * 60) + (StartHour * 3600))
EndingSeconds = (EndSec + (EndMin * 60) + (EndHour * 3600))

'Use subtraction to know the execution time
GetExecutionTime = EndingSeconds - StartingSeconds
End Function





Function CreateFile(strFileName)
    Set ObjFSO=CreateObject("Scripting.FileSystemObject")
If Not ObjFSO.fileExists(strFileName)  Then

ObjFSO.CreateTextFile(strFileName)
Set ObjFSO=Nothing

End If

End  Function

Function ReportEvent(EventType,EventDescription)

If EventType="PASS" Then



End If

If EventType="FAIL" Then


End If


If EventType="DONE" Then


End If

End Function