[R] Version exécutable et informations carte mère

[r140]

Bonjour,

Je recherche des informations pour faire un script donnant les informations du pc: quantité de mémoire, imprimante utilisé, nom de l'utilisateur courant, mais je bute sur ces infos:

Je souhaiterai obtenir le modèle de la carte mère installé sur le pc.
Comment savoir la version des exécutable installé (dispo dans propriété->version->version du produit)

Merci

[jbnh]

Ya un super UDF tout prêt tout chaud ici :

http://www.autoitscript.com/forum/index ... opic=29404

Si tu as des problèmes d'utilisiation hésite pas

[r140]

Bonjour,

Merci pour l'exemple,
Existe t'il une documentation, explicatant l'utilisation des wmi lié au systèmes.
J'ai trouvé dans différents language de programmation mais pas dans autoit.

Merci

[r140]

Bonjour,

Je souhaite obtenir le modèle de la carte mère mais avec la fonction _ComputerGetMotherboard($Motherboard) de Jarvis J. Stubblefield je n'arrive pas à obtenir le modèle de la carte, il me retourne name: carte mère, existe il d'autres exemple comme celui-ci permettant d'avoir le modèle.
Merci

[Tlem]

Si _ComputerGetMotherboard($Motherboard) ne retourne pas l'information, c'est qu'elle n'est pas disponible.

Pour WMI regardez par ici.

Pour trouver des informations sur votre carte mère, essayez ceci :

Code : Tout sélectionner

Dim $sAns

$WMI = ObjGet("WinMgmts:")
$objs = $WMI.InstancesOf("Win32_BaseBoard")
For $obj In $objs
  $sAns = $sAns & $obj.name
 If $sAns < $objs.Count Then $sAns = $sAns & ","
Next
$MBSerialNumber = $sAns

MsgBox(0,"",$MBSerialNumber)

et remplacez le mot name par une des informations disponible ici.
Regardez les mots en gras qui font le titre d'une propriété :

Caption <--------------------- Le mot à utiliser
Data type: string
Access type: Read-only

Short description of the object—a one-line string. This property is inherited from CIM_ManagedSystemElement.

Comme vous pouvez le constater dans la méthode Win32_BaseBoard, il y à plusieurs collections d'objets ...
- Caption
- ConfigOptions
- CreationClassName
- Depth
etc ...

Regardez les méthodes disponibles ici et choisissez celle qui vous convient le mieux.

A vous de jouer.

[r140]

Bonjour,

Merci, cette parti de mon code est résolu, si cela peux servir, ci joins le code modifié:

Code : Tout sélectionner

Dim $sAns,$mB,$Manufacturer,$OtherIdentifyingInfo,$MB,$ans

call ("Cm")
$MB=$Ans
call ("Cm2")
$MB = $sAns& $MB
MsgBox(0,"",$MB)

Func Cm()
$WMI = ObjGet("WinMgmts:")
$objs = $WMI.InstancesOf("Win32_BaseBoard")
For $obj In $objs
  $sAns = $sAns & $obj.Manufacturer
 If $sAns < $objs.Count Then $sAns = $sAns & ","
Next
EndFunc

Func cm2()
$WMI = ObjGet("WinMgmts:")
$objs = $WMI.InstancesOf("Win32_BaseBoard")
For $obj In $objs
  $sAns = $sAns & $obj.Product
 If $sAns < $objs.Count Then $sAns = $sAns & ","
Next

EndFunc
 

@+

[Tlem]

Vous pouvez simplifier comme ceci :

Code : Tout sélectionner

MsgBox(0, "", Cm())

Func Cm()
    Local $WMI, $objs, $sAns
    $WMI = ObjGet("WinMgmts:")
    $objs = $WMI.InstancesOf("Win32_BaseBoard")
    For $obj In $objs
        $sAns = $sAns & $obj.Manufacturer & "," & $obj.Product
    Next
    Return $sAns
EndFunc   ;==>Cm