Information carte mere ( constructeur , model ,description , version )
Soyez le premier à donner votre avis sur cette source.
Snippet vu 22 600 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
Avec ceci vous aller pouvoir creer un info systéme digne de ce nom !! :)
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
- Code constructeur wmi
- Vb information - Meilleures réponses
- Net information - Meilleures réponses
- Visual Basic / VB.NET : Récupération d'information wmi via une fonction vb - CodeS Sou - Guide
- C# / .NET : Explorateur de classes wmi - CodeS SourceS - Guide
- Visual Basic / VB.NET : Recherche de disques distants via wmi - CodeS SourceS - Guide
- C# / .NET : Wmi explorer - CodeS SourceS - Guide
- Visual Basic / VB.NET : Toutes les informations concernant vos hd utilisation wmi - CodeS SourceS - Guide
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.