Recherche code VB pour lire la marque et le modéle d'un PC

Question

Je cherche comment récupérer par VB, la marque et le modèle d'un PC, dans le but de faire un petit utilitaire d'inventaire.

A prioris, le seul endroit où je puisse trouver ces infos est le Bios... mais peut-on l'exploiter avaec VB ?

Quelqu'un peut-il m'aider ?

A+

2jD

BruNews · Answer

la marque est ecrite sur le devant de la tour...
Plus serieux, faudrait plutot savoir la marque et le modèle de quels composants tu as besoin.
BruNews, ciao...

2Jd · Answer

Toute blague à part, c'est réellement ce qui est écrit sur la facade avant du Pc dont j'ai besoin, mais sans avoir à lire.
Je sais que certains logiciels d'inventaires sont capabales de récupérer cela. Peut on le faire avec VB, that is the question!!

Bien sur dans l'éventualité d'un PC non pas de marque mais assemblé, là on ne peut pas récupérer la marque...

Merci en tout cas!!

Tilois · Answer

Dans la base de registre récupère ce qui est marqué quand tu fais click droit-> propriétés sur le poste de travail ...

2Jd · Answer

Tu vois la marque du PC à cet endroit?
Je bosse actuellement sur un Dell et je ne l'ai pas...

BruNews · Answer

Pour sur, Dell est un assembleur.
Mets toi dans regedit et fais une recherche sur "Dell", si rien ne sort alors impossible a determiner, ce qui je pense sera la majorite des cas.
D'habitude on liste fabriquant et modele CPU, le reste est accessoire.
BruNews, ciao...

Tilois · Answer

Et puis franchement savoir si un pc est un dell ou un compaq, perso, c'est un truc qui ne m'intersses pas du tout. Le processeur par exemple, c'est bien plus important !

gramwil · Answer

Il faut ce pencher vers le WMI.
Voici le code a utiliser :


strcomputer = "localhost"   ' La chercher s'effectue sur le PC "localhost"
Set objWMIService = GetObject("winmgmts:\" & strcomputer & "\root\cimv2")  ' La recherche s'effectue dans la branche WMI cimv2



Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystemProduct", , 48)  ' On indique l'Alias adequate
For Each objItem In colItems
Form1.Text1 = objItem.IdentifyingNumber  ' On indique dans Text1 le numero de serie
Next



Set colItems2 = objWMIService.ExecQuery("Select * from Win32_ComputerSystem", , 48)  ' On indique l'Alias adequate
For Each objItem In colItems2
Form1.Text2 = objItem.Manufacturer       ' On indique dans Text2 le fabriquant du PC
Form1.Text3 = objItem.Model              ' On indique dans Text3 le model du PC
Next



Set colItems3 = objWMIService.ExecQuery("Select * from Win32_OperatingSystem", , 48)  ' On indique l'Alias adequate
For Each objItem In colItems3
Form1.Text4 = objItem.Description        ' On indique dans Text4 la description dU PC
Form1.Text5 = objItem.Caption            ' On indique dans Text5 l'OS install&#233;
Form1.Text6 = objItem.CSDVersion        ' On indique dans Text6 le service pack install&#233;
Next



Set colItems4 = objWMIService.ExecQuery("Select * from Win32_Processor", , 48)  ' On indique l'Alias adequate
For Each objItem In colItems4
Form1.Text7 = objItem.Name              ' On indique dans Text7 le type et la vitesse du CPU
Next


End Sub

Bonne prog

Recherche code VB pour lire la marque et le modéle d'un PC

7 réponses

Discussions similaires