Function Main()

	Dim FileName
	FileName = DTSGlobalVariables( "OutputFileFullName" ).Value

	Dim fso
	Set fso = CreateObject( "Scripting.FileSystemObject" )
	If (fso.FileExists(FileName)) Then
		fso.DeleteFile FileName, TRUE
	End If

	If (fso.FileExists(FileName)) Then
		Main = DTSTaskExecResult_Failure
	Else
		Dim objXL
		Set objXL = CreateObject( "Excel.Application" )

		objXL.Visible = FALSE
		objXL.WorkBooks.Add

		Dim SheetsCnt
		Set SheetsCnt = objXL.WorkBooks( 1 ).Sheets
		While SheetsCnt.Count >  1 
			objXL.WorkBooks( 1 ).Sheets(SheetsCnt.Count).Delete
		Wend

		objXL.WorkBooks( 1 ).Sheets( 1 ).Activate()
		objXL.WorkBooks( 1 ).SaveAs(FileName)
		objXL.Quit
		Set objXL = Nothing

		If (fso.FileExists(FileName)) Then
			Main = DTSTaskExecResult_Success
		Else
			Main = DTSTaskExecResult_Failure
		End If
	End If
End Function

DECLARE @FileName varchar( 255 ), 
@Text1 varchar( 8000 ),
@FS int, 
@OLEResult int, 
@FileID int, 
@hr int,
@source varchar( 30 ), 
@desc varchar ( 200 )

EXECUTE @OLEResult = sp_OACreate 'Scripting.FileSystemObject', @FS OUTPUT

IF @OLEResult <>  0  
BEGIN
PRINT 'Scripting.FileSystemObject'
GOTO Error_Handler
END

execute @OLEResult = sp_OAMethod @FS,'CreateTextFile',@FileID OUTPUT, 'c:\func.txt'
IF @OLEResult <>  0  
BEGIN
PRINT 'CreateTextFile'
GOTO Error_Handler
END

execute @OLEResult = sp_OAMethod @FileID, 'WriteLine', NULL, 'dsfgsdfgsdf'
IF @OLEResult <>  0  
BEGIN
PRINT 'WriteLine'
GOTO Error_Handler
END

Print @Text1
goto Done

Error_Handler: 
PRINT '*** ERROR ***'
EXEC @hr = sp_OAGetErrorInfo null, @source OUT, @desc OUT
SELECT hr = CONVERT (binary( 4 ), @hr), source = @source, description = @desc

Done:
EXECUTE @OLEResult = sp_OADestroy @FileID
EXECUTE @OLEResult = sp_OADestroy @FS