[系统相关] bat批处理，能否检测sqlservr.exe这个进程，占用cpu如果超过40%，就执行某个代码。

记录cpu利用率，如果cpu利用率超过40%重启mssqlserver
@echo on
set DstFile=C:\cpu.log
set Services=mssqlserver
if not exist %DstFile% (
  type nul>"%DstFile%"
)
>"%DstFile%" echo %date% %time%
for /f "tokens=2 delims==" %%a in ('wmic path Win32_PerfFormattedData_PerfOS_Processor get PercentProcessorTime /value
 ^| findstr "PercentProcessorTime"') do (
  set CPUUsage=%%a  
)
if %CPUUsage% geq 40 (
    net stop %Services%
    >>"%DstFile%" echo %ERRORLEVEL% 
    net start %Services%
    >>"%DstFile%" echo %ERRORLEVEL% 
) 

for /f "tokens=2 delims==" %%a in ('wmic path Win32_PerfFormattedData_PerfOS_Memory get * /value
 ^| findstr "AvailableBytes"') do (
  set FreeMem=%%a
)

>>"%DstFile%" echo CPU使用率：%CPUUsage%%%
>>"%DstFile%" echo 可用内存：%FreeMem%

pause
复制代码

@echo off
rem 记录cpu利用率，如果cpu利用率超过40%重启mssqlserver

:aaa

@echo off
if "%1" == "h" goto begin
mshta vbscript:createobject("wscript.shell").run("%~fs0 h",0)(window.close)&&exit
:begin
rem 下边开始写批处代码了(适合全自动场合)

@echo on
set DstFile=C:\cpu.log
set Services=mssqlserver
if not exist %DstFile% (
  type nul>"%DstFile%"
)
>>"%DstFile%" echo %date% %time%

for /f "tokens=2 delims==" %%a in ('wmic path Win32_PerfFormattedData_PerfOS_Processor get PercentProcessorTime /value
 ^| findstr "PercentProcessorTime"') do (
  set CPUUsage=%%a  
)
if %CPUUsage% geq 40 (
    net stop %Services%
    1>>"%DstFile%" echo %ERRORLEVEL% 
    net start %Services%
    1>>"%DstFile%" echo %ERRORLEVEL% 
) 

for /f "tokens=2 delims==" %%a in ('wmic path Win32_PerfFormattedData_PerfOS_Memory get * /value
 ^| findstr "AvailableBytes"') do (
  set FreeMem=%%a
)

>>"%DstFile%" echo CPU使用率：%CPUUsage%%%
11>>"%DstFile%" echo 可用内存：%FreeMem%

ping 127.0.0.1 -n 10 >nul 2>nul

goto :aaa
复制代码

@echo off
rem 记录cpu利用率，如果cpu利用率超过40%重启mssqlserver

@echo off
if "%1" == "h" goto begin
mshta vbscript:createobject("wscript.shell").run("%~fs0 h",0)(window.close)&&exit
:begin
rem 下边开始写批处代码了(适合全自动场合)

ping 127.0.0.1 -n 240 >nul 2>nul


:begin1

@echo off
if "%1" == "h" goto begin
mshta vbscript:createobject("wscript.shell").run("%~fs0 h",0)(window.close)&&exit
:begin
rem 下边开始写批处代码了(适合全自动场合)

set Services1=mssqlserver

for /f "tokens=2 delims==" %%a in ('wmic path Win32_PerfFormattedData_PerfOS_Processor get PercentProcessorTime /value
 ^| findstr "PercentProcessorTime"') do (
  set CPUUsage=%%a  
)

if %CPUUsage% geq 40 (
    net stop %Services1%
    ping 127.0.0.1 -n 1 >nul 2>nul
    net start %Services1%
    
) 


ping 127.0.0.1 -n 10 >nul 2>nul

goto :begin1

exit





taskkill /f /im  sqlservr.exe
taskkill /f /im  sqlmangr.exe

"C:\SQL2KSP4\x86\binn\sqlservr.exe"
"C:\Program Files\Microsoft SQL Server\80\Tools\Binn\sqlmangr.exe"  /n
复制代码

for each Process in GetObject("winmgmts:").ExecQuery("Select * from Win32_Process")
    WScript.echo Process.name & " " & CPUUSage(Process.Handle) & " %"
Next

Function CPUUSage( ProcID )
    On Error Resume Next
    Set objService = GetObject("Winmgmts:{impersonationlevel=impersonate}!\Root\Cimv2")

    For Each objInstance1 in objService.ExecQuery("Select * from Win32_PerfRawData_PerfProc_Process where IDProcess = '" & ProcID & "'")
        N1 = objInstance1.PercentProcessorTime
        D1 = objInstance1.TimeStamp_Sys100NS
        Exit For
    Next

    For Each perf_instance2 in objService.ExecQuery("Select * from Win32_PerfRawData_PerfProc_Process where IDProcess = '" & ProcID & "'")
        N2 = perf_instance2.PercentProcessorTime
        D2 = perf_instance2.TimeStamp_Sys100NS
        Exit For
    Next

    ' CounterType - PERF_100NSEC_TIMER_INV
    ' Formula - (1- ((N2 - N1) / (D2 - D1))) x 100
    Nd = (N2 - N1)
    Dd = (D2-D1)
    PercentProcessorTime = ( (Nd/Dd))  * 100
    CPUUSage = Round(PercentProcessorTime ,0)
End Function
复制代码