aObjectQuery = allouer un ObjectQuery("SELECT * FROM " + W32String)
aObjectQuery = allouer un ObjectQuery("SELECT * FROM Wi32_VideoController")
TANTQUE (IEnumProp:MoveNext())
aPropertyData est un PropertyData dynamique
aPropertyData = IEnumProp:get_Current()
sName est une chaîne = GetName(aPropertyData)
SI sName = "" ALORS GOTO SUITE
sRes est une chaîne = ""
QUAND EXCEPTION DANS
sRes = aManagementObject:GetPropertyValue(sName)
FAIRE
ExceptionActive()
sRes = "N/A"
FIN
//si sres <> "N/A" alors
TableAjoute(Table,"" +TAB+ aPropertyData:get_Name() + TAB + sRes)
ListeSelectPlus(Table,Table..Occurrence)
Multitâche(-1)
//fin
SUITE:
FIN
TANTQUE (IEnumProp:MoveNext())
sName est une chaîne = "AdapterRAM"
sRes est une chaîne = ""
QUAND EXCEPTION DANS
sRes = aManagementObject:GetPropertyValue(sName)
FAIRE
ExceptionActive()
sRes = "N/A"
FIN
//si sres <> "N/A" alors
Info("AdapterRam = " + sRes)
RETOUR
SUITE:
FIN
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=14&topic_id=3014&post_id=12667