Foro de elhacker.net

Un saludo para todos,

espero que alguien me pueda ayudar soy nuevo en el mundo de script y me gustaria aprender.

bueno mi pregunta es la siguiente. Tengo un servidor de impresoras con mas de 100  impresoras y lo migre a otro servidor, ahora necesito que los usuario se les mapee las impresoras al nuevo servidor, revisando encontre este script que lee desde un excel y mapea las impresoras, mi problema es como puedo cambiar la instruccion del excel para que me lea de una archivo CSV o TXT, adjunto el script para que alguien me pueda ayudar

si se puede reducir el codigo seria excelente.


Saludo

#############################################333
Dim ObjNet,ObjGroup                                  
Dim ComputerName,UserNamedim,CompType                 
 
'###Fin declaración variables#####################################################################
 
'###creación objetos    
 
Set OBJnet = CreateObject("WScript.Network")           'crea el objeto net
 
'###fin creación objetos###########################################################################
 
 
'####inicialización  variables#####################################################################
 
   	ComputerName = ObjNet.ComputerName             'no necesita explicación...
   	UserName = ObjNet.username                     'coje el nombre
 
 
'### fin de inicialización variables ##################################################################
 
'### MAIN ############################################################################################
 
if not existe then 'Comprueba que existe el fichero c:\temp\existe.txt. si no existe, es la primera vez que se ha entrado
    WScript.Echo "User Name:        " & UserName
    WScript.Echo "computername:     " & ComputerName
    wscript.echo "tipo de máquina : " & tipoMaquina(ComputerName)'Por el tipo de letra del nombre, determina tipo de máquina.
 
     RemoveAllPrinters 'LAS BORRA TODAS BIEN BORRADAS.
     wscript.echo excel
    createafile 'crea el archivo para no ejecutar más el script.
end if
 
'###END MAIN ############################################################################################
 
 
'###FUNCIONES y RUTINAS ##############################################################################################
 
Function TipoMaquina(strcomputername)
on error resume next
CompType = ucase(mid(StrComputerName,6,1))                'determina que tipo de maquina es por la letra del nombre                                                                     'Desktop(D),Laptop(L) o server(0)
         select case CompType
		case "D" TipoMaquina = "desktop"
		case "N" TipoMaquina = "Laptop"
		case "0" TipoMaquina= "servidor"
		case else TipoMaquina = "error"
        end select
 
End Function
 
 
 
sub MapDrive(strDrive,strShare)                           'intenta mapear la unidad vía funcion y devuelve error false o true
	on error resume next                              ' si no se pone, para en el error y no comprueba el condicinoal del Err
	ObjNet.MapNetworkDrive strDrive,strShare
        If Err  Then
		ObjNet.RemoveNetworkDrive strDrive
               	ObjNet.MapNetworkDrive strDrive,strShare
        End If
End sub		
 
 
 
function  Getgroup(user,group) 'devuelve true or false dpendiendo si es del grupo o no. No hay otra manera de hacerlo
 Dim DomainName
 DomainName = "WinNT://MIDOMINIO/" 'cambiar al dominio propio.
 
          on error resume next
 
          Set ObjGroup = GetObject(DomainName &group)
          	if err then
          		wscript.echo "No existe el grupo : "&group
          		GetGroup = False
          	else
	               If ObjGroup.IsMember(DomainName&user) = true Then
  			       wscript.Echo "si, pertenece al grupo "&group
              		       Getgroup = True
              		Else
                 		wscript.Echo "No pertenece al grupo "&group
                 		Getgroup = False
                	End If
                 end if
end function
 
Function Excel 
 
 ArrayCols = Array ("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O","P","Q", "R", "S", "T", "U","V","W","X","Y","Z")
                         'Define la tabla con letras, para hacer búsquedas secuenciales en el excel.
  Dim libro
  dim Intfil,Intcol
  dim RutaExcel
  RutaExcel = "\\RUTA_AL_EXCEL"
  set libro = Wscript.CreateObject("Excel.Application")
  call libro.Workbooks.Open(RutaExcel,0)
 
   libro.Sheets(1).Activate
        Intcol = 0                                 'esto es un hack, para no declarar más veces la variable
	do
                IntFil = 1
                if Getgroup (Username,libro.Range(ArrayCols(Intcol) & Intfil).Text) = True then	'Comprueba si el usuario pertenece al grupo								'Recorre las columnas y luego las filas, comparando si es distinto de espacio en blanco, en caso negativo, si la fi
			Do while libro.Range(ArrayCols(Intcol) & Intfil+1).Text <>  ""
                               wscript.echo "Instalando la impresora : " & libro.Range(ArrayCols(Intcol) & Intfil+1).Text & " espere... "
                               Objnet.AddWindowsPrinterConnection libro.Range(ArrayCols(Intcol) & Intfil+1).Text  'instala impresora
                               IntFil = IntFil + 1
			Loop
                        intfil = 1 'Para volver a la primera fila otra vez y comparar
		end if
                Intcol = Intcol + 1
	loop while  libro.Range(ArrayCols(Intcol) & Intfil).Text <> ""
        libro.Quit 'IMPORTANTÍSIMOOOOOOOOO. es como los accesos via ADOdb. Se ha de cerrar conexion sino queda zombi
end function
 
Function RemoveAllPrinters
On Error Resume Next
set objNetwork = CreateObject("wscript.network")
Set objPrinters = objNetwork.EnumPrinterConnections
For i = 0 to objPrinters.Count - 1 Step 2
    PrinterPath = objPrinters.Item(i+1)
    wscript.echo  "eliminando impresora : " & printerpath & " Espere..."
    objNetwork.RemovePrinterConnection PrinterPath, true, true
Next
 
end function
 
Function existe
Dim Exist
   Set Exist = CreateObject("Scripting.FileSystemObject")
   If (Exist.FileExists("c:\temp\existe.txt")) Then
    existe = True
   Else
     existe = False
   End If
 
End Function
 
 
Sub CreateAfile
   Dim fso, MyFile
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set MyFile = fso.CreateTextFile("c:\temp\existe.txt", True)
   MyFile.Close
End Sub

Aquí esta un manual muy bueno http://foro.elhacker.net/scripting/tutorial_vbscript-t229032.0.html;msg1090556 (http://foro.elhacker.net/scripting/tutorial_vbscript-t229032.0.html;msg1090556) Escrito por Novlucker en Diciembre del 2008, y abajo te cito la parte del Tutorial que te servira, mucha suerte!!

Hola,

la respuesta esta muy bien, pero disculpar mi ignorancia eh estado probando introducir el codigo con la ruta del archivo y no me puedo aclarar, no se si me puedes orientar si lo que reemplazo esta correcto, me estoy iniciando en este campo y aun no lo tengo muy claro, ya descarge los manuales que me indicaste y estan muy bien.

se que hay veces estos temas cansan cuando las personas son novatas y en verdad debe ser algo facil.

si los cambios que realizo son solo en estas lineas o afectaran a las demas ?

saludos

Function texto 
 
 
 ArrayCols = Array ("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O","P","Q", "R", "S", "T", "U","V","W","X","Y","Z")
                         'Define la tabla con letras, para hacer búsquedas secuenciales en el excel.
  Dim libro
  Dim Intfil,Intcol
  Dim archivotexto
 
Set objfso = createobject("scripting.filesystemobject")
Set archivotexto = objfso.opentextfile("C:\impresoras1.txt",1)	'abrimos el archivo
msgbox archivotexto.readline					'leemos una linea, la primera
archivotexto.skipline							'saltamos una linea
msgbox archivotexto.readline					'leemos una linea, la tercera
archivotexto.close							'cerramos el archivo
 
  'RutaExcel = "C:\impresoras1.xls"
 ' Set libro = Wscript.CreateObject("Excel.Application")
  Call libro.Workbooks.Open(archivotexto,0)
 
   libro.Sheets(1).Activate
        Intcol = 0                                 'esto es un hack, para no declarar más veces la variable
	do
                IntFil = 1
                if Getgroup (Username,libro.Range(ArrayCols(Intcol) & Intfil).Text) = True then	'Comprueba si el usuario pertenece al grupo								'Recorre las columnas y luego las filas, comparando si es distinto de espacio en blanco, en caso negativo, si la fi
			Do while libro.Range(ArrayCols(Intcol) & Intfil+1).Text <>  ""
                               wscript.echo "Instalando la impresora : " & libro.Range(ArrayCols(Intcol) & Intfil+1).Text & " espere... "
                               Objnet.AddWindowsPrinterConnection libro.Range(ArrayCols(Intcol) & Intfil+1).Text  'instala impresora
                               IntFil = IntFil + 1
			Loop
                        intfil = 1 'Para volver a la primera fila otra vez y comparar
		end if
                Intcol = Intcol + 1
	loop while  libro.Range(ArrayCols(Intcol) & Intfil).Text <> ""
        libro.Quit 'IMPORTANTÍSIMOOOOOOOOO. es como los accesos via ADOdb. Se ha de cerrar conexion sino queda zombi
end function

Buenas

No me gusta el script :xD , 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? :P

Saludos

Hola,

Gracias por la pronta respuesta, si el script es muy extenso. si hay alguna manera de acortarlo seria bueno.

esta es la estructura del CSV
Prueba1                                 Prueba2                      Prueba3
\\server1\123456                 \\server1\123456              \\server1\12345678
\\server1\12345678      

estoy probando en maquinas virtuales para luego pasarlo a lo real.
claro si se puede hacer mas simple y me puedes indicar como hacerlo te lo agradecere.

otra consulta, aparte de los tutoriales que publicaste y muchos ejemplos en el foro, conoceras algun buen libro el cual pueda leer para poder practicar, Si esta en castellano seria mejor.

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" :P.

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

Saludos

Hola,

te comento prueba1 prueba2 y prueba3 son grupos que eh creado en mi Active directory para realizar pruebas.

la estructura seria asi :

Prueba1(OU)            Prueba2(OU)             Prueba3 (OU)
\\server\impresora  \\server\impresora     \\server\impresora

lo que quiero es que cuando inicie la sesion el usuario valide al grupo que pertenece y asi pueda asignar la impresora.

otra opcion seria que verifique que impresoras tiene el usuario y solo cambie la ruta del servidor a donde imprimira.

son opciones no se cual me recomiendas.

sobre los tutoriales estan muy bien, si lo pudieras terminar y poner algunos ejemplos para poder practicar seria genial.

Saludos

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

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

Si le das un vistazo al script center de technet lo mismo encuentras una solucion que no use un archivo y se base en las politicas de grupo.

http://www.microsoft.com/spain/technet/recursos/script.mspx

Creo que uno de los que se adaptan a lo que quieres es este de visual b:
Map Printers Based on Group Membership
http://gallery.technet.microsoft.com/scriptcenter/bf160908-93e3-484c-944f-1c95004c5498

on error resume next 
Dim objADSystemInfo, objUser, objMemberOf, objGroup, objGroupEnum, objNetwork, objPrinter dim i, bTroubleFlag 
 
Set objNetwork = CreateObject("Wscript.Network") 
 
'Get current user info from active directory 
Set objADSystemInfo = CreateObject("ADSystemInfo") 
'bind to current user in active directory
set objUser = GetObject("LDAP://" & objADSystemInfo.UserName) 
 
if objuser.description = "printer.trouble" then 
    bTroubleFlag = true 
    msgbox "Troubleshooting Printer Logon Script" 
end if 
 
Set objPrinter = objNetwork.EnumPrinterConnections 'Test to see if we have any printers mapped If objPrinter.Count > 0 Then 
    'The Printer array is Printer name, printer path that is why it is step 2 
    for i=1 to objPrinter.Count Step 2 
        'test to make sure it is a network printer 
        if instr(objPrinter.Item(i),"\\") <> 0 then 
            if bTroubleFlag then 
                msgbox "Deleting:" & vbcrlf & 
objPrinter.Item(i) 
            end if 
            objNetwork.RemovePrinterConnection 
objPrinter.Item(i),true,true 
        end if 
    next 
end if 
 
 
'Get an array of group names that the user is a member of objMemberOf = objUser.MemberOf for Each objGroup in objMemberOf 
    'Test to see if it is a printer group. all printer groups should be in the same OU 
    if (instr(objGroup,"OU=Printer-Groups") <> 0) then 
        'Bind to the group to get is description. The description contain the path to the printer 
        set objGroupEnum = GetObject("LDAP://" & objGroup) 
        if bTroubleFlag then 
            msgbox "Adding:" & vbcrlf & "[" & 
objGroupEnum.name & "]" & vbcrlf & objGroupEnum.description 
        end if 
        objNetwork.AddWindowsPrinterConnection 
objGroupEnum.description 
        set objGroupEnum = nothing 
    end if 
next 
'Repeat as above for the default printer for Each objGroup in objMemberOf 
    if (instr(objGroup,"OU=Printer-Default-Groups") <> 0) then 
        set objGroupEnum = GetObject("LDAP://" & objGroup) 
        if bTroubleFlag then 
            msgbox "Setting Default:" & vbcrlf & "[" & objGroupEnum.name & "]" & vbcrlf & objGroupEnum.description 
        end if 
        objNetwork.SetDefaultPrinter objGroupEnum.description 
        set objGroupEnum = nothing 
    end if 
next 
 
if bTroubleFlag then 
    msgbox "Printer Logon Script Finished" 
end if 
 

Hola Novlucker,

probe el script y no me agrega ninguna impresora.

si suena bien esto de cambiar el nombre del servidor pero hay que tener en cuenta si el equipo es nuevo como saber que impresoras le corresponde ???.

saludos

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

Hola,

Gracias 0,0 por responder a mi preguntael script esta bien.

Que cambios se tendria que hacer ??


Saludos

Hola,

probe el script que me comento  0,0 y me sale este error ??

Microsoft (R) Windows Script Host versión 5.8
Copyright (C) Microsoft Corporation 1996-2006. Reservados todos los derechos.

\\192.168.2.140\netlogon\prueba.vbs(20, 47) Error de compilación de Microsoft VBScript: Error de sintaxis


***** script completed - exit code: 1 *****

Linea en el que sale error .

20                msgbox "Deleting:" & vbcrlf &
 

Si lees la discusion del centro de scritps creo que lo mencionan. Esa parte es para borrar las impresoras anteriormente mapeadas, esa parte la puedes eliminar sin problemas.


El no borrar las impresoras mapeadas simplemente te dará problemas si el usuario tiene impresoras mapeadas del anterior server y si cambias las impresoras asignadas a los grupos. Se iran quedando todas las impresoras no validas mapeadas. No se si alguien puede corregir esa parte.

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

Saludos

Hola Novlucker,

te agrdesco el interes que pones a la pregunta, es el unico foro que contesta las pregunta con una rapidez impresionante.

Gracias a todos  por la ayuda y a la espera de tus comentarios.

Saludos

Evidentemente las unidades organizativas vienen comentadas porque tienes que poner tu la unidad tal y como la hayas creado en el AD. Y ni que decir tiene que si descomentas el código seguiría sin funcionar hasta que no crees tu la OU en tu AD.

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

Set objADSystemInfo = CreateObject("ADSystemInfo")

...y sin eso, desde el vamos no podrás obtener los atributos del AD :P

Saludos

Si, descomenté el

y el siguiente


Por la breve discusión que hay en la fuente(puse en enlace junto al codigo) hay mas errores. No entendi muy bien que hay que borrar del primer Dim:


¿Es solo el dim i o el resto a partir de ahí también?

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

Saludos

Yo lo decía porque el siguiente problema que se encuentra es el bTroubleFlag y justo aparece con el dim

Esa "bandera" es una chapuza de alguien :xD , así debería de funcionar

on error resume next 
 
Set objNetwork = CreateObject("Wscript.Network") 
 
'Get current user info from active directory 
Set objADSystemInfo = CreateObject("ADSystemInfo") 
'bind to current user in active directory
set objUser = GetObject("LDAP://" & objADSystemInfo.UserName) 
 
Set objPrinter = objNetwork.EnumPrinterConnections
'Test to see if we have any printers mapped 
If objPrinter.Count > 0 Then 
    'The Printer array is Printer name, printer path that is why it is step 2 
    for i=1 to objPrinter.Count Step 2 
        'test to make sure it is a network printer 
        if instr(objPrinter.Item(i),"\\") <> 0 then
            objNetwork.RemovePrinterConnection objPrinter.Item(i),true,true 
        end if 
    next 
end if 
 
'Get an array of group names that the user is a member of objMemberOf
objMemberOf = objUser.MemberOf
for Each objGroup in objMemberOf 
    'Test to see if it is a printer group. all printer groups should be in the same OU 
    if (instr(objGroup,"OU=Printer-Groups") <> 0) then 
        'Bind to the group to get is description. The description contain the path to the printer 
        set objGroupEnum = GetObject("LDAP://" & objGroup) 
        objNetwork.AddWindowsPrinterConnection objGroupEnum.description 
        set objGroupEnum = nothing 
    end if 
next
 
'Repeat as above for the default printer
for Each objGroup in objMemberOf 
    if (instr(objGroup,"OU=Printer-Default-Groups") <> 0) then 
        set objGroupEnum = GetObject("LDAP://" & objGroup) 
        objNetwork.SetDefaultPrinter objGroupEnum.description 
        set objGroupEnum = nothing 
    end if 
next

Obviamente la solución que se plantea es tener un agregar los usuarios a un grupo para las impresoras, en cuya descripción de grupo esta la ruta al servidor. Esos son los que aparecen en las líneas 26 y 36 del script.

Se podrían llegar a poner varios servidores para un mismo grupo, pero primero habría que ver si este funciona :P

La primera parte elimina todas las impresoras de red, la segunda agrega las nuevas, y la última configura las por defecto.

Saludos

Lo de la ruta del servidor y los dos servidores no lo entendi. El script coge la ruta de ldap por pertenencia a un dominio y no hace falta ruta de servidor. En el caso de dos servidores de impresión tampoco hay que añadir ruta ni nada si estan dentro del mismo dominio porque la impresoras son objetos  del Active directory y simplemente hay que añadirlas a la unidad organizativa correspondiente.

Lo que si hay que hacer es crear una unidad organizativa donde se definan los grupos de usuario y que impresora le corresponden.

Hola,

Ejecute el script sobre el dominio y el resultado es el siguiente.

Copyright (C) Microsoft Corporation 1996-2006. Reservados todos los derechos.


***** script completed - exit code: 0 *****

* Lo que comenta 0,0 es agregar las impresoras al grupo es un opcion valida.
* por ese motivo queria que lea desde un archivo plano CSV o TXT para que el          mantenimiento sea mas facil y no se manipule el Active directory sino el archivo para cualquier cambio, alta o baja de impresora.

archivo plano CSV o TXT:
prueba1 (OU)                prueba2 (OU)              prueba3 (OU)
\\server\impresora        \\server\impresora      \\server\impresora

* Cuando el usuasrio inicie la sesion se ejcute el script
* El script compare si pertenece al grupo.
* El script lea desde un archivo plano CSV o TXT
* si pertenece que elimine las impresoras y mapee las nuevas

espero no complicar a nadie y no ser tan fastidioso lo que pido es que ser novato en estos temas es complicado.

Saludos

0,0 ,es que eso no es lo que hace el script, lo único que he hecho es adaptar el que habías puesto.

'Coleccion de grupos a los que pertenece el usuario
objMemberOf = objUser.MemberOf
'Por cada grupo en la lista
for Each objGroup in objMemberOf
	'Si hay una unidad con nombre Printer-Groups
	if (instr(objGroup,"OU=Printer-Groups") <> 0) then
		'Obtenemos el grupo
	        set objGroupEnum = GetObject("LDAP://" & objGroup)
		'Nos conectamos a la impresora utilizando la ruta que aparece en la descripcion de grupo
	        objNetwork.AddWindowsPrinterConnection objGroupEnum.description 
	        set objGroupEnum = nothing 
	end if 
next

Saludos

Hola,

Si entiendo lo que me comentas, esta todo muy bien y te agradezco por el tiempo.
Mi pregunta es este script se puede adecuar al comentario que te hice que lea desde una archivo plano CSV o TXT y compare desde el archivo los grupos y las impresoras sin tener que manipular el active directory.

Saludos

hola,

Uff no me funciona el script no me mapea las impresoras que estan en la OU, pero bueno sigo intentando modificar el script para que pueda leer desde un cvs o txt para no manipular el active directory.

saludos

No entendí lo que quieres decir Novlucker, creo que se lo decias a el y pusiste mi nombre o realmente no entendi nada :xD No tienes que meter la ruta del servidor ni impresora en el script.


El script que yo puse supone que el entorno es un dominio windows en el que las impresoras están en el active directory. Lo que hace es mirar la unidad organizativa de impresion que creas en el AD a la que pertenece el usuario que está iniciando sesión y en la que esta la relación de usuarios e impresoras asociadas. Se trata de que tu agreges y quites impresoras en el active directory y script solo es para mapearlas de acuerdo con lo que aparezca en la unidad organizativa.

Lo otro que propones con el archivo de texto es un poco chapuza ya que tienes que dar permisos a los usuarios para agregar y quitar impresoras en red sin contar con los permisos del servidor de impresión (ya que no deseas tocar el AD). Es mas facil administrar la impresoras mediante una unidad organizativa que lo del archivo de texto por el tema de permisos.

efer27, ¿Has creado la OU "Printer-Groups" y has metido en ella los usuarios asociados a las impresoras?

Puede ser 0,0, a lo mejor no nos estamos entendiendo, es que creo que me entiendo mejor con t0rete, se ha vuelto a ir? :xD
El problema de los "arreglos" que le he hecho al script son que basicamente ha sido con los ojos vendados, no tengo un AD para hacer las pruebas ni la soltura para manejarme de este modo :xD

Lo que digo seguramente este mal, pero se desprende de aquí;

'Bind to the group to get is description. The description contain the path to the printer
set objGroupEnum = GetObject("LDAP://" & objGroup)
objNetwork.AddWindowsPrinterConnection objGroupEnum.description 

Saludos

Hola a todos,

0,0 si eh creado el grupo y asocie los usuarios a la impresora y no pasa nada ejecuta normal pero el problema no lo resuelvo.

bueno en verdad no se que pasa, por eso preguntaba para evitar manipular el active directory no seria mas facil crear un array para que lea desde un CSV y TXT, es una pregunta no se si sea factible.

Saludos

Holaa todos,

revisando el programa me encuentro con un error en esta instrucción.
no se que pasa que en el mensaje me sale el print count 2

alguien sabe el motivo ?

Public Sub EliminarPRN(pobjNetwork)
Dim objPrinter 
 
	'Creación objeto prn red
	Set objPrinter = pobjNetwork.EnumPrinterConnections
 
	'Comprueba si hay alguna impresora asignada 
	MsgBox objPrinter.Count
	If objPrinter.Count > 0 Then 
 
	    'The Printer array is Printer name, printer path that is why it is step 2 
	    for i=1 to objPrinter.Count Step 2 
 
	        'Comprueba si es una impresora de red
	        if instr(objPrinter.Item(i),"\\") <> 0 Then
	           pobjNetwork.RemovePrinterConnection
	           objPrinter.Item(i),true,true 
	           MsgBox objPrinter.Item(1) & "-" & objPrinter.Item(2) & " Error:" & Error
	        End if 
 
	    next 
	end if 
 
End Sub

Si, que el código que pones es para Visual Basic (VB6) y no Visual Basic Script (vbs)

Saludos

Dejando solo el FOR al termino de la sentencia me sale igual

Hola,

Ahora me sale este mensaje al remover las impresoras

erro linea 31 columna 13 source: objNetwork.RemovePrinterConnection


saludos

Ahora de que script estamos hablando?

Saludos

Hola,


El script es el que enviastes enmensajes anteriores sale el error cuando quiere eliminar.

If objPrinter.Count > 0 Then
    'The Printer array is Printer name, printer path that is why it is step 2
    for i=1 to objPrinter.Count Step 2
        'test to make sure it is a network printer
        if instr(objPrinter.Item(i),"\\") <> 0 then
==>         objNetwork.RemovePrinterConnection objPrinter.Item(i),true,true
        end if
    next
end if

ok, ¿que tipo de error da? en el mensaje debe de tener una descripción.

Saludos

hola sale este mensaje

erro linea 31 columna 13 source: objNetwork.RemovePrinterConnection

no puede quitar las impresoras de red mapeadas

Ahí lo tienes claramente, probablemente sea problema de permisos.

Saludos

Hola,

ya revise los permisos y estan correcto pero no logro que el error no salga, no me elimina las impresoras que tengo mapeadas para luego agregarlas, ufff debe ser algo tonto pero no lo veo aun.

saludos

Por si acaso abre una consola con permisos de administrador, y desde ahí ejecuta el script.

Saludos

Hola,
si lo ejecute con permisos pero el error continua lo que hice fue lo siguiente.

Eliminar impresoras de RED
 
strComputer = "."
    Set WshNetwork = WScript.CreateObject("WScript.Network")
    Set objShell = CreateObject("Wscript.Shell")
    Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colInstalledPrinters = objWMIService.ExecQuery _
    ("Select * from Win32_Printer")
    For Each objPrinter in colInstalledPrinters
     if InStr(objPrinter.Name, "\\")> 0 then
        WshNetwork.RemovePrinterConnection objPrinter.Name
    end if
    Next

Ahora me falta agregarlas.

eh estado probando que leea desde un archivo plano pero no puedo lograrlo
es decir tengo el siguiente txt.

ouprueba1 \\server\printer
ouprueba2 \\server\printer
ouprueba3 \\server\printer

quiero que leea este archivo y lo compare con las ou que tengo en el active directory si pertenece el ou comparando con el txt que agregue la impresora.

a ver si me puedes ayudar yo sigo probando y te comento mis avances.

saludos

Hola,

eh estado revisando y es lo que tengo hasta el momento en algo me equivoco al momento de conectar

Elimina correctamente, hace el array pero no puedo agregarlo a ver si alguien me ayuda.

Gracias por la pasciencia.

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

'Set global script objects and variables
Set wshShell = WScript.CreateObject("WScript.Shell")
Set wshNetwork = WScript.CreateObject("WScript.Network")
Set wshObj = WScript.CreateObject("Scripting.FileSystemObject")

'Variables
strNetworkPath = "C:\Copia de impresoras1.txt"


'-----------------------------------------------------------------------------'
Eliminar impresora

'On Error Resume Next

Call DisconnectNetworkPrinters()
MsgBox "Ejecuta asignar prn"
Call ConnectPrinters(strNetworkPath, wshNetwork.computername)

Sub DisconnectNetworkPrinters()
  Set arPrinters = wshNetwork.EnumPrinterConnections

  For i = 0 to (arPrinters.Count - 1) Step 2
    If (Left(arPrinters.Item(i + 1), 2) = "\\") Then
      wshNetwork.RemovePrinterConnection arPrinters.Item(i + 1)
    End If
  Next
End Sub

'--------------------------------------------------------------------------------'
Conectar impresoras

Sub ConnectPrinters(strListFile, strCompname)
Dim arrLinParts()
Dim strCadTratar
  Set ListFile = wshObj.OpenTextFile(strListFile, 1)
 
  Do While ListFile.AtEndOfStream <> True
    strCadTratar = ListFile.ReadLine
    arrLineParts = Split(strCadTratar, Space(1))
   
    MsgBox strCompname & " " & strCadTratar
    If UCase(strCompname) = UCase(arrLineParts(0)) Then
   
      For i = 0 To UBound(arrLineParts)
        If arrLineParts(i) <> "" Then
          wshNetwork.AddWindowsPrinterConnection UCase(arrLineParts(i))
        End If
      Next
     
      If arrLineParts(1) <> "" Then
        wshNetwork.SetDefaultPrinter UCase(arrLineParts(1))
      End If
    End If
  Loop
 
  ListFile.Close
End Sub

Hola,

Alguien me puede ayudar ??