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

Commenter

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

S'inscrire maintenant

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.

Du même auteur (yohan49)