Hola Jorge, una opción es lo que comenta jerry-g
Otra opción es un script que haga el trabajo de ver los grupos.
Pego un ejemplo abajo, que supongo que podrás adaptar fácilmente
No es mío ;-) pero son esas cosas que uno guarda por las dudas :-)
------------
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
-----------------------------------------
Guillermo Delprato - MVP-MCT-MCITP-MCTS-MCSE
MCITP: Server Administration
MCTS:Active Directory/Network Infrastructure
Buenos Aires, Argentina
