Rilevazioni stampanti

[Teo80]

Sto usando WMI per rilevare le stampanti installate in un pc usando il seguente codice:

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonat e}!\\" & sComputer & "\root\cimv2")
Set colInstalledPrinters = objWMIService.ExecQuery("Select * from Win32_PrinterDriver")
For Each objPrinter in colInstalledPrinters
sStampanti = sStampanti & objPrinter.Name & "
"
Next

Il problema che ho incontrato è che se su un pc non è installata nessuna stampante viene restituito un errore sulla seconda riga (codice 80041010).
Sapete indicarmi un modo per gestire il caso in cui non vi sia nessuna stampante installata?
Grazie!

[Teo80]

Rettifico: il problema è che lo script l'ho provato su windows 2000

[LMondi]

Ma non hai inserito un gestore degli errori?
Prova così:

Private Sub Command1_Click()
On Error GoTo Command1_Click_Error  

'Codice procedura .... ....

On Error GoTo 0
   Exit Sub

Command1_Click_Error:
    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Command1_Click of Form Form1"

End Sub

Ciao.

[Teo80]

Sì, era solo la parte che dava errori: mi interessava come riuscire a rilevare le stampanti anche su windows 2000.

[oregon]

Scusa ... non ho capito dalla tua ultima risposta ...

Hai il problema dell'errore nel caso in cui non c'e' neanche una stampante (e hai rimediato con l'on error) oppure hai comunque un problema quando il programma gira su Windows 2000 ?