The VBScript code snippet below uses SQLDMO to read the EventInfo column from DBCC INPUTBUFFER for a specified SPID:
ie. Read the EventInfo as illustrated below:
DBCC INPUTBUFFER(53)
EventType Parameters EventInfo
-------------- ---------- ----------------------
Language Event 0 sp_who2
(1 row(s) affected)
~~~
Dim SQLServer
Set SQLServer = CreateObject("SQLDMO.SQLServer")
SQLServer.LoginSecure = True
SQLServer.Connect("127.0.0.1\test")
' Display the InputBuffer EventInfo
MsgBox InputBuffer(53, SQLServer)
SQLServer.DisConnect
Set SQLServer = Nothing
Function InputBuffer(spid, SQLServer)
Dim QueryResult
Set QueryResult = SQLServer.ExecuteWithResults("dbcc inputbuffer(" & spid & ")")
If (QueryResult.Rows <> 1) Then
InputBuffer = ""
Else
InputBuffer = QueryResult.GetColumnString(1, 3)
End If
Set QueryResult = Nothing
End Function
~~~