Shrink DB Log file in SQL Server 2008

USE DatabaseName 
Go 

--Get DB/LOG fileid and name
SELECT file_id, name
FROM sys.database_files;
GO


--Check if there is old active transaction preventing shrinking db log
DBCC OPENTRAN (DatabaseName) WITH TableResults
GO 
--Change Recovery Mode from Full to Simple
ALTER DATABASE DatabaseName SET RECOVERY SIMPLE WITH No_Wait

DBCC SHRINKFILE('Database_log',1)

--Change Recovery Mode from Simple back to Full
ALTER DATABASE DatabaseName SET RECOVERY FULL WITH No_Wait