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

 

Anuncios