varbinary to file sql server 2008 R2

declare @IMG varbinary(max)
declare @FileName varchar(max)
declare @ObjectToken INT

set @IMG=(select Binarydata from File_T where ID=3)
--SET @FileName = 'd:\' + replace(replace(replace(replace(convert(varchar,getdate(),121),'-',''),':',''),'.',''),' ','') + '.pdf'
set @FileName='d:\Image1.pdf'
      
       

        EXEC sp_OACreate 'ADODB.Stream', @ObjectToken OUTPUT
        EXEC sp_OASetProperty @ObjectToken, 'Type', 1
        EXEC sp_OAMethod @ObjectToken, 'Open'
        EXEC sp_OAMethod @ObjectToken, 'Write', NULL, @IMG
        EXEC sp_OAMethod @ObjectToken, 'SaveToFile', NULL, @FileName, 2
        EXEC sp_OAMethod @ObjectToken, 'Close'
        EXEC sp_OADestroy @ObjectToken