//Exemple pour retrouver la liste des ports série "Hardware",
// de type USB série ( de chip prolific ou ftdi),
objLocator est un objet automation "WbemScripting.SWbemLocator"
objService est un objet automation dynamique
Resultats est un objet automation dynamique
TabResWMI est un tableau de chaînes
x est un entier
UnRésultat est une chaîne
portCom est une chaîne
// on cherche tout d'abord les ports série "Hardware"
QUAND EXCEPTIONEXCEPTION DANS
objService = objLocator>>ConnectServer(".", "\root\cimv2")
objService>>Security_>>ImpersonationLevel = 3
Resultats = objService>>ExecQuery("SELECT DeviceID FROM Win32_SerialPort")

POUR x = 0 _A_ Resultats>>Count -1

UnRésultat = Resultats>>ItemIndex(x)>>Properties_>>Item("DeviceID")>>Value
SI UnRésultat <> "" ALORS
TableauAjoute(TabResWMI,UnRésultat)

FIN
FIN
// on cherche ensuite les ports série de type USB-Série
// attention ici c'est limité à certains fabricants (prolific et ftdi)
Resultats = objService>>ExecQuery("SELECT Name,Service FROM Win32_PnPEntity WHERE " +
"Service='SER2PL' OR Service='FTSER2K' ")
POUR x = 0 _A_ Resultats>>Count -1
UnRésultat = Resultats>>ItemIndex(x)>>Properties_>>Item("Name")>>Value

SI UnRésultat <> "" ALORS
// on cherche dans le nom, la chaine COMxx
SI VérifieExpressionRégulière( UnRésultat,".*(COM[0-9]{1,2}).*",portCom) ALORS
// On reçoit la chaine par exemple COM5, il faut extraire le numéro de port
portCom = ChaîneSupprime(portCom,1,3)
//TableauAjoute(TabResWMI,portCom)
TableauAjoute(Tab_portCom,Val(portCom))


FIN
FIN
FIN
FAIRE
Erreur("Erreur WMI : " + ExceptionInfo())
FIN