中国DOS联盟

dir /s /b /a-d /o-d "C:\Program Files\Tencent\QQ*qqstatcount.dat"

@echo off
setlocal enabledelayedexpansion
rem 请根据QQ实际路径进行修改或者自行添加自动获取QQ路径的功能模块
rem 自动获取QQ路径的几种方法：读注册表、全盘搜索、获取进程信息等
set QQPath=C:\Program Files\Tencent\QQ\
tasklist /nh /fi "imagename eq QQ.exe" 2>nul|findstr /i "QQ.exe">nul||goto :NoQQ
for /f %%a in ('dir /b /ad /o-d "%QQPath%"^|findstr "^[1-9][0-9]*$"') do (
  for /f "delims=" %%h in ('dir /s /b "%QQPath%%%a\qqstatcount.dat"') do (
    set LastModify=%%~th
    rem 如果某个在线的QQ长期不活动，可能无法获得其号码。
    if "!LastModify:~0,13!"=="!date:~0,10! !time:~0,2!" (
      echo 本机正在运行的QQ号：%%a [!LastModify!]
    )
  )
)
goto :end
:NoQQ
echo 本机没有QQ在运行
:end
pause