none
Dúvida para imprimir valor de variavel RRS feed

  • Pergunta

  • Ola a todos,

    Estou com um dúvida eu considero básica mas toh apanhando, vejam o código abaixo

    strComputer = "."
    Set objWMIPrinter = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    sql = "select * from Win32_Printer"
    Set PrinterInstaladas = objWMIPrinter.ExecQuery(sql)
    wscript.echo PrinterInstaladas

    Ele retorna tipos incompativeis, ai preciso do for para conseguir visualizar o resultado, ai queria testar o retorno se a variavel PrinterInstaladas esta vazia tentei o IsNull, fiz uma consulta que retorna valores e outra não e em ambas retorna zero conforme abaixo

    strComputer = "."
    Set objWMIPrinter = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    sql = "select * from Win32_Printer"
    Set PrinterInstaladas = objWMIPrinter.ExecQuery(sql)
    wscript.echo isNull(PrinterInstaladas)

    Teria algum comando ou metodo que possa descobri de que tipo e essa variavel visualizar ela, para que eu possa testar e executar um procedimento se existe impressoras instaladas e outro procedimento senão existem? Se alguem tiver alguma idéia desde já agradeço.

    Atenciosamente.
    sexta-feira, 1 de fevereiro de 2008 20:01

Respostas

  • Ricardo, se quer ver se existe impressoras instaladas segue o codigo Wink

     

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

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

    If colInstalledPrinters.count = 0 then
    wscript.echo "não existe impressoras instaladas"
    else
    wscript.echo "existe impressoras instaladas"
    end if

    • Marcado como Resposta Ricardobarbosams segunda-feira, 19 de dezembro de 2011 18:30
    sexta-feira, 1 de fevereiro de 2008 20:15