none
Como Mapear una unidad de red al iniciar sesion por Grupo de Usuarios

    Question

  • Hola, estoy necesitando una mano con esto:

    Tengo instalado un Servidor Windows 2003 en el que tengo a los usuarios organizados por grupos de acuerdo al sector al cual pertenecen. Hay en el file server una carpeta publica a la que todos tienen acceso, otra que es la carpeta propia del grupo al cual pertenecen y otra que es su home folder. Necesito saber como puedo automatizar de algun modo para que no importa en que maquina se loguee el usuario le mapee estas tres unidades, el publico, su carpeta de grupo y su home folder.

    Si alguien puede darme una mano les agradezco.

     

    Saludos a todos.

     

    Gabriel

    Monday, October 29, 2007 4:17 AM

Answers

  •  

    Hola Gabriel.

     

    Usando las GPO tienes que asignar a los usuarios un script de inicio de sesión.

    El script lo tendras que dejar en la carpeta netlogon o bien dentro de la propia GPO.

     

    En los siguientes enlaces tienes un par de ejemplos de scripts que mapean las unidades en función de los grupos de usuario.

     

    http://www.visualbasicscript.com/m_26699/tm.htm

    http://www.oreilly.com/pub/h/1130

     

    Un saludo.

    http://geeks.ms/blogs/dmatey

     

    Monday, October 29, 2007 6:51 AM
  • Este es un logon Script Basico , en el cual puedes declarar los grupos correspondientes, agregando lineas de Constantes o bien llamando al grupo mediante "cn = grupo"

    Tambien agrega segun el grupo al que pertenezca las impresoras que queramos y predetermina la que elijamos.

     

     

    Bloque de código

    Const Sistemas    = "cn=sistemas,"

    Const Marketing     = "cn=Marketing,"

     

    On error resume next

     

    ' Mapea en la unidad H la home folder del usuario.

    Set wshNetwork = CreateObject("WScript.Network")
    wshNetwork.MapNetworkDrive "H:", "
    \\server\" & wshNetwork.UserName

     

     

    Set ADSysInfo = CreateObject("ADSystemInfo")
    Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName)
    strGroups = LCase(Join(CurrentUser.MemberOf))

     

    'Mapeo de Disco Publico para Todos los usuarios
    wshNetwork.MapNetworkDrive "P:", "
    \\server\PUBLICO"


     

     

    'Mapeo segun sector de trabajo.

     

    If InStr(strGroups, "cn=sistemas,")  Then
     wshNetwork.MapNetworkDrive "S:", "
    \\server\sistemas"

    End if

     

    'Mapeo de Impresora segun grupo de pertenencia mapea las tres impresoras y pone

    'como impresora por default la printer1


    If InStr(strGroups, sistemas)   Then
    wshNetwork.AddWindowsPrinterConnection    "
    \\server\printer1"
    wshNetwork.AddWindowsPrinterConnection    "
    \\server\printer2"
    wshNetwork.AddWindowsPrinterConnection    "
    \\server\printer3"
    wshNetWork.SetDefaultPrinter
    \\server\printer1
    End if

     

     

     

    Slds
    Sebastian del Rio

    Monday, October 29, 2007 11:33 AM

All replies

  •  

    Hola Gabriel.

     

    Usando las GPO tienes que asignar a los usuarios un script de inicio de sesión.

    El script lo tendras que dejar en la carpeta netlogon o bien dentro de la propia GPO.

     

    En los siguientes enlaces tienes un par de ejemplos de scripts que mapean las unidades en función de los grupos de usuario.

     

    http://www.visualbasicscript.com/m_26699/tm.htm

    http://www.oreilly.com/pub/h/1130

     

    Un saludo.

    http://geeks.ms/blogs/dmatey

     

    Monday, October 29, 2007 6:51 AM
  • Este es un logon Script Basico , en el cual puedes declarar los grupos correspondientes, agregando lineas de Constantes o bien llamando al grupo mediante "cn = grupo"

    Tambien agrega segun el grupo al que pertenezca las impresoras que queramos y predetermina la que elijamos.

     

     

    Bloque de código

    Const Sistemas    = "cn=sistemas,"

    Const Marketing     = "cn=Marketing,"

     

    On error resume next

     

    ' Mapea en la unidad H la home folder del usuario.

    Set wshNetwork = CreateObject("WScript.Network")
    wshNetwork.MapNetworkDrive "H:", "
    \\server\" & wshNetwork.UserName

     

     

    Set ADSysInfo = CreateObject("ADSystemInfo")
    Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName)
    strGroups = LCase(Join(CurrentUser.MemberOf))

     

    'Mapeo de Disco Publico para Todos los usuarios
    wshNetwork.MapNetworkDrive "P:", "
    \\server\PUBLICO"


     

     

    'Mapeo segun sector de trabajo.

     

    If InStr(strGroups, "cn=sistemas,")  Then
     wshNetwork.MapNetworkDrive "S:", "
    \\server\sistemas"

    End if

     

    'Mapeo de Impresora segun grupo de pertenencia mapea las tres impresoras y pone

    'como impresora por default la printer1


    If InStr(strGroups, sistemas)   Then
    wshNetwork.AddWindowsPrinterConnection    "
    \\server\printer1"
    wshNetwork.AddWindowsPrinterConnection    "
    \\server\printer2"
    wshNetwork.AddWindowsPrinterConnection    "
    \\server\printer3"
    wshNetWork.SetDefaultPrinter
    \\server\printer1
    End if

     

     

     

    Slds
    Sebastian del Rio

    Monday, October 29, 2007 11:33 AM
  • Muchas gracias Sebastian por tu ayuda, ahora voy a mirarlo y probarlo.

    Nuevamente gracias.

     

    Tuesday, October 30, 2007 12:22 PM
  • Daniel, muchas gracias por tu ayuda, estoy viendo la documentaicion para ver como lo implemento.

     

    Saludos y gracias.

     

    Tuesday, October 30, 2007 12:23 PM
  • Una consulta mas,

    Cuando pongo el codigo siguiente para mapear varios grupos es valido ponerlo asi:

     

    Const Sistemas    = "cn=sistemas,"

    Const Marketing     = "cn=Marketing,"

    Const Ventas Regionales     = "cn=Ventas Regionales,"

     

    'Mapeo segun sector de trabajo.

     

    If InStr(strGroups, "cn=sistemas,")  Then
     wshNetwork.MapNetworkDrive "S:", "
    \\server\sistemas"

    End if

    'Mapeo segun sector de trabajo.

     

    If InStr(strGroups, "cn=Marketing,")  Then
     wshNetwork.MapNetworkDrive "S:", "
    \\server\sistemas"

    End if

    'Mapeo segun sector de trabajo.

     

    If InStr(strGroups, "cn=Ventas Regionales,")  Then
     wshNetwork.MapNetworkDrive "S:", "
    \\server\sistemas"

    End if

    la pregunta va referida a si asi se establecen las diferentes condiciones o debo hacerlo de otra forma y otra cosa es saber para el caso del ejemplo que pongo el grupo Ventas Regionales, es correcto ponerlo asi si el nombre del grupo tiene espacios ya que es de mas de una palabra.

     

    Nuevamente gracias, la informacion me ha sido de mucha utilidad.

    Friday, November 02, 2007 4:11 AM
  • Hola Sebastian...

     

    Mira tengo un problema com mis unidades de red mapeadas no se si tu me puedes ayudar mira tengo un problema al momento que mis usuarios se logean con su user y pass le aparecen la unidad Ejmp:

    u:\Privado\nombre usuario dentro de mi pc estasn dos letras de mapeo el P:\Publico y U:\Privado\nombre usuario que es el privado.

     

    Donde Publico es la carpeta pincipal donde se encuentran las carpetas personales de todos mis usuario de mi red.

     

    Pero mira el problema radica en que al momento de logeo dons d mis usuarios pueden ver toda mi carpeta de Privado y pueden ver las carpetas de todos los usuarios claro no pueden hacer modificaciones en varias de ellas por los permisos, pero en algunas pueden ver los archivos y esto me puede casar algun problema.

     

    No se si te puedo molestar haciendote una consulta

     

    mi msn es rz_paul@hotmail.com.

     

    Espero me puedas ayudar con alguna idea de como solucionar este `problema.

     

    ATT

     

    Paul CH

    Monday, January 26, 2009 8:04 PM
  • Consulta las CN se refieren a las OU o a los grupos?
    Tuesday, June 25, 2013 9:00 PM