Mapeo de unidades asignado a grupos

Es muy fácil Hirgan nosotros lo hacemos de la siguiente forma. Creas
archivos de procesos por lotes que conecten a unidades de red del tipo:

net use h: \\servidor\carpeta

creas tantos archivos como necesites y los colocas en una carpeta
compartida.

Luego creas Gpos que ejecuten dichos archivos por lotes en función de los
grupos, es decir, modificar la seguridad de las gpos para que sólo
determinados grupos puedan leer cada una de las gpos.

De esta forma, cuando cambies a una persona de grupo automáticamente se le
conectan las nuevas unidades.

Nota: antes de conectar las unidades de red pon una línea para que
desconecte las unidades anteriores.

Un saludo.
"Hirgan" escribió en el mensaje
news:

Buenas, me pongo en contacto con ustedes para ver si me pueden resolver
una
duda de configuracion en windows server 2003.

He montado un dominio, con sus correspondientes usuarios y grupos.
necesito
que los usuarios dependiendo del grupo al que pertenezcan se les mapeen
las
unidades de red correspondientes. Por usuario solo me deja mapear una
unidad
de red.

¿Podrian explicarme si hay algun modo de realizar esto? ¿Como tendria que
configurar el mapeo de dichas unidades de red?

Gracias.

Perdona mi ignorancia, pero como creo las Gpos y como asigno a cada grupo
el/los archivo/s por lotes que quiero que se ejecute cuando el usuario inicie
sesion?

Gracias

"juanma" escribió:

Es muy fácil Hirgan nosotros lo hacemos de la siguiente forma. Creas
archivos de procesos por lotes que conecten a unidades de red del tipo:

net use h: \\servidor\carpeta

creas tantos archivos como necesites y los colocas en una carpeta
compartida.

Luego creas Gpos que ejecuten dichos archivos por lotes en función de los
grupos, es decir, modificar la seguridad de las gpos para que sólo
determinados grupos puedan leer cada una de las gpos.

De esta forma, cuando cambies a una persona de grupo automáticamente se le
conectan las nuevas unidades.

Nota: antes de conectar las unidades de red pon una línea para que
desconecte las unidades anteriores.

Un saludo.
"Hirgan" escribió en el mensaje
news:
> Buenas, me pongo en contacto con ustedes para ver si me pueden resolver
> una
> duda de configuracion en windows server 2003.
>
> He montado un dominio, con sus correspondientes usuarios y grupos.
> necesito
> que los usuarios dependiendo del grupo al que pertenezcan se les mapeen
> las
> unidades de red correspondientes. Por usuario solo me deja mapear una
> unidad
> de red.
>
> ¿Podrian explicarme si hay algun modo de realizar esto? ¿Como tendria que
> configurar el mapeo de dichas unidades de red?
>
> Gracias.

Debes hacerlo asignando un script de incio de sesión
Abajo pego un ejemplo que puedes adaptar

'='
' VBScript Source File -- Created with SAPIEN Technologies PrimalSCRIPT(TM)
'
' NAME: <filename>
'
' AUTHOR: Bryan Nyce , Home
' DATE : 4/10/2003
'
' COMMENT: <comment>
'
'=Option Explicit
On Error Resume Next

Dim oFSO, oWshNetwork, oGroupDict

'Map drives based on Group memberships
If IsMember("Group1") Then
MapDrive "S:", "\\Server\Share"
End If

If IsMember("Group2") Then
MapDrive "T:", "\\Server\Share1"
MapDrive "P:", "\\Server2\Share2"
End If

'Supporting function to enumerate group memberships
Function IsMember(sGroup)
Dim sAdsPath, oUser, oGroup

If IsEmpty(oGroupDict) Then
Set oGroupDict = CreateObject("Scripting.Dictionary")
oGroupDict.CompareMode = vbTextCompare

sAdsPath = oNet.UserDomain & "/" & oNet.UserName
Set oUser = GetObject("WinNT://" & sAdsPath & ",user")

For Each oGroup In oUser.Groups
oGroupDict.Add oGroup.Name, "-"
Next

Set oUser = Nothing
End If

IsMember = CBool(oGroupDict.Exists(sGroup))

End Function

'Supporting function to Map drives
'If drive letter is in use, attempts to remove connection.
'Returns True if drive mapped, False otherwise.
Function MapDrive(sDrive, sShare)
Dim oDrive

On Error Resume Next
Err.Clear

If oFSO.DriveExists(sDrive) Then
Set oDrive = oFSO.GetDrive(sDrive)
If Err.Number <> 0 Then
Err.Clear
MapDrive = False
Exit Function
End If
If CBool(oDrive.DriveType = 3) Then
oNet.RemoveNetworkDrive sDrive, True, True
Else
MapDrive = False
Exit Function
End If
Set oDrive = Nothing
End If

oNet.MapNetworkDrive sDrive, sShare

'Error trapping
If Err.Number = 0 Then
MapDrive = True
Else
Err.Clear
MapDrive = False
End If
On Error GoTo 0
End Function


Saludos

Guillermo Delprato
MVP - MCT - MCSE - MCP
Buenos Aires, Argentina

NOTA. Por favor, las preguntas y comentarios en los grupos, así nos
beneficiamos todos. Este mensaje se proporciona "como está" sin
garantías de ninguna clase, y no otorga ningún derecho. Ud. asume los
riesgos This posting is provided "AS IS" with no warranties, and
confers no rights. You assume all risk for your use.



Hirgan wrote:

Buenas, me pongo en contacto con ustedes para ver si me pueden
resolver una duda de configuracion en windows server 2003.

He montado un dominio, con sus correspondientes usuarios y grupos.
necesito que los usuarios dependiendo del grupo al que pertenezcan se
les mapeen las unidades de red correspondientes. Por usuario solo me
deja mapear una unidad de red.

¿Podrian explicarme si hay algun modo de realizar esto? ¿Como tendria
que configurar el mapeo de dichas unidades de red?

Gracias.

Gracias a los dos.

Un Saludo

"Guillermo Delprato [MS-MVP]" wrote:

Debes hacerlo asignando un script de incio de sesión
Abajo pego un ejemplo que puedes adaptar

'=> '
' VBScript Source File -- Created with SAPIEN Technologies PrimalSCRIPT(TM)
'
' NAME: <filename>
'
' AUTHOR: Bryan Nyce , Home
' DATE : 4/10/2003
'
' COMMENT: <comment>
'
'=> Option Explicit
On Error Resume Next

Dim oFSO, oWshNetwork, oGroupDict

'Map drives based on Group memberships
If IsMember("Group1") Then
MapDrive "S:", "\\Server\Share"
End If

If IsMember("Group2") Then
MapDrive "T:", "\\Server\Share1"
MapDrive "P:", "\\Server2\Share2"
End If

'Supporting function to enumerate group memberships
Function IsMember(sGroup)
Dim sAdsPath, oUser, oGroup

If IsEmpty(oGroupDict) Then
Set oGroupDict = CreateObject("Scripting.Dictionary")
oGroupDict.CompareMode = vbTextCompare

sAdsPath = oNet.UserDomain & "/" & oNet.UserName
Set oUser = GetObject("WinNT://" & sAdsPath & ",user")

For Each oGroup In oUser.Groups
oGroupDict.Add oGroup.Name, "-"
Next

Set oUser = Nothing
End If

IsMember = CBool(oGroupDict.Exists(sGroup))

End Function

'Supporting function to Map drives
'If drive letter is in use, attempts to remove connection.
'Returns True if drive mapped, False otherwise.
Function MapDrive(sDrive, sShare)
Dim oDrive

On Error Resume Next
Err.Clear

If oFSO.DriveExists(sDrive) Then
Set oDrive = oFSO.GetDrive(sDrive)
If Err.Number <> 0 Then
Err.Clear
MapDrive = False
Exit Function
End If
If CBool(oDrive.DriveType = 3) Then
oNet.RemoveNetworkDrive sDrive, True, True
Else
MapDrive = False
Exit Function
End If
Set oDrive = Nothing
End If

oNet.MapNetworkDrive sDrive, sShare

'Error trapping
If Err.Number = 0 Then
MapDrive = True
Else
Err.Clear
MapDrive = False
End If
On Error GoTo 0
End Function


Saludos

Guillermo Delprato
MVP - MCT - MCSE - MCP
Buenos Aires, Argentina

NOTA. Por favor, las preguntas y comentarios en los grupos, así nos
beneficiamos todos. Este mensaje se proporciona "como está" sin
garantías de ninguna clase, y no otorga ningún derecho. Ud. asume los
riesgos This posting is provided "AS IS" with no warranties, and
confers no rights. You assume all risk for your use.



Hirgan wrote:
> Buenas, me pongo en contacto con ustedes para ver si me pueden
> resolver una duda de configuracion en windows server 2003.
>
> He montado un dominio, con sus correspondientes usuarios y grupos.
> necesito que los usuarios dependiendo del grupo al que pertenezcan se
> les mapeen las unidades de red correspondientes. Por usuario solo me
> deja mapear una unidad de red.
>
> ¿Podrian explicarme si hay algun modo de realizar esto? ¿Como tendria
> que configurar el mapeo de dichas unidades de red?
>
> Gracias.

:-)

Saludos

Guillermo Delprato
MVP - MCT - MCSE - MCP
Buenos Aires, Argentina

NOTA. Por favor, las preguntas y comentarios en los grupos, así nos
beneficiamos todos. Este mensaje se proporciona "como está" sin
garantías de ninguna clase, y no otorga ningún derecho. Ud. asume los
riesgos This posting is provided "AS IS" with no warranties, and
confers no rights. You assume all risk for your use.



Hirgan wrote:

Gracias a los dos.

Un Saludo

"Guillermo Delprato [MS-MVP]" wrote:

Debes hacerlo asignando un script de incio de sesión
Abajo pego un ejemplo que puedes adaptar

'=>> '
' VBScript Source File -- Created with SAPIEN Technologies
PrimalSCRIPT(TM) '
' NAME: <filename>
'
' AUTHOR: Bryan Nyce , Home
' DATE : 4/10/2003
'
' COMMENT: <comment>
'
'=>> Option Explicit
On Error Resume Next

Dim oFSO, oWshNetwork, oGroupDict

'Map drives based on Group memberships
If IsMember("Group1") Then
MapDrive "S:", "\\Server\Share"
End If

If IsMember("Group2") Then
MapDrive "T:", "\\Server\Share1"
MapDrive "P:", "\\Server2\Share2"
End If

'Supporting function to enumerate group memberships
Function IsMember(sGroup)
Dim sAdsPath, oUser, oGroup

If IsEmpty(oGroupDict) Then
Set oGroupDict = CreateObject("Scripting.Dictionary")
oGroupDict.CompareMode = vbTextCompare

sAdsPath = oNet.UserDomain & "/" & oNet.UserName
Set oUser = GetObject("WinNT://" & sAdsPath & ",user")

For Each oGroup In oUser.Groups
oGroupDict.Add oGroup.Name, "-"
Next

Set oUser = Nothing
End If

IsMember = CBool(oGroupDict.Exists(sGroup))

End Function

'Supporting function to Map drives
'If drive letter is in use, attempts to remove connection.
'Returns True if drive mapped, False otherwise.
Function MapDrive(sDrive, sShare)
Dim oDrive

On Error Resume Next
Err.Clear

If oFSO.DriveExists(sDrive) Then
Set oDrive = oFSO.GetDrive(sDrive)
If Err.Number <> 0 Then
Err.Clear
MapDrive = False
Exit Function
End If
If CBool(oDrive.DriveType = 3) Then
oNet.RemoveNetworkDrive sDrive, True, True
Else
MapDrive = False
Exit Function
End If
Set oDrive = Nothing
End If

oNet.MapNetworkDrive sDrive, sShare

'Error trapping
If Err.Number = 0 Then
MapDrive = True
Else
Err.Clear
MapDrive = False
End If
On Error GoTo 0
End Function


Saludos

Guillermo Delprato
MVP - MCT - MCSE - MCP
Buenos Aires, Argentina

NOTA. Por favor, las preguntas y comentarios en los grupos, así nos
beneficiamos todos. Este mensaje se proporciona "como está" sin
garantías de ninguna clase, y no otorga ningún derecho. Ud. asume los
riesgos This posting is provided "AS IS" with no warranties, and
confers no rights. You assume all risk for your use.



Hirgan wrote:

Buenas, me pongo en contacto con ustedes para ver si me pueden
resolver una duda de configuracion en windows server 2003.

He montado un dominio, con sus correspondientes usuarios y grupos.
necesito que los usuarios dependiendo del grupo al que pertenezcan
se les mapeen las unidades de red correspondientes. Por usuario
solo me deja mapear una unidad de red.

¿Podrian explicarme si hay algun modo de realizar esto? ¿Como
tendria que configurar el mapeo de dichas unidades de red?

Gracias.