[NickM]

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

Может окажется полезным.

[Fantastish]

А в pc.list компы по какому формату указаны? - вопрос снял
как можно подправить вывод информации?

Скрытый текст

+яхЁрЎшюээр* ёшёЄхьр: Microsoft Windows 7 Профессиональная ,Service Pack 1
¦ЁюЎхёёюЁ: Intel(R) Core(TM) i5-4590 CPU @ 3.30GHz,SOCKET 0,3301

в скрипте вроде как указано, а отработало у меня криво
Спасибо