**************Scripting********************************************************
Set obj=CreateObject("Scripting.Dictionary")
Set obj=CreateObject("Scripting.FileSystemObject")
****************WScript*********************************************************
Set obj=CreateObject("WScript.Shell")
**************Excel**************************************************************
Set obj=CreateObject("Excel.Application")
***********************************************************************************
Set obj=descrption.create