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 !! :)
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.