Information carte mere ( constructeur , model ,description , version )

Soyez le premier à donner votre avis sur cette source.

Snippet vu 22 252 fois - Téléchargée 34 fois

Contenu du snippet

Tout est dans le titre ! :)

c'est un exemple d'utilisation des instance WMI
Vous trouverez toutes les autre instance en utilisant : wbemtest.exe
C:\WINDOWS\system32\wbem\wbemtest.exe
cliquer sur la case connexion, dans la zone de test taper Root\cimv2
ensuite cliquer sur Enumérer les classe , cocher l'option Récursive , laisser la zone de texte vide et cliquer sur Ok

commencer par inserer Microsoft WMI scripting V1.2 library a votre projet

modifier le code suivant selon vos besoin :

exemple :
Set liste = GetObject("winmgmts:").InstancesOf("Win32_LogicalDisk)

pour enumerer toutes les infos sur chaque instance , utiliser le code 1 !

exemple d'utilisation code 2

Source / Exemple :


'code 1 : liste toute les information disponible par instance
Private Sub Form_Load()
Dim liste
Set liste = GetObject("winmgmts:").InstancesOf("Win32_baseboard") ' Win32_baseboard a remplacer par l'instance desirée

For Each p In liste
    MsgBox p.GetObjectText_

Next
End Sub

'code 2 : exemple de code

Private Sub Form_Load()
Dim liste
Set liste = GetObject("winmgmts:").InstancesOf("Win32_baseboard")' Win32_baseboard a remplacer par l'instance desirée

For Each p In liste
    MsgBox "  Constructeur : " & p.manufacturer
    MsgBox "  Model : " & p.Product
    MsgBox "  Version : " & p.version
    MsgBox "  Nom : " & p.Caption
    MsgBox "  Description : " & p.Description
Next
End Sub

Conclusion :


Avec ceci vous aller pouvoir creer un info systéme digne de ce nom !! :)

A voir également

Ajouter un commentaire

Commentaires

cs_Hnayna
Messages postés
6
Date d'inscription
mardi 12 septembre 2006
Statut
Membre
Dernière intervention
11 avril 2007
-
Est ce que tu peut m'aider à connaître le numèro de série de ma carte mère ?
cs_Hnayna
Messages postés
6
Date d'inscription
mardi 12 septembre 2006
Statut
Membre
Dernière intervention
11 avril 2007
-
Merci, tu m'as resolu beaucoup des problème. Merci bien.
Cugel
Messages postés
42
Date d'inscription
samedi 8 mars 2003
Statut
Membre
Dernière intervention
27 septembre 2010
-
Essaies avec le listing 2 ...
Vyper909
Messages postés
24
Date d'inscription
jeudi 27 mai 2004
Statut
Membre
Dernière intervention
8 janvier 2007
-
Désolé, mais ca ne me retourne que des trucs du genre: "Base Board"... :-(
cs_azerty25
Messages postés
1115
Date d'inscription
jeudi 19 décembre 2002
Statut
Membre
Dernière intervention
6 mai 2007
-
Tu saurai pas récuperer la température du CPU des fois ??? ... :-D

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.