Forums Últimos mensajes - Powered by IBM
 

Logon Script para mapear unidades de Red

28/11/2005 - 16:18 por RAFA | Informe spam
Hola:
En windows Nt se podia mapear una unidad en el script de logon dependiendo
del grupo al que perteneciera el usuario gracias a InGroup.
Por ejemplo
If InGroup ("X",Usergroups) then
mapeo
End if
He migrado a windows2003 y ejecuto mi script de logon que ahora es un script
con extension .vbs pero no encuentro forma de hacer esto mismo.
Alguien tiene alguna idea???
Como puedo mapear una u otra unidad de red dependiendo del grupo / grupos en
los que se encuentre un usuario???
 

Leer las respuestas

#1 Guillermo Delprato [MS-MVP]
28/11/2005 - 20:33 | Informe spam
Puedes adaptar el que pego abajo

'='
' 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




Saludos

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

NOTA. Por favor, las preguntas y comentarios en los grupos, así nos
beneficiamos todos.

http://support.microsoft.com/kb/555375/en-us

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.




RAFA wrote:
Hola:
En windows Nt se podia mapear una unidad en el script de logon
dependiendo del grupo al que perteneciera el usuario gracias a
InGroup.
Por ejemplo
If InGroup ("X",Usergroups) then
mapeo
End if
He migrado a windows2003 y ejecuto mi script de logon que ahora es un
script con extension .vbs pero no encuentro forma de hacer esto mismo.
Alguien tiene alguna idea???
Como puedo mapear una u otra unidad de red dependiendo del grupo /
grupos en los que se encuentre un usuario???

Preguntas similares