@echo off
set "str=星期五 2013-12-06"
REM set "str=2013-12-06 星期五"
set mydate=%str:* =%
if %mydate% gtr 9 (
    echo %str:~0,10%
) else (
    echo %mydate%
)
pause
复制代码

@echo off &color 0a &setlocal enabledelayedexpansion
pushd "%cd%"
rem 设置变量
set Tm=300
:main
rem 初始化统计次数，每次循环都初始化，如果不需要，就放在 :main 标记前面
set /a "a=b=c=d=e=f=g=h=i=j=0"
rem 生成资源文件
sures sures >sures.txt
if not exist sures.txt (msg %username% /time:5 "错误！！未找到 sures.txt 文件！！！" &call exit)
rem 生成agent资源使用情况统计文件
if not exist "agent.txt" (echo.日期		   时间		 机器名		 Agent使用数量/Agent空余数量)>"%computername%_agent.txt"
for /f "delims=" %%a in ('findstr /i /c:"_12     RES IN USE" "sures.txt" 2^>nul') do (set /a "a+=1")
for /f "delims=" %%a in ('findstr /i /c:"_12  RES AVAILABLE" "sures.txt" 2^>nul') do (set /a "b+=1")
(echo.!date!  !time!   %computername%   !a!^/!b!)>>"%computername%_agent.txt"
type "%computername%_agent.txt"
rem 生成电话资源使用情况统计文件
if not exist "telephony.txt" (echo.日期		   时间		 机器名		 电话使用数量/电话空余数量)>"%computername%_telephony.txt"
for /f "delims=" %%a in ('findstr  /rc:"INLINE.*_8     RES IN USE" "sures.txt" 2^>nul') do (set /a "c+=1")
for /f "delims=" %%a in ('findstr  /rc:"INLINE.*_8  RES AVAILABLE" "sures.txt" 2^>nul') do (set /a "d+=1")
(echo.!date!  !time!   %computername%   !c!^/!d!)>>"%computername%_telephony.txt"
type "%computername%_telephony.txt"
rem 生成动态库使用情况统计文件
if not exist "ntdll.txt" (echo.日期		   时间		 机器名		 动态库使用数量/动态库空余数量)>"%computername%_ntdll.txt"
for /f "delims=" %%a in ('findstr /i /c:"_15     RES IN USE" "sures.txt" 2^>nul') do (set /a "e+=1")
for /f "delims=" %%a in ('findstr /i /c:"_15  RES AVAILABLE" "sures.txt" 2^>nul') do (set /a "f+=1")
(echo.!date!  !time!   %computername%   !e!^/!f!)>>"%computername%_Ntdll.txt"
type "%computername%_ntdll.txt"
rem 生成数据库使用情况统计文件
if not exist "database.txt" (echo.日期		   时间		 机器名		 数据库使用数量/数据库空余数量)>"%computername%_database.txt"
for /f "delims=" %%a in ('findstr /i /c:"_4     RES IN USE" "sures.txt" 2^>nul') do (set /a "g+=1")
for /f "delims=" %%a in ('findstr /i /c:"_4  RES AVAILABLE" "sures.txt" 2^>nul') do (set /a "h+=1")
(echo.!date!  !time!   %computername%   !g!^/!h!)>>"%computername%_database.txt"
type "%computername%_database.txt"
rem 生成SOAP使用情况统计文件
if not exist "soap.txt" (echo.日期		   时间		 机器名		 SOAP使用数量/SOAP空余数量)>"%computername%_soap.txt"
for /f "delims=" %%a in ('findstr /i /c:"_50     RES IN USE" "sures.txt" 2^>nul') do (set /a "i+=1")
for /f "delims=" %%a in ('findstr /i /c:"_50  RES AVAILABLE" "sures.txt" 2^>nul') do (set /a "j+=1")
(echo.!date!  !time!   %computername%   !i!^/!j!)>>"%computername%_soap.txt"
type "%computername%_soap.txt"
ping localhost -n %TM% >nul
cls &goto :main
复制代码

@echo off &color 0a &setlocal enabledelayedexpansion
title 资源监视
Rem 格式化date
for /f "tokens=1,2" %%a in ("%date%") do (echo.%%a | findstr "星期" >nul &&set "date=!date: *=!" ||set "date=!date: 星期*=!")
pushd "%cd%"
rem 设置变量 Tm=循环时间，ds=创建监视进程偏移行数，tsk=任务偏移行数，谨慎修改！！！！！
set /a "Tm=300","ds=27","tsk=35"
:main
rem 生成资源文件
sures sures >sures.txt
if not exist sures.txt (msg %username% /time:5 "错误！！未找到 sures.txt 文件！！！" &call exit)
for /f "tokens=1,2,3 delims==" %%a in ('more "%~f0" +%tsk%') do (
  set /a "i=0","j=0"
  set "name=%%a" &set "tk1=%%b" &set "tk2=%%c"
  if not exist "%computername%_!name!.txt" (echo.日期	时间	机器名	!name!使用数量^/!name!空余数量)>"%computername%_!name!.txt"
  for /f "delims=" %%1 in ('findstr /i /c:"!tk1!" "sures.txt" 2^>nul') do (set /a "i+=1")
  for /f "delims=" %%1 in ('findstr /i /c:"!tk2!" "sures.txt" 2^>nul') do (set /a "j+=1")
  (echo.!date!  !time!   %computername%   !i!^/!j!)>>"%computername%_!name!.txt"
  Rem 创建监视进程命令
  if not exist "!name!.bat" ((more "%~f0" +!ds!)>"!name!.bat" )
  Rem 运行监视进程命令
  (tasklist /v | findstr /I "cmd.exe") | findstr /i "!name!" >nul || start "" "!name!.bat"
)
ping localhost -n %Tm% >nul
cls &goto :main

Rem 监视进程命令
@echo off &color 0a
title %~n0
:ds
type "%computername%_%~n0.txt"
ping localhost -n 30 >nul
cls &goto :ds

Rem Tsk 任务
Agent=_12     RES IN USE=_12  RES AVAILABLE
Telephony=INLINE.*_8     RES IN USE=INLINE.*_8  RES AVAILABLE
Ntdll=_15     RES IN USE=_15  RES AVAILABLE
Datebase=_4     RES IN USE=_4  RES AVAILABLE
Soap=_50     RES IN USE=_50  RES AVAILABLE
复制代码

@echo off &color 0a &setlocal enabledelayedexpansion
pushd "%cd%"
:main
sures sures >sures.txt
for /f "tokens=1,2,3,4 delims==" %%a in (config.txt) do (
  set /a "i=0","j=0"
  set "name=%%a" &set "tk1=%%b" &set "tk2=%%c" &set "t=%%d"
  if not exist "%computername%_!name!.txt" (echo.data   time     computername    !name!^<Inuse^>^/^<Available^>)>"%computername%_!name!.txt"
  for /f "delims=" %%1 in ('findstr /i /c:"!tk1!" "sures.txt" ^>nul 2^>nul') do (set /a "i+=1")
  for /f "delims=" %%1 in ('findstr /i /c:"!tk2!" "sures.txt" ^>nul 2^>nul') do (set /a "j+=1")
  (echo.%date:~0,10%   %time:~0,8%   %computername%   !i!^/!j!)>>"%computername%_!name!.txt"
)
ping localhost -n %t% >nul 2>nul
cls &goto :main
复制代码

@echo off &color 0a
title %~n0
set /a "t=10"
:ds
type "%computername%_%~n0.txt"
ping localhost -n %t% >nul 2>nul
cls &goto :ds
复制代码