INFORMATION CARTE MERE ( CONSTRUCTEUR , MODEL ,DESCRIPTION , VERSION )

'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

09 mars 2005 23:28:00 :

nouvelle explication plus clair