declare @file_name varchar( 255 ),@text varchar( 8000 ),

@FS int, 
@OLEResult int, 
@FileID int, 
@hr int,
@source varchar( 30 ), 
@desc varchar ( 200 )


set @file_name ='D:\nas\data\test\test.txt'
set @text='line#1'+space( 4 )

print @text

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

IF @OLEResult <>  0  
BEGIN
GOTO OLE_Error_Handler
END

execute @OLEResult = sp_OAMethod @FS,'CreateTextFile',@FileID OUTPUT, @file_name
IF @OLEResult <>  0  
BEGIN
GOTO OLE_Error_Handler
END

execute @OLEResult = sp_OAMethod @FileID, 'WriteLine', NULL, @text
IF @OLEResult <>  0  
BEGIN
GOTO OLE_Error_Handler
END

EXECUTE @OLEResult = sp_OADestroy @FileID
EXECUTE @OLEResult = sp_OADestroy @FS

goto Done


OLE_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
print 'done'

GO