EXEMPLO DE CODIGO .NET DENTRO DO WINDEV

OBS.: IMPORTANTE IMPORTAR SYSTEM E MSCORLIB NO "ASSEMBLER NET" EM "PROJECT EXPLORER" PARA FUNCIONAR O CODIGO:

PROCEDURE Printer_Settings()

// J.P Septembre 2016
objLocator is object Automation "WbemScripting.SWbemLocator"
objService is object Automation dynamic
Resultats is object Automation dynamic
Propriétés is object Automation dynamic

WHEN EXCEPTION IN
objService = objLocator>>ConnectServer(".", "root\cimv2")
objService>>Security_>>ImpersonationLevel = 3

// Récupération des propriétés de l'imprimante HP
Resultats = objService>>ExecQuery("SELECT * FROM Win32_Printer WHERE Caption like 'HP%' ")
FOR x = 0 TO Resultats>>Count -1
Propriétés = Resultats>>ItemIndex(x)>>Properties_
Trace("Attributes : ",Propriétés>>Item("Attributes")>>Value )
Trace("Availability : " ,Propriétés>>Item("Availability")>>Value)
Trace("AvailableJobSheets : " ,Propriétés>>Item("AvailableJobSheets")>>Value)
Trace("AveragePagesPerMinute : " ,Propriétés>>Item("AveragePagesPerMinute")>>Value)
Trace("Capabilities : " ,ConcatèneTableau(Propriétés>>Item("Capabilities")>>Value))
Trace("CapabilityDescriptions : " ,ConcatèneTableau(Propriétés>>Item("CapabilityDescriptions")>>Value))
Trace("Caption : ",Propriétés>>Item("Caption")>>Value )
Trace("CharSetsSupported : " ,ConcatèneTableau(Propriétés>>Item("CharSetsSupported")>>Value))
Trace("Comment : " ,ConcatèneTableau(Propriétés>>Item("Comment")>>Value))
Trace("=========================")
END
DO
Error("Erreur execution WMI",ExceptionInfo())
ExceptionEnable()
END
PROCEDURE ConcatèneTableau(MonTableau)
ChaineResultat is string = ""
IF MonTableau <> Null THEN
FOR EACH elem OF MonTableau
ChaineResultat = ChaineResultat + elem + "|"
END
IF Right(ChaineResultat,1) = "|" THEN ChaineResultat = Left(ChaineResultat,Length(ChaineResultat) - 1)
END
RETURN ChaineResultat