Problème en listant les imprimantes
Bonjour,
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 :
Merci d'avance.
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.