vicosta
Messages postés178Date d'inscriptionlundi 5 juin 2006StatutMembreDernière intervention30 novembre 2011 7 févr. 2009 à 19:32
Salut
Il faut mettre les lignes suivantes à l'intérieur de la procedure de ton Timer, et sourtout pas à l'exterieur en Public parce que ça reste toujours en mémoire.
Dim objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\" & strcomputer & "\root\cimv2")
Dim colInstalledPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer Where Name = 'EPSON AL-C3800 Advanced'")
Dim objprinter As Object
Si le problème persiste, tu peux toujours rajouter en sortant de la procedure:
set objWMIService=nothing