pcsoft.fr.windevCopyright 2026, PC SOFT11 Jul 2020 15:41:20 Z6 Jul 2020 06:43:18 ZBonjour, Je suis à me créer un ensemble de services WMI. - Depuis l'idée de Philippe Pasquali et son ggWMI. - Depuis l'idée de cConsole de Jurrasic Pork. J'ai fait de bons progrès mais tout naturellement, je bloque. Une table de test avec avec Win32_BIOS. https://hostimage.windev.io/images/Test_4cceab37f10764b3965289f1733bc074.jpg Déclarations globales (Tableaux avec agrandissement...) [code:wl] ciWMITyp est un tableau <agrandissement = 1> de chaînes // Chaîne, entier, etc. ciWMIClé est un tableau <agrandissement = 1> de chaînes // Clé pour appel WMI ciWMIVal est un tableau <agrandissement = 1> de chaînes // Valeurs retournées [/code] Routine appelée par le bouton de test: [code:wl] PROCÉDURE ciPosteWMIWin32Bios(pPoste est une chaîne = NetNomMachine()) // gWMIClasse = "Win32_BIOS" // Ajoute(ciWMITyp, "uint16") ; Ajoute(ciWMIClé, "BiosCharacteristics[]") Ajoute(ciWMITyp, "string") ; Ajoute(ciWMIClé, "BIOSVersion[]") Ajoute(ciWMITyp, "string") ; Ajoute(ciWMIClé, "BuildNumber") Ajoute(ciWMITyp, "string") ; Ajoute(ciWMIClé, "Caption") Ajoute(ciWMITyp, "string") ; Ajoute(ciWMIClé, "CodeSet") ... et les autres... // ciWMIAppel(pPoste, gWMIClasse) // //--- EOF [/code] Routine pour l'appel à WMI [code:wl] PROCÉDURE PRIVÉ ciWMIAppel(pPoste est une chaîne, pClasse est une chaîne = "") // Validations... // x est un entier = 1 TANTQUE x <= lNombreClés ET lValidation = Vrai //--- Retire les [] non utiles pour l'appel SI Droite(ciWMIClé[x], 2) = "[]" ALORS ciWMIClé[x] = Gauche(ciWMIClé[x], Taille(ciWMIClé[x]) - 2) SI SansEspace(ciWMIClé[x]) <> "" ALORS //--- clé présente, on extrait ciWMIVal[x] = ciWMIExtrait(pPoste, pClasse, ciWMIClé[x]) SINON //--- Clé à vide, on passe ciWMIVal[x] = "" FIN x ++ FIN [/code] Routine d'extraction elle-même. [code:wl] PROCÉDURE PRIVÉ ciWMIExtrait(pPoste est une chaîne, pClasse est une chaîne = "", pCle est une chaîne = "") QUAND EXCEPTION DANS gObjService = gObjLocator >> ConnectServer(".","root\cimv2") gObjService >> Security_ >> ImpersonationLevel = 3 // gObjValNum = 0 gObjExtract = gObjService >> ExecQuery("SELECT " + pCle + " FROM " + pClasse) // SI gObjExtract >> Count ALORS gObjValTxt = gObjExtract >> ItemIndex(0) >> Properties_ >> Item(pCle) >> Value FIN RENVOYER gObjValTxt FAIRE RENVOYER "Non reconnu..." FIN [/code] Je passe la classe (Win32_BIOS) et la clé (Ex: Caption). En bouclant, je m'assure d'un résultat même s'il y a une exception sur l'un des items. Fonctionne parfaitement sauf pour les trois clés qui sont des tableaux de valeurs. BiosCharacteristics, BIOSVersion et ListOfLanguages. Je passe les trois sans les [ et ]. Il y a quelque chose qui m'échappe avec SI gObjExtract >> Count J'ai bien tenté de faire une boucle x et ItemIndex(x), mais il refuse... Comment puis-je traiter les "tableaux" de valeurs tels BiosCharacteristics ? Exemple de Microsoft: [code:text] Win32_Bios WMI Information Bios Characteristics : 04-ISA is supported : 07-PCI is supported : 08-PC Card (PCMCIA) is supported : 09-Plug and Play is supported Bios Version : DELL - 27d60a0d Codeset : CurrentLanguage : en|US|iso8859-1 Description : Phoenix ROM BIOS PLUS Version 1.10 A04 IdentificatonCode : [/code] D'avance, merci pour votre aide. Serge -- ----- Parfois, la logique est implacable...30WEBDEVfr_FRhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/240952-question-wmi/read.awpmoderateur@pcsoft.fr (El moderador)webmaster@pcsoft.fr (El webmaster)Monsieur Sergepcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/240952-question-wmi-241101/read.awp11 Jul 2020 15:41:20 ZSalut, J'avais résolu mon problème en encapsulant le QUAND EXCEPTION dans une seconde procédure. Avec un contrôle approprié,…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/240952-question-wmi-241101/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/240952-question-wmi-241101/read.awpQuestion WMIJurassic Porkpcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/240952-question-wmi-241084/read.awp10 Jul 2020 08:24:23 Zhello, avec l'assemblage dotnet System.Management, on peut sous Windev, récupérer toutes les propriétés de la classe Win32_Bios…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/240952-question-wmi-241084/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/240952-question-wmi-241084/read.awpQuestion WMIMonsieur Sergepcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/240952-question-wmi-240962/read.awp6 Jul 2020 15:27:51 ZSalut, https://hostimage.windev.io/images/Test_99a9c111ebcc5dedc1d04ba27b956282.jpg Exactement le bout de code que je cherchai…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/240952-question-wmi-240962/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/240952-question-wmi-240962/read.awpQuestion WMIJurassic Porkpcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/240952-question-wmi-240959/read.awp6 Jul 2020 13:15:51 Zhello, va faire peut-être un tour ici : https://forum.pcsoft.fr/fr-FR/pcsoft.fr.windev/54665-api-winspool-drv-statut-impriman…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/240952-question-wmi-240959/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/240952-question-wmi-240959/read.awpQuestion WMI