Obtenir des informations sur le PC

Obtenir des informations sur le PC - Shell/Batch - Programmation

Marsh Posté le 26-04-2007 à 09:54:48    


Bonjour, je voudrais créer un script batch pour obtenir des information sur le PC, voici les information que je souhaite obtenir:
Carte mére
Ram
Version de windows
Nom de l'ordinateur et marque du fabriquant
Processeur
Sauriez vous m'aider ?

Reply

Marsh Posté le 26-04-2007 à 09:54:48   

Reply

Marsh Posté le 26-04-2007 à 10:44:04    

regarde plut^to du cote des wmi , avec VB

Reply

Marsh Posté le 26-04-2007 à 10:57:21    

Bonjour et merci mais je veut faire sa en batch

Reply

Marsh Posté le 26-04-2007 à 11:09:57    

tout les pc sous windows permettent d'executer du VB  de la même manière qu'ils executent un batch  
 
apres libre a toi de te compliquer la vie

Reply

Marsh Posté le 26-04-2007 à 11:13:26    

Merci pour l'info, mais je préfére le batch
 
Enfin je vais quand même voir sa en vbs pour l'instant, mais il me le faudra en batch, comment faire en vbs ?

Reply

Marsh Posté le 26-04-2007 à 12:38:49    

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
Reply

Marsh Posté le 26-04-2007 à 13:04:28    

Salut et merci beaucoup

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed