Tag Archive: usuario


En este post veremos como configurar políticas de contraseñas granuladas por grupo o usuario. Por ejemplo si por políticas de seguridad necesitamos que el área de Ingenieros, tenga una contraseña mínima de 10 caracteres, que caduque cada 7 días, que solo se permitan 2 bad logons… Entre otras cosas

Para mas info: http://technet.microsoft.com/en-us/library/cc770842(WS.10).aspx

-Entramos a “Active Dirctory Administrative Center”

– Luego navegamos el Active directory seleccionamos un usuario y en la derecha seleccionamos “View Resultant Password Settings”

windows-server-password-policy-e-2012-ad-2012-000032

Nos responde que el usuario test no tiene asignada ninguna política de password granulada: windows-server-password-policy-e-2012-ad-2012-000033

Luego sobre la derecha expandimos el dominio en mi caso es morettimaxi.local luego vamos a “system”

windows-server-password-policy-e-2012-ad-2012-000034

Luego a “Password Setting COntainer”windows-server-password-policy-e-2012-ad-2012-000035

Seleccionamos new Password Setting

windows-server-password-policy-e-2012-ad-2012-000036

Por ultimo seleccionamos la política y en Directly apply to, colocamos el grupo al cual queremos que se aplique la política.windows-server-password-policy-e-2012-ad-2012-000037

En este Post veremos Un VB Script, el cual deben guardarlo como *.vbs, deben colocarlo por gpo como logon Script. El mismo permite,
• Mapear la home folder de cada usuario,
•Mapear una carpeta publica
•Dependiendo a que grupo pertenezca le creara una unidad de red. Por ejemplo si un usuario pertenece al grupo ventas, le mapeara una unidad de red definida en el Script
•Segun el grupo de Pertenencia le mapeara una Impresora.

—————————————————————————————————————————————————–

' Se debe cambiar cn=ventas por el grupo de AD al que pertenece el usuario.

' Obtener informacion del usario:

Set ADSysInfo = CreateObject("ADSystemInfo")

Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName)

strGroups = LCase(Join(CurrentUser.MemberOf))

' Mapear la Home folder de cada usuario.

Set wshNetwork = CreateObject("WScript.Network")

wshNetwork.MapNetworkDrive "H:", "\\servidor\homefolders\" & wshNetwork.UserName

'Mapeo de Share publico:

wshNetwork.RemoveNetworkDrive "P:"

wshNetwork.MapNetworkDrive "P:", \\servidor\Public

'Mapeo segun Grupo de pertenencia

If InStr(strGroups, "cn=Ventas,") Then

wshNetwork.MapNetworkDrive "V:", \\servdidor\ventas

End if

If InStr(strGroups, "cn=rrhh,") Then

wshNetwork.MapNetworkDrive "R:", \\servidor\RRHH

End if

'Mapeo de Impresora segun grupo de pertenencia mapea y pone 'como impresora por default la printer1

If InStr(strGroups, ventas) Then

wshNetwork.AddWindowsPrinterConnection "\\printserver\printer1"

wshNetWork.SetDefaultPrinter "\\printserver\printer1"

End if

 

Si les da el siguiente error, cuando intentan mapear una unidad de red que ya esta en uso:

The local device name is already in use.

Se debe utilizar la siguiente condicion:

Dim objFSO, strDrive, strShare
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
strDrive = “H:”
strShare = “\\fileserver\novellmain”
If objFSO.DriveExists(strDrive) = True Then
objNetwork.RemoveNetworkDrive strDrive
End If
objNetwork.MapNetworkDrive strDrive, strShare