Monitor Running Process Information
The following script will generate a report of information for the running SQL processes on a server in a text file output.
RunningProcessMonitor.vbs Script
on error resume next
Set iFSO = CreateObject("Scripting.FilesyStemObject")
Set oFSO = CreateObject("Scripting.FilesyStemObject")
Outputfile="RunningProcessInformation.txt"
InputFile="Serverlist.txt"
Set ifile = iFSO.OpenTextFile(inputfile)
Set ofile = ofso.createTextFile(OutputFile, True)
Do until ifile.AtEndOfLine
strComputer = ifile.ReadLine
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery ("Select * from Win32_Service WHERE Name LIKE '%SQL%'")
For Each objProcess in colProcessList
ofile.writeline " Name: " & objProcess.Name
ofile.writeline " Started:" & objProcess.Started
ofile.writeline " Status: " & objProcess.Status
ofile.writeline " State: " & objProcess.State
ofile.writeline " Process ID: " & objProcess.ProcessID
ofile.writeline " Thread Count: " & objProcess.ThreadCount
ofile.writeline " Page File Size: " & objProcess.PageFileUsage
ofile.writeline " Page Faults: " & objProcess.PageFaults
ofile.writeline " Working Set Size: " & objProcess.WorkingSetSize
ofile.writeline ""
Next
Loop
Return to Top You can find the sample ServerList.txt file ServerList.txt. This is article is part of a series on Automating Common DBA tasks in SQL Server. To see the full series see: Automating Common DBA Tasks ___________________________________________________________________________________________________________________ Page Created By: Jonathan Kehayias, Oct 28, 2008
|