czjt1234

Set oWMI = GetObject("Winmgmts:\\.\Root\Cimv2")
Set oSWbemObjectSet = oWMI.InstancesOf("Win32_OperatingSystem")
For Each oSWbemObject In oSWbemObjectSet
    Wsh.Echo oSWbemObject.FreePhysicalMemory
    Wsh.Echo oSWbemObject.TotalVisibleMemorySize
Next
复制代码

vbs可以不？
实在要批处理读取，可以再加个批处理

@echo off
CScript.exe /nologo D:\test.vbs
pause
复制代码

czjt1234

没有win2000环境，也不知道支持vbs和wmi不

mem 命令显示有关已使用和可用内存区域以及当前加载到 MS-DOS 子系统内存中的程序的信息
mem 命令可用于 MS-DOS 以及所有 32 位版本的 Windows
mem 命令在 64 位版本的 Windows 中不可用

czjt1234

回复 10# wins


    你确定vbs可以运行，还是mem命令可以运行？

czjt1234

Set oWMI = GetObject("Winmgmts:\\.\Root\Cimv2")
Set oSWbemObjectSet = oWMI.InstancesOf("Win32_OperatingSystem")
For Each oSWbemObject In oSWbemObjectSet
    Wsh.Echo oSWbemObject.FreePhysicalMemory, oSWbemObject.TotalVisibleMemorySize
Next
复制代码

@echo off
for /f "tokens=1,2 delims= " %%i in ('CScript.exe /nologo D:\test.vbs') do (
    set a=%%i
    set b=%%j
)
pause
复制代码