conectando a unidades segun usuario de AD

02/06/2006 - 20:31 por Macleod | Informe spam
Q'tal a todos!!

Tengo un script de inicio que conecta a mis usuarios a ciertas unidades de
red dependiendo del grupo en Active Directory al que pertenecen, lo mismo
para su impresora predeterminada.

Ahora la pregunta es... ¿Cómo conecta a una unidad en particular solo a un
usuario determinado que está dado de alta en mi Active Directory?

De antemano MUCHAS GRACIAS!!

Mi script es el siguiente:

If fl_Es_Miembro("Area_de_usuario")=True Then

Set objNetwork = CreateObject("WScript.Network")
objNetwork.MapNetworkDrive "G:", "\\servidor\Departamento"
objNetwork.MapNetworkDrive "P:", "\\servidor\Publico"
objNetwork.MapNetworkDrive "S:", "\\servidor\Compartido"

Set WshNetwork = CreateObject("WScript.Network")
PrinterPath = "\\servidor\impresora"
PrinterDriver = "oki b6300(ps)"
WshNetwork.AddWindowsPrinterConnection PrinterPath, PrinterDriver
WshNetwork.SetDefaultPrinter "\\servidor\impresora"

EnD If
 

Leer las respuestas

#1 Marc [MVP Windows]
02/06/2006 - 22:43 | Informe spam
Mira si con la herramienta del Resource Kit "ifMember" puedes hacer lo que quieres: http://windows.ittoolbox.com/docume...-2000-2386


Saludos,

Marc
MVP Windows Shell/User
MCSA Windows Server 2003
Oracle9i Certified Associate (OCA)

Este mensaje se proporciona "como está" sin garantías de ninguna clase, y no otorga ningún derecho.

This posting is provided "AS IS" with no warranties, and confers no rights. You assume all risk for your use.

"Macleod" escribió en el mensaje news:
Q'tal a todos!!

Tengo un script de inicio que conecta a mis usuarios a ciertas unidades de
red dependiendo del grupo en Active Directory al que pertenecen, lo mismo
para su impresora predeterminada.

Ahora la pregunta es... ¿Cómo conecta a una unidad en particular solo a un
usuario determinado que está dado de alta en mi Active Directory?

De antemano MUCHAS GRACIAS!!

Mi script es el siguiente:

If fl_Es_Miembro("Area_de_usuario")=True Then

Set objNetwork = CreateObject("WScript.Network")
objNetwork.MapNetworkDrive "G:", "\\servidor\Departamento"
objNetwork.MapNetworkDrive "P:", "\\servidor\Publico"
objNetwork.MapNetworkDrive "S:", "\\servidor\Compartido"

Set WshNetwork = CreateObject("WScript.Network")
PrinterPath = "\\servidor\impresora"
PrinterDriver = "oki b6300(ps)"
WshNetwork.AddWindowsPrinterConnection PrinterPath, PrinterDriver
WshNetwork.SetDefaultPrinter "\\servidor\impresora"

EnD If

Preguntas similares