0/5 (6 avis)
Snippet vu 22 965 fois - Téléchargée 36 fois
'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
13 sept. 2006 à 11:58
13 sept. 2006 à 11:54
14 mars 2005 à 18:33
14 mars 2005 à 14:44
12 mars 2005 à 23:53
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.