Fantastish, есть вот такой код
Код:
@Echo off
setlocal enableextensions enabledelayedexpansion
set cdtime=%date:~-10%
if not exist %~dp0\GetInfoYouPC md %~dp0\GetInfoYouPC
For /F "Delims=" %%I In (pc.list) Do (
Set cpcname=%%~I
set cfile=%~dp0\GetInfoYouPC\!cpcname!_%cdtime%.txt
For /F "Tokens=1,3* Delims=,:" %%A In ('WMIC /node:!cpcname! OS GET Caption^,CSDVersion /FORMAT:CSV^|FindStr .^|More +1^|FindStr /n .') Do Call :_Func "%%A" "Операционная система: %%B,%%C" "" !cfile!
For /F "Tokens=2,3* Delims=,:" %%A In ('WMIC /node:!cpcname! CPU GET socketdesignation^, Name^, MaxClockSpeed /FORMAT:CSV^|FindStr .^|More +1^|FindStr /n .') Do Call :_Func "%%A" "Процессор: %%C,%%B" "" !cfile!
For /F "Tokens=2,3* Delims=,:" %%A In ('WMIC /node:!cpcname! memorychip get banklabel^,capacity^,devicelocator /FORMAT:CSV^|FindStr .^|More +1^|FindStr /n .') Do Call :_Func "%%A" "Оперативная память: %%B,%%C" "" !cfile!
For /F "Tokens=2,3 Delims==:" %%A In ('WMIC /node:!cpcname! COMPUTERSYSTEM GET TotalPhysicalMemory /VALUE^|FindStr .^|FindStr /n .') Do Call :_Func "%%A" "Оперативная память(в): %%B" "" !cfile!
For /F "Tokens=2,3* Delims=,:" %%A In ('WMIC /node:!cpcname! BASEBOARD GET Manufacturer^,Product /FORMAT:CSV^|FindStr .^|More +1^|FindStr /n .') Do Call :_Func "%%A" "Материнская плата: %%B,%%C" "" !cfile!
For /F "Tokens=2,3* Delims=,:" %%A In ('WMIC /node:!cpcname! path Win32_VideoController GET Name^,AdapterRAM /FORMAT:CSV^|FindStr .^|More +1^|FindStr /n .') Do Call :_Func "%%A" "Видеокарта: %%C,%%B" "" !cfile!
For /F "Tokens=2,3* Delims==:" %%A In ('WMIC /node:!cpcname! path Win32_VideoController GET VideoModeDescription /VALUE^|FindStr .^|FindStr /n .') Do Call :_Func "%%A" "Разрешение экрана: %%C" "" !cfile!
For /F "Tokens=2,3* Delims=,:" %%A In ('WMIC /node:!cpcname! DISKDRIVE Where InterfaceType^=^'IDE^' GET Model^,Size /FORMAT:CSV^|FindStr .^|More +1^|FindStr /n .') Do Call :_Func "%%A" "Жесткий диск: %%B,%%C" "" !cfile!
For /F "Tokens=2,3* Delims==:" %%A In ('WMIC /node:!cpcname! path Win32_CDROMDrive GET Name /VALUE^|FindStr .^|FindStr /n .') Do Call :_Func "%%A" "Привод: %%B" "" !cfile!
For /F "Tokens=2,3* Delims==:" %%A In ('WMIC /node:!cpcname! path Win32_NetworkAdapter Where ^"AdapterTypeId^=0 And NetConnectionStatus^=2^" GET Name /VALUE^|FindStr .^|FindStr /n .') Do Call :_Func "%%A" "Сетевая карта: %%B" "" !cfile!
For /F "Tokens=2,3* Delims==:" %%A In ('WMIC /node:!cpcname! path Win32_SoundDevice GET Name /VALUE^|FindStr .^|FindStr /n .') Do Call :_Func "%%A" "Звуковая карта: %%B" "" !cfile!
For /F "Tokens=2,3* Delims==:" %%A In ('WMIC /node:!cpcname! product get name /VALUE^|FindStr .^|FindStr /n .') Do Call :_Func "%%A" "Установленное ПО: %%B" "" !cfile!
)
GoTo :EOF
:_Func
CHCP 1251 1>nul
If %~1 EQU 1 Echo.%~2 >%4
If %~1 GTR 1 Echo.%~2 >>%4
CHCP 866 >nul
имена компьютеров в pc.list.
Результат - папка с файлами GetInfoYouPC
Может окажется полезным.
