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
————– ———- ———————-
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”)
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 IfSet QueryResult = Nothing
If (QueryResult.Rows <> 1) Then
InputBuffer = “”
Else
InputBuffer = QueryResult.GetColumnString(1, 3)
End IfSet QueryResult = Nothing
End Function
~~~