Mapeo de impresoras en red por usuarioa

[efer27]

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

[efer27]

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 ?

Código (vb) [Seleccionar] Expandir

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

[Novlucker]

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

Saludos

[efer27]

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

[efer27]

Hola,

Ahora me sale este mensaje al remover las impresoras

erro linea 31 columna 13 source: objNetwork.RemovePrinterConnection


saludos

[Novlucker]

Ahora de que script estamos hablando?

Saludos

[efer27]

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

[Novlucker]

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

Saludos

[efer27]

hola sale este mensaje

erro linea 31 columna 13 source: objNetwork.RemovePrinterConnection

no puede quitar las impresoras de red mapeadas

[Novlucker]

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

Saludos