Visual Basic para Aplicaciones - Vbscript funciona en Xp pero no en 2003

Life is soft - evento anual de software empresarial
 
Vista:

Vbscript funciona en Xp pero no en 2003

Publicado por Davo (1 intervención) el 12/09/2008 21:23:17
Hola a todos tengo un problema que me carcome el cerebro.

Este es el script basico para listar las propiedades de un puerto Standard TCP/IP de las impresoras. Cuando lo corro en mi maquina (un Windows XP) anda 10 puntos, pero cuando lo corro en un windows 2003, solo me lista el nombre del puerto y todos los demas campos vacios.
Alguna idea??

Desde ya muchas gracias

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

Set colPorts = objWMIService.ExecQuery _
("Select * from Win32_TCPIPPrinterPort")

For Each objPort in colPorts
Wscript.Echo "Description: " & objPort.Description
Wscript.Echo "Host Address: " & objPort.HostAddress
Wscript.Echo "Name: " & objPort.Name
Wscript.Echo "Port Number: " & objPort.PortNumber
Wscript.Echo "Protocol: " & objPort.Protocol
Wscript.Echo "SNMP Community: " & objPort.SNMPCommunity
Wscript.Echo "SNMP Dev Index: " & objPort.SnMPDevIndex
Wscript.Echo "SNMP Enabled: " & objPort.SNMPEnabled
Next
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder