Identifier les composants matériels de l’ordinateur

rem ============================================================================
rem          Identifier les composants matériels de l’ordinateur
rem   À l’aide du WMIC (Windows Management Instrumentation Command-line)
rem                     Papydall le 06 / 11 / 2018
rem ============================================================================
label choix
dim command$,i
width 0,1000
main_menu 10
   sub_menu 11 : parent 11,10 : caption 11,"Système d'exploitation"
   sub_menu 12 : parent 12,10 : caption 12,"   BIOS   "
   sub_menu 13 : parent 13,10 : caption 13,"Carte mère"
   sub_menu 14 : parent 14,10 : caption 14,"   CPU   "
   sub_menu 15 : parent 15,10 : caption 15,"Mémoire RAM"
   sub_menu 16 : parent 16,10 : caption 16,"Carte réseau"
   sub_menu 17 : parent 17,10 : caption 17,"Carte graphique"
   sub_menu 18 : parent 18,10 : caption 18,"Moniteur"
   sub_menu 19 : parent 19,10 : caption 19,"Disques de Stockage"
   sub_menu 20 : parent 20,10 : caption 20,"SystemInfo"
   sub_menu 21 : parent 21,10 : caption 21,"Quitter"
  
for i = 11 to 21 : on_click i,choix : next i
memo 100 : full_space 100
font_bold 100 : font_color 100,0,0,255 : bar_both 100
font_name 100,"consolas" : font_size 100,14
caption 0,"Identifier les composants matériels de l’ordinateur"
end
rem ============================================================================
Choix:
    select number_click
        case 11 : OS()
        case 12 : BIOS()
        case 13 : Carte_Mere()
        case 14 : CPU()
        case 15 : RAM()
        case 16 : Carte_Reseau()
        case 17 : Carte_Graphique()
        case 18 : Moniteur()
        case 19 : Disques_Stockage()
        case 20 : SystemInfo()()      
        case 21 : terminate
        
    end_select
return
rem ============================================================================
' Identifier le système d'exploitation (OS)
SUB OS()
    command$ = "wmic path Win32_OperatingSystem get CSDVersion,Manufacturer,Name,OperatingSystemSKU,OSArchitecture,Version /value"
    execute_wait "cmd.exe |/c " + command$ + " | clip"
    clear 100
    item_add 100,"Classe : Win32_OperatingSystem"
    item_add 100,"=============================="
    item_add 100, CLIPBOARD_STRING_PASTE$
    item_add 100,"=============================="
END_SUB
rem ============================================================================
' Identifier le BIOS
SUB BIOS()
    command$ = "wmic path Win32_BIOS get BIOSVersion,Manufacturer,Name /value"
    execute_wait "cmd.exe |/c " + command$ + " | clip"
    clear 100
    item_add 100,"Classe : Win32_BIOS"
    item_add 100,"=============================="
    item_add 100, CLIPBOARD_STRING_PASTE$
    item_add 100,"=============================="
END_SUB
rem ============================================================================
' Identifier la carte mère
SUB Carte_Mere()
    command$ = "wmic path Win32_BaseBoard get Manufacturer,Product,Version /value"
    execute_wait "cmd.exe |/c " + command$ + " | clip"
    clear 100
    item_add 100,"Classe : Win32_BaseBoard"
    item_add 100,"=============================="
    item_add 100, CLIPBOARD_STRING_PASTE$
    item_add 100,"=============================="
END_SUB
rem ============================================================================
' Identifier le processeur (CPU)
SUB CPU()
    command$ = "wmic path Win32_Processor get Manufacturer,Name,SocketDesignation /value"
    execute_wait "cmd.exe |/c " + command$ + " | clip"
    clear 100
    item_add 100,"Classe : Win32_Processor"
    item_add 100,"=============================="
    item_add 100, CLIPBOARD_STRING_PASTE$
    item_add 100,"=============================="
END_SUB
rem ============================================================================
' Identifier la mémoire RAM
SUB RAM()
    command$ = "wmic path Win32_PhysicalMemory get Capacity,FormFactor,Manufacturer,PartNumber,SerialNumber /value"
    execute_wait "cmd.exe |/c " + command$ + " | clip"
    clear 100
    item_add 100,"Classe : Win32_PhysicalMemory"
    item_add 100,"=============================="
    item_add 100, CLIPBOARD_STRING_PASTE$
    item_add 100,"=============================="
END_SUB
rem ============================================================================
' Identifier la carte réseau
SUB Carte_Reseau()
    dim_local q$
    q$ = chr$(34)
    command$ = "wmic path Win32_NetworkAdapter where "+q$+"MACAddress is not Null"+q$+" get Description,ServiceName /value"
    execute_wait "cmd.exe |/c " + command$ + " | clip"
    clear 100
    item_add 100,"Classe : Win32_NetworkAdapter"
    item_add 100,"=============================="
    item_add 100, CLIPBOARD_STRING_PASTE$
    item_add 100,"=============================="
END_SUB
rem ============================================================================
' Identifier la carte graphique (IGP ou GPU)
SUB Carte_Graphique()
    command$ = "wmic path Win32_VideoController get Name /value"
    execute_wait "cmd.exe |/c " + command$ + " | clip"
    clear 100
    item_add 100,"Classe : Win32_VideoController"
    item_add 100,"=============================="
    item_add 100, CLIPBOARD_STRING_PASTE$
    item_add 100,"=============================="
END_SUB
rem ============================================================================
' Identifier le moniteur
SUB Moniteur()
    command$ = "wmic path Win32_DesktopMonitor get MonitorManufacturer,MonitorType,Name /value"
    execute_wait "cmd.exe |/c " + command$ + " | clip"
    clear 100
    item_add 100,"Classe : Win32_DesktopMonitor"
    item_add 100,"=============================="
    item_add 100, CLIPBOARD_STRING_PASTE$
    item_add 100,"=============================="
END_SUB
rem ============================================================================
' Identifier les disques de stockages (internes ou externes)
SUB Disques_Stockage()
    command$ = "wmic path Win32_DiskDrive get InterfaceType,Manufacturer,MediaType,Model,SerialNumber,Size /value"
    execute_wait "cmd.exe |/c " + command$ + " | clip"
    clear 100
    item_add 100,"Classe : Win32_DiskDrive"
    item_add 100,"=============================="
    item_add 100, CLIPBOARD_STRING_PASTE$
    item_add 100,"=============================="
END_SUB
rem ============================================================================
' Générer un résumé de la configuration matérielle et logicielle d'un ordinateur.
' Veuillez patienter ... Le traitement peut durer un certain temps !
SUB SystemInfo()
    command$ = "systeminfo"
    execute_wait "cmd.exe |/c " + command$ + " | clip"
    clear 100
    item_add 100,"« systeminfo » donne une longue liste d’informations sur le système."
    item_add 100,"==================================================================================="
    item_add 100, CLIPBOARD_STRING_PASTE$
    item_add 100,"==================================================================================="
END_SUB
rem ============================================================================

C:\Windows\System32\devmgmt.msc