Script for turning all traces off

Please do somebody have made a script to turn all traces off at once? Thank you.

– Disables logging workflow trace:
use [project_model]
update schemaitem set i01 = 0 where itemtype = ‘Workflow’
update schemaitem set i01 = 1 where itemtype = ‘WorkflowTask’

– Deletes all the records logged so far:
use [project_data]
truncate table AsapTraceWorkflowstep
delete from AsapTraceWorkflow


Thank you. All states are:
0 None
1 InheritFromParent
2 TraceArchitect
3 TraceClientAndArchitect