Closing Excel instance by VBScript

We have a test suite for Excel plug-in. Silktest built-in function does not work for Excel 2007. It is working fine for Excel 2003. Silktest is unable to close the Excel 2007 instance. We used Taskkill to kill the excel. It has created few other issues. I was looking for alternative solution. So I decided to write a vb script and got success. I have given the code below.

VBS code - To close Excel

 
'-------------------------------------------------------------------------
' File     :   CloseExcel.vbs
' Author    :   Palani
' Purpose   :   To close the excel, if it is already opened.
'
'' Revision History:
''$Log: CloseExcel.vbs,v $
''
'-------------------------------------------------------------------------
'' Usage
'' cscript D:\rpm_scripts_palani\tools\CloseExcel.vbs
'' cscript CloseExcel.vbs


'******** Variables Declaration
Dim gsLogFile

'******** Function calls
call CloseExcelApps ()


'--------------------------------------
' Method    :   CloseExcelApps
' Author    :   T. Palani Selvam
' Purpose   :   Close Excel application.
' Parameters:   - Nil
' Returns   :   - Nil
' Caller    :   - Nil
' Calls     :   - Nil
'--------------------------------------
Sub CloseExcelApps()
 Dim sExcelPath 'As Variant  'Excel file
 '********** Excel object declaration **********'
  ' Excel Application object
 Dim objExcel 'As Excel.Application
 Dim objExcel2 'As Excel.Workbooks
 Dim objXLWorkbook 'As Excel.Workbook


 On Error Resume Next

 Set objExcel = GetObject(,"Excel.Application")
 If Not (IsNull(objExcel) Or IsEmpty(objExcel)) Then
  WScript.Echo ("Excel application instance Exists..") 
  'Set objXLWorkbook = objExcel.ActiveWorkbook

  'You can set this property to True if you want to close a modified workbook 
  'without either saving it or being prompted to save it.

  objExcel.ActiveWorkbook.Saved = True
  objExcel.ActiveWorkbook.Close
  objExcel.Application.Quit

  'objExcel.Worksbooks.Close
  'objExcel.Quit

  Set objExcel = Nothing
  Set objExcel2 = GetObject(,"Excel.Application")
  If Not (IsNull(objExcel2) Or IsEmpty(objExcel2)) Then
   Set objExcel2 = Nothing
   WScript.Echo ("FAIL. Excel application is not closed properly.") 
  Else 
   WScript.Echo ("PASS. Successfully closed Excel application.") 
  End If 
  WScript.Echo ("End - Closing excel application instance.") 
 else
  WScript.Echo ("Excel application instance does not exist!....") 
 End If
End Sub