Discussion :

[lio33]

Bonjour,

Je cherche à pouvoir récupérer les informations système de "Fabricant" et "Matériel" du poste sur lequel s'exécute une application ACCESS 2007.
Ce sont des informations que l'on obtient notamment à l'aide de la fonction "Informations Système" de Windows, accessible via :

"Démarrer/Programmes/Accessoires/Outils Systèmes/Informations systèmes"

Exemple d'information fournie :

Fabricant Hewlett-Packard
Modèle HP xw4400 Workstation

A priori je n'ai pas vu que ces informations soient disponibles à partir de la fonction Environ().

Merci d'avance pour vos contributions.

[issoram]

Bonjour,

Tu peux regarder du côté de WMI (Windows Management Instrumentation).
Un bout de code pour les 2 infos de ton exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub InfosSyst()
 
    Dim strComputer As String
    Dim objWMIService As Object
    Dim colItems As Object
    Dim objItem As Object
    Dim strProcessorIDs As String
 
    strComputer = "."
 
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
 
    Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem", , 48)    
 
    For Each objItem In colItems
        Debug.Print "Fabricant: " & objItem.Manufacturer
        Debug.Print "Modèle: " & objItem.Model
    Next
 
    Set objItem = Nothing
    Set colItems = Nothing
    Set objWMIService = Nothing
 
End Sub

Je ne maitrise pas trop le sujet mais ça semble (de ce que j'ai lu) très pratique pour récupérer des infos sytème, OS réseau etc.
Ici un lien vers les classes Win_32 dont tu pourrais avoir besoin.

Bon courage.

[lio33]

Merci beaucoup,
Cela répond parfaitement à ma demande.
Je vais aller voir du coté de ton lien !