none
Como identificar a impressora padrão RRS feed

  • Pergunta

  •  

    Amigos:

     

    Estou com uma dificuldade em construir um script que identifique no computador qual impressora está definida como padrão. Se alguém tiver uma luz de como identificar qual a impressora padrão eu agradeço muito.

     

    Desde já agradeço

    quarta-feira, 29 de agosto de 2007 20:24

Respostas

  • Tenta usar este:

     

    --------------------------

     

    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

    Set colInstalledPrinters =  objWMIService.ExecQuery _
        ("Select * from Win32_Printer")

    For Each objPrinter in colInstalledPrinters
        Wscript.Echo "Name: " & objPrinter.Name
        Wscript.Echo "Location: " & objPrinter.Location
        Wscript.Echo "Default: " & objPrinter.Default
    Next
     

    quinta-feira, 30 de agosto de 2007 00:06