aManagementScope est un ManagementScope dynamique
aConnectionOptions est un ConnectionOptions dynamique
aObjectQuery est un ObjectQuery dynamique
aManagementObjectCollection est un ManagementObjectCollection dynamique
aManagementObjectSearcher est un ManagementObjectSearcher dynamique
sChaineRetour est une chaîne
QUAND EXCEPTION
ExceptionActive()
RENVOYER ""
FIN
aConnectionOptions = allouer un ConnectionOptions
QUAND EXCEPTION DANS
aManagementScope = allouer un ManagementScope("\\.\root\cimv2")
FAIRE
Erreur("Probleme d'accès 'WMI'",ErreurInfo())
ExceptionActive()
RENVOYER ""
FIN
aObjectQuery = allouer un ObjectQuery("SELECT * FROM " + NomClasse)
aManagementObjectSearcher = allouer un ManagementObjectSearcher(aManagementScope, aObjectQuery)
aManagementObjectCollection = aManagementObjectSearcher:get()
nCompteur est un entier
nTotal est un entier
IEnumMO est un IEnumerator dynamique
IEnumMO = aManagementObjectSearcher:get():GetEnumerator()
aManagementObject est un ManagementObject dynamique
TANTQUE(IEnumMO:MoveNext())
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=20&topic_id=6112&post_id=24504