[数值计算] [已更新]cmd指令执行效率简易测试工具

'CPU 基准测试+信息查询，好玩又防奸商，去电脑城选电脑带上一个吧！CPU信息一目了然。
'CPUtest.vbs BY: fastslz   http://bbs.cn-dos.net  http://bbs.bathome.net
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set CPUs = objWMIService.InstancesOf("Win32_Processor")
Set Caches = objWMIService.InstancesOf("Win32_CacheMemory")
For Each ObjCache In Caches
    Select Case objCache.Level
    case 3
    aUsage = "一级缓存: " & objCache.MaxCacheSize & "KB    (一级数据＋L1缓存)"
    case 4
    aUsage = aUsage & vbCrLf & "二级缓存: " & objCache.MaxCacheSize & "KB"
    case 5
    aUsage = aUsage & vbCrLf & "三级缓存: " & objCache.MaxCacheSize & "KB"
    End Select
Next
For Each ObjCPU In CPUs
Usage = "CPU 名称: " & ltrim(ObjCPU.Name)               & Chr(9) & vbCrLf _
      & "CPU 构架: " & ObjCPU.Description               & vbCrLf _
      & "制造厂商: " & ObjCPU.Manufacturer              & vbCrLf _
      & "接口规格: " & ObjCPU.SocketDesignation         & vbCrLf _
      & "核心数量: " & ObjCPU.NumberOfCores             & vbCrLf _
      & "地址位宽: " & ObjCPU.AddressWidth & " Bit"     & vbCrLf _
      & "数据位宽: " & ObjCPU.DataWidth & " Bit"        & vbCrLf _
      & "CPU 电压: " & ObjCPU.CurrentVoltage / 10 & "V" & vbCrLf _
      & "主频速度: " & ObjCPU.CurrentClockSpeed & "MHZ" & vbCrLf _
      & "总线速度: " & ObjCPU.ExtClock & "MHZ"          & vbCrLf & aUsage
Next
If (Lcase(Right(Wscript.FullName,11)) = "wscript.exe") Then
    MsgBox Usage , vbInformation ,"CPU 基准测试"
    Else
    WScript.Echo Usage
End If
Dim I,T1,T2,Tempvalue,aRunTime,bRunTime
    T1 = Timer()
    For I = 1 To 2000000
        Tempvalue= 2^0.5
    Next
    T2 = Timer()
    aRunTime = FormatNumber((T2-T1)*1000,2)
NumMsg = "CPU 200万次开方计算所需时间：" &aRunTime&" 毫秒" &Chr(9)

    T1 = Timer()
    For I = 1 To 6000000
        Tempvalue= 1 + 1
    Next
    T2 = Timer()
    bRunTime = FormatNumber((T2-T1)*1000,2)
NumMsg =  NumMsg & vbCrLf & "CPU 600万次加法计算所需时间："&bRunTime&" 毫秒" &Chr(9)
If (Lcase(Right(Wscript.FullName,11)) = "wscript.exe") Then
    MsgBox NumMsg , vbInformation ,"CPU 基准测试"
    Else
    WScript.Echo NumMsg
End If
复制代码

Microsoft Windows XP [版本 5.1.2600]
Genuine Intel(R) CPU           T1600  @ 1.66GHz
NUMBER_OF_PROCESSORS=2

"rem" : 366678.1 (Hz)
"shift" : 139301.5 (Hz)
"if a==b 命令" : 145857.1 (Hz)
"@echo off" : 116761.1 (Hz)
"break" : 107383.2 (Hz)
"popd" : 108809.0 (Hz)
"set a=1" : 70921.9 (Hz)
复制代码

rem >>  if a==b 命令 >> shift >> @echo off >> break >> set a=1
复制代码

:: cff "命令名"; "命令名"; ...
:: 举例：
::         cff "set var=^!random^!"
::         cff "call set a=1"; "call set/a a=1"; "set/a a=1"
::         cff "for /f %a in ("abcdef")do set str=%a"
复制代码

:: cmd 命令执行效率测试，保存为cff.bat于windows目录下，
:: 命令行调用格式：
::                 cff "命令名"; "命令名"; ...
:: Version: 1.1; Code by plp; Thanks to: fastslz, batchar
@ECHO off&setlocal EnableDelayedExpansion&call:getinf
echo ------------ CMD指令测试 -------------
:beg
set/a $lp=random%%5+1&set "cmd=%~1"
:begin
Set $time1=%time%
for /l %%@ in (1 1 %$lp%)do %cmd%
Set $time2=%time%
call:etime $time1 $time2 $t12
if !$t12! leq 20 set/a $lp=$lp*2+5&goto:begin
set/a $cff=$lp*100/$t12,$r=$lp*100%%$t12*10/$t12
call:print
if %2. neq . shift&goto:beg
goto:eof

:etime <beginTime_VarName> <endTime_VarName> <retVar>
Set/a "%3=(!%2:~,2!-!%1:~,2!)*360000+(1!%2:~3,2!-1!%1:~3,2!)*6000+1!%2:~-5,2!!%2:~-2!-1!%1:~-5,2!!%1:~-2!,%3+=-8640000*(%3>>31)"&goto:eof
:getinf 获取版本信息和CPU信息
ver&wmic cpu get name|find "CPU"
set NUMBER_OF_PROCESSORS&goto:eof
:print 格式化输出
set "prt="!cmd!"                                  "
set $cf=      !$cff!.!$r!&set $cf=!$cf:~-8! Hz
if !cmd:~37!. neq . (echo "!cmd!" @ !$cf!)else (
    echo !prt:~0,37! @ !$cf!
)
复制代码

cd.>f.t&cd.>g.t
cff "set a=1" "set a=^!random:~2,1^!"; "set a=^!random:2=#^!"; "set abcd12345678901234567890=$$"; "call set a=1234567890"; "call set/a a=2" "call set f=%%a%%"; popd "setlocal&endlocal"; "if a==0 ?"; "for %a in (1)do set b=%a"; "for /f %a in ("1")do set b=%a"; "ver>nul"; "echo off>a.t" "echo.>b.t 4>a.t" "echo.>b.t" "if exist xxxx.txt ?"; "for %a in (#.txt)do set x=%a"; rem; "copy/b f.t+g.t f.t>nul"; "copy f.t+g.t f.t>nul" shift
复制代码

Microsoft Windows XP [版本 5.1.2600]
Genuine Intel(R) CPU           T1600  @ 1.66GHz
NUMBER_OF_PROCESSORS=2
------------ CMD指令测试 -------------
"set a=1"                             @  70202.8 Hz
"set a=!random:~2,1!"                 @  40943.3 Hz
"set a=!random:2=#!"                  @  37221.2 Hz
"set abcd12345678901234567890=$$"     @  55843.1 Hz
"call set a=1234567890"               @    275.7 Hz
"call set/a a=2"                      @   6124.0 Hz
"call set f=%%a%%"                    @    275.7 Hz
"popd"                                @ 102379.1 Hz
"setlocal&endlocal"                   @   2461.2 Hz
"if a==0 ?"                           @ 136519.4 Hz
"for %a in (1)do set b=%a"            @  43867.8 Hz
"for /f %a in ("1")do set b=%a"       @  43867.8 Hz
"ver>nul"                             @   6124.0 Hz
"echo off>a.t"                        @   2631.0 Hz
"echo.>b.t 4>a.t"                     @   1263.3 Hz
"echo.>b.t"                           @   1804.7 Hz
"if exist xxxx.txt ?"                 @   6959.0 Hz
"for %a in (#.txt)do set x=%a"        @  39622.5 Hz
"rem"                                 @ 351067.8 Hz
"copy/b f.t+g.t f.t>nul"              @    748.0 Hz
"copy f.t+g.t f.t>nul"                @    692.5 Hz
"shift"                               @ 140420.0 Hz
复制代码

:: cmd 命令执行效率测试，保存为cff.bat于windows目录下，
:: 命令行调用格式：
::                 cff "命令名"; "命令名"; ...
:: Version: 1.11; Code by plp; Thanks to: fastslz, batchar
@ECHO off&setlocal EnableDelayedExpansion&call:getinf
echo ------------ CMD指令测试 -------------
:beg
if "%~1"=="" goto:eof
:: 比较纳闷的这句，在win7下改为 if %1.==. goto:eof 会出错！！
set/a $lp=random%%5+1&set "cmd=%~1"
:begin
Set $time1=%time%
for /l %%@ in (1 1 %$lp%)do %cmd%
Set $time2=%time%
call:etime $time1 $time2 $t12
if !$t12! leq 20 set/a $lp=$lp*2+5&goto:begin
set/a $cff=$lp*100/$t12,$r=$lp*100%%$t12*10/$t12
call:print & shift& goto:beg

:etime <beginTime_VarName> <endTime_VarName> <retVar>
Set/a "%3=(!%2:~,2!-!%1:~,2!)*360000+(1!%2:~3,2!-1!%1:~3,2!)*6000+1!%2:~-5,2!!%2:~-2!-1!%1:~-5,2!!%1:~-2!,%3+=-8640000*(%3>>31)"&goto:eof
:getinf 获取版本信息和CPU信息
ver&wmic cpu get name|find "CPU"
set NUMBER_OF_PROCESSORS&goto:eof
:print 格式化输出
set "prt="!cmd!"                                  "
set $cf=      !$cff!.!$r!&set $cf=!$cf:~-8! Hz
if !cmd:~37!. neq . (echo "!cmd!" @ !$cf!)else (
    echo !prt:~0,37! @ !$cf!
)
复制代码

cff.bat "rem";"break";"popd";"set var=^!random^!";"call set a=1";"for /f %a in ("abcdef")do set str=%a";"setlocal&endlocal";"find /?>nul";"findstr /?>nul"
复制代码

@echo off
for /f "delims=" %%i in ('wmic cpu get name^,AddressWidth^,NumberOfCores^,NumberOfLogicalProcessors /Value') do set "%%i">nul
echo %Name%
echo 核芯数 %NumberOfCores%
echo 线程数 %NumberOfLogicalProcessors%
echo %AddressWidth% Bit
ver
复制代码