Here's another twist on the same script

USE MASTER

Go

SELECT cr.DatabaseName

,s.session_id, s.host_name, s.program_name, s.client_interface_name, s.login_name

,s.nt_domain, s.nt_user_name, c.client_net_address, c.local_net_address

,cr.ObjName

,cr.Query

FROM sys.dm_exec_sessions as s

INNER JOIN sys.dm_exec_connections as c

ON c.session_id = s.session_id

CROSS APPLY (SELECT db_name(dbid) AS DatabaseName,object_id(objectid) AS ObjName,ISNULL((SELECT text AS [processing-instruction(definition)]

FROM sys.dm_exec_sql_text(c.most_recent_sql_handle)

FOR XML PATH(''), TYPE

),'') as Query

FROM sys.dm_exec_sql_text(c.most_recent_sql_handle)) cr

ORDER BY c.session_id