SQL Server

VBScript to Display DBCC INPUTBUFFER

Posted on November 25, 2005September 27, 2015 by WARDY IT Solutions

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 IfSet QueryResult = Nothing

End Function

~~~

WARDY IT Solutions

WARDY IT Solutions - Australia's leading SQL Server consultants, trainers and Business Intelligence specialists. WARDY IT Solutions has established itself amongst the top solution providers in SQL Server technologies providing solutions for customers throughout Asia Pacific.