Page 1 sur 1
[R] Version exécutable et informations carte mère
Posté : lun. 15 sept. 2008 15:14
par 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
Re: Version de logiciel exécutable et information carte mère
Posté : lun. 15 sept. 2008 16:47
par 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
Re: [R] Version de logiciel exécutable et information carte mère
Posté : mar. 16 sept. 2008 12:10
par 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
Re: Version de logiciel exécutable et information carte mère
Posté : ven. 19 sept. 2008 14:08
par 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
Re: [..] Version exécutable et informations carte mère
Posté : ven. 26 sept. 2008 22:07
par 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.
Re: [R] Version exécutable et informations carte mère
Posté : sam. 27 sept. 2008 12:59
par 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
@+
Re: [R] Version exécutable et informations carte mère
Posté : sam. 27 sept. 2008 14:13
par 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