J'utilise ce code pour lister les imprimantes situées sur mon serveur.
Lorsque je lance l'agent en manuel, j'obtiens le nom de l'imprimante PDF et le nom de l'imprimante réseau. Nickel !
L'agent se lance en schédulé, j'obtiens uniquement l'imprimante PDF, pas l'imprimante réseau ????
Auriez-vous une idée de la cause.
Voici mon code :
- Code : Tout sélectionner
Dim lstPrinter List As String
Dim vrPrinter As Variant
Dim i As Integer
Dim objWMIService As Variant
Const Computer = "."
lstPrinter(0)=""
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" +Computer + "\root\cimv2")
Set vrPrinter = objWMIService.ExecQuery ("Select * from Win32_Printer")
i=0
ForAll objPrinter In vrPrinter
MsgBox objPrinter.Name
lstPrinter(i)=objPrinter.Name
i=i+1
End ForAll
Set vrPrinter = Nothing
Set objWMIService = Nothing
PrinterList = lstPrinter
Erase lstPrinter
Merci d'avance.
