Tiens Batch powaaaaa :
@echo off
title Windows Hardwaring
color 79
echo.
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo º º
echo º Windows Hardwaring v0.01 º
echo º by Blast Killer º
echo º BlastKiller@hotmail.fr º
echo º http://blast.fr.nf º
echo º Open Source º
echo º º
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo.
echo.
echo Bienvenue dans Windows Hardwaring.
echo Ce programme permet de connaitre les composants de l'ordinateur.
echo.
echo.
pause
:menu
cls
echo.
echo.
echo Voici la liste des actions :
echo.
echo 1) Afficher le materiel.
echo q) Pour quitter.
echo.
SET /P num= Pour quel action voulez-vous avoir des infos ? Numero ?
IF %num%==q goto fin
IF %num% GTR 1 goto menu
IF %num% LEQ 0 goto menu
goto %num%a
:1a
cls
echo.
echo.
echo 1) Afficher le materiel.
echo.
echo Voila regarde ton matos.
echo.
::carte mere
for /f "delims=" %%a in ('reg query HKLM\HARDWARE\ACPI ^| findstr ACPI\') do call :cm %%a
goto suitecm
:cm
set cmvar=%1
for /f "delims=" %%b in ('reg query %cmvar% ^| findstr %cmvar%\ ^| findstr /v /e _') do set cmvar1=%%b
goto :eof
:suitecm
for /f "delims=" %%c in ('reg query %cmvar1% ^| findstr %cmvar1%\') do set cm=%%c
set cm=%cm:~38,100%
echo Carte mere : %cm%
::bios
for /f "delims=" %%a in ('reg query HKLM\HARDWARE\DESCRIPTION\System /v SystemBiosVersion ^| findstr "Bios"') do set bios="%%a"
set bios=%bios:~36,100%
set bios=%bios:"=%
echo Bios : %bios%
::proc
for /f "delims=" %%a in ('reg query HKLM\HARDWARE\DESCRIPTION\System\CentralProcessor\0 /v ProcessorNameString ^| findstr "NameString"') do set proc="%%a"
set proc=%proc:~32,100%
set proc=%proc:"=%
echo Processeur : %proc%
::frequence
for /f "delims=" %%a in ('reg query HKLM\HARDWARE\DESCRIPTION\System\CentralProcessor\0 /v ~MHz ^| findstr "MHz"') do set cpu="%%a"
set cpu=%cpu:~20,10%
set cpu=%cpu:"=%
set cpu=%cpu:x=%
::decomposition
set cpu1=%cpu:~-1%
set cpu2=%cpu:~-2%
set cpu2=%cpu2:~0,1%
set cpu3=%cpu:~-3%
set cpu3=%cpu3:~0,1%
::hexa
if %cpu1%==a set cpu1=10
if %cpu1%==b set cpu1=11
if %cpu1%==c set cpu1=12
if %cpu1%==d set cpu1=13
if %cpu1%==e set cpu1=14
if %cpu1%==f set cpu1=15
if %cpu2%==a set cpu2=10
if %cpu2%==b set cpu2=11
if %cpu2%==c set cpu2=12
if %cpu2%==d set cpu2=13
if %cpu2%==e set cpu2=14
if %cpu2%==f set cpu2=15
if %cpu3%==a set cpu3=10
if %cpu3%==b set cpu3=11
if %cpu3%==c set cpu3=12
if %cpu3%==d set cpu3=13
if %cpu3%==e set cpu3=14
if %cpu3%==f set cpu3=15
set /a cpu2=%cpu2%*16
set /a cpu3=%cpu3%*16*16
set /a cpu=%cpu1%+%cpu2%+%cpu3%
echo Frequence : %cpu% MHz
::carte graphique
for /f "delims=" %%a in ('reg query HKLM\SYSTEM\CurrentControlSet\Control\Video /s ^| findstr /e "\0000" 2^> NUL') do call :cg "%%a"
goto suitecg
:cg
set cgvar=%1
reg query %cgvar% /v Mirrordriver > NUL 2> NUL
if %errorlevel% EQU 0 goto :eof
set cg=%cgvar%
goto :eof
:suitecg
for /f "delims=" %%a in ('reg query %cg% /v "Device Description" ^| findstr "Device"') do set cg="%%a"
set cg=%cg:~31,100%
set cg=%cg:"=%
echo Carte graphique : %cg%
::dd
for /f "delims=" %%a in ('reg query HKLM\HARDWARE\DEVICEMAP\Scsi /s ^| findstr "Logical" 2^> NUL') do call :dd "%%a"
goto suitedd
:dd
set ddvar=%1
for /f "delims=" %%b in ('reg query %ddvar% /v Identifier ^| findstr "Identifier"') do set dd=%%b
set dd=%dd:~22,100%
set dd=%dd:"=%
echo Disque : %dd%
goto :eof
:suitedd
echo.
echo.
pause
goto menu
:fin
cls
echo.
echo.
echo.
echo _ _
echo .-_; ;_-.
echo / / \ \
echo ³ ³ ³ ³
echo \ \.---./ /
echo .-"~ .---. ~"-.
echo ,`.-~/ .'`---`'. \~-.`,
echo '` ³ ³ \(_)/ ³ ³ `'
echo , \ \ ³ ³ / / ,
echo ;`'.,_\ `-'-' /_,.'`;
echo '-._ _.-'^'-._ _.-'
echo `` ``
echo.
echo.
echo Merci d'avoir utilise ce programme, si vous avez des commentaires,
echo n'hesitez pas a me mailler ;)
echo BlastKiller@hotmail.fr
echo.
echo Si vous modifier les sources, merci de laisser des infos sur moi, et m'envoyer
echo les nouvelles sources. Merci a tout ceux qui amelioreront mon programme.
echo.
echo.
pause
cls
Message édité par blastkiller le 26-04-2007 à 12:40:52