Mensajes

No he podido mirarlo aún, había salido a comer, aquí ahora son las 14:00
Da igual, en vbs los Dim no son necesarios, así que podrías quitar la línea entera que no afecta en nada.

Saludos

Es que esta línea por ejemplo viene comentada ...

Código (vb) [Seleccionar] Expandir

Set objADSystemInfo = CreateObject("ADSystemInfo")
...y sin eso, desde el vamos no podrás obtener los atributos del AD

Saludos

[Kamsky]

Sobre el chat, hace un tiempo estabamos muy felices Kamsky y yo creando una app en python+qt4 para sniffar las conversaciones de Facebook en red para publicar en el foro, la idea era que se viera tal cual un messenger y se pudiera elegir las diferentes conversaciones. El truco era mostrar como aunque estuvieses por httpS, el chat no estaba cifrado .

Para nuestra desgracia, cuando llevabamos algo avanzado alguien más publicó esto y nos arruinó la gracia ... ahora creo que el chat si va cifrado

Saludos

En cuanto tenga un rato lo miro, pero por lo pronto hay partes del script que estan comentadas, sin las cuales no funciona

Saludos

[0,0]

Es que el script que te había dejado solo listaba, no agregaba ninguna impresora.
Para lo que pides te serviría el que ha dejado 0,0, solo que tal vez habría que hacerle un par de modificaciones.

Saludos

Me gusta más la opción de obtener las impresoras actuales y cambiar el nombre del servidor
Prueba esto a ver si se listan bien las impresoras remotas, que las que tengo ahora son IP y van en local

Código (vb) [Seleccionar] Expandir

Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=Impersonate}!\\.\root\cimv2")
Set colPrinters = objWMIService.ExecQuery("SELECT * FROM Win32_Printer")
For Each p in colPrinters
if p.ServerName <> vbnull then
msgbox p.ServerName & " - " & p.Name
end if
next

Dime como te aparece el texto

Saludos

Una cosa es que te puedan triangular las operadoras y otra muy distinta es que lo haga un tercero, en alguien tengo que "confiar", porque ocurre lo mismo con los proveedores de ISP.

Saludos

Más preguntas ...

Cada una de esas rutas apunta a una impresora pero, ¿qué significa Prueba1, 2 y 3?
La verdad que en lo que respecta a libros, cuando hice el tuto fue porque cuando me interesé en vbs no encontraba material en español en ningún lado, salvo la msdn, por lo que el tuto también me servía como "ayuda memoria" .

Lo bueno hubiese sido terminarlo en algún momento, y ahora que lo veo, había muchisimo para mejorar

Saludos

Tarde o temprano habrá que migrar a la versión 3.x. El problema actual es que la mayoría de los scripts han sido creados en la versión 2.6 y no se ha planteado migrarlos, además de que hay muchos modulos muy populares que aún no son compatibles con esta versión.

También hay casos especiales como los de Google Appengine, donde incluso siguen con la versión 2.5

Saludos

Buenas

No me gusta el script , podría ser mucho más simple.

Podrías poner un par de líneas del CSV o TXT para ver como esta la estructura?

Saludos