scripts carpeta particular

Mira si, basándote en este script, puedes hacer eso que quieres:

'Script para cambiar la ruta de la unidad personal de todos los
'usuarios del dominio, desde un servidor a otro. En este
'ejemplo el dominio se llamará "midominio", y utilizamos
'el nombre NetBios. Los perfiles pasarán de "\\equipo1\personal" a
'"\\equipo2\personal". Sólo se cambiará la ruta de la unidad personal
'en aquellos usuarios en los que esté especificada, ignorándose a
'aquellos que no la tengan establecida. Estas carpetas deben estar
'creadas y con los permisos correspondientes.

'Está pensado para cambiar carpetas personales existentes en un servidor
'a otro servidor. Primero se copian las carpetas usando XCOPY con el
'modificador /O (copia propietario y ACL's)

'© Fernando Reyes - Marzo de 2005
'
'Febrero de 2007 - Se añade que se establezca u: como unidad personal

'Creamos un objeto de tipo dominio, abiendo el dominio "midominio"
Set obj_Dominio = GetObject("WinNT://midominio,Domain")


'Aplicamos un filtro al dominio para obtener los usuarios en un array
obj_Dominio.Filter = Array("User")

'Una vez tenemos el array de usuarios lo recorremos uno a uno
For Each obj_Nombre_Usuario in obj_Dominio

'Mostramos por pantalla el usuario con el que estamos en este momento
'Wscript.Echo obj_Nombre_Usuario.Name

'Creamos un objeto usuario (el anterior sólo es un nombre) con el
'que trabajaremos
Set obj_Usuario_A_Cambiar = GetObject("WinNT://midominio/" & _
obj_Nombre_Usuario.Name & ",User")

If Not obj_Usuario_A_Cambiar.HomeDirectory = "" Then

'Mostramos en pantalla la ruta original
wscript.Echo "Antiguo: " & obj_Usuario_A_Cambiar.HomeDirectory & _
" en " & obj_Usuario_A_Cambiar.HomeDirDrive

'Cambiamos a la nueva ruta
obj_Usuario_A_Cambiar.HomeDirectory = "\\equipo2\personal\" & _
obj_Usuario_A_Cambiar.Name

'Establecemos la unidad u: como unidad personal
obj_Usuario_A_Cambiar.HomeDirDrive = "u:"

'Mostramos la nueva ruta
wscript.Echo "Nuevo: " & obj_Usuario_A_Cambiar.HomeDirectory & _
" en " & obj_Usuario_A_Cambiar.HomeDirDrive

End If

Next


Un saludo
Fernando Reyes [MS MVP]
MCSE Windows 2000 / 2003
MCSA Windows Server 2003
http://freyes.svetlian.com
http://urpiano.wordpress.com
RSS: http://urpiano.wordpress.com/feed

(Cómete al correcaminos para escribirme)



Y fue Jose Luis () quien en el mensaje , planeando sobre su teclado, hizo un picado y tecleó:

> Buenos días,
>
> Me gustaría saber como puedo asignar la misma ruta de carpeta
> principal a un grupo determinado de usuarios.
> Por ahora, he mirado en el scriptcenter y he logrado modificar a un
> usuario, pero querría realizarlo de manera masiva. Esto es lo q hice:
>
> Set objUser = GetObject _
> ("LDAP://Prueba/CN=MiUsuario,OU=Usuar...=com")
>
> objUser.Put "homeDirectory", "\\Servidor\Unidad\%username%"
> objUser.Put "homeDrive", "X:"
> objUser.SetInfo
>
> Podreís indicarme como puedo coger los usuarios de un txt por ejemplo
> o algo así!!!
> Gracias...
>
> Por otro lado, si alguien lo sabe, tb me gustaría saber si es posible
> generar entradas de cuotas en un disco de manera automática...
>
> Muchas Gracias!!

Gracias por contestar tan rápidamente!!!

Ahora mi duda surge respecto a como asignarla a diferentes y diversos
usuarios.
Me explico:
No todos los usuarios tienen ya una unidad mapeada como carpeta
principal Ni tampoco todos los usuarios pertenecen a la misma OU...

Como puedo hacer la selección de los usuarios a los q les quiero
asignar una unidad como carpeta principal???

Gracias por todo!!!

"Fernando Reyes [MS MVP]" wrote:

Mira si, basándote en este script, puedes hacer eso que quieres:

'Script para cambiar la ruta de la unidad personal de todos los
'usuarios del dominio, desde un servidor a otro. En este
'ejemplo el dominio se llamará "midominio", y utilizamos
'el nombre NetBios. Los perfiles pasarán de "\\equipo1\personal" a
'"\\equipo2\personal". Sólo se cambiará la ruta de la unidad personal
'en aquellos usuarios en los que esté especificada, ignorándose a
'aquellos que no la tengan establecida. Estas carpetas deben estar
'creadas y con los permisos correspondientes.

'Está pensado para cambiar carpetas personales existentes en un
servidor 'a otro servidor. Primero se copian las carpetas usando
XCOPY con el 'modificador /O (copia propietario y ACL's)

'© Fernando Reyes - Marzo de 2005
'
'Febrero de 2007 - Se añade que se establezca u: como unidad personal

'Creamos un objeto de tipo dominio, abiendo el dominio "midominio"
Set obj_Dominio = GetObject("WinNT://midominio,Domain")


'Aplicamos un filtro al dominio para obtener los usuarios en un array
obj_Dominio.Filter = Array("User")

'Una vez tenemos el array de usuarios lo recorremos uno a uno
For Each obj_Nombre_Usuario in obj_Dominio

'Mostramos por pantalla el usuario con el que estamos en este
momento 'Wscript.Echo obj_Nombre_Usuario.Name

'Creamos un objeto usuario (el anterior sólo es un nombre) con el
'que trabajaremos
Set obj_Usuario_A_Cambiar = GetObject("WinNT://midominio/" & _
obj_Nombre_Usuario.Name &
",User")

If Not obj_Usuario_A_Cambiar.HomeDirectory = "" Then

'Mostramos en pantalla la ruta original
wscript.Echo "Antiguo: " & obj_Usuario_A_Cambiar.HomeDirectory & _
" en " & obj_Usuario_A_Cambiar.HomeDirDrive

'Cambiamos a la nueva ruta
obj_Usuario_A_Cambiar.HomeDirectory = "\\equipo2\personal\"
& _
obj_Usuario_A_Cambiar.Name

'Establecemos la unidad u: como unidad personal
obj_Usuario_A_Cambiar.HomeDirDrive = "u:"

'Mostramos la nueva ruta
wscript.Echo "Nuevo: " & obj_Usuario_A_Cambiar.HomeDirectory
& _ " en " & obj_Usuario_A_Cambiar.HomeDirDrive

End If

Next


Un saludo
Fernando Reyes [MS MVP]
MCSE Windows 2000 / 2003
MCSA Windows Server 2003
http://freyes.svetlian.com
http://urpiano.wordpress.com
RSS: http://urpiano.wordpress.com/feed

(Cómete al correcaminos para escribirme)



Y fue Jose Luis () quien en el
mensaje ,
planeando sobre su teclado, hizo un picado y tecleó:

Buenos días,

Me gustaría saber como puedo asignar la misma ruta de carpeta
principal a un grupo determinado de usuarios.
Por ahora, he mirado en el scriptcenter y he logrado modificar a un
usuario, pero querría realizarlo de manera masiva. Esto es lo q
hice:

Set objUser = GetObject _
("LDAP://Prueba/CN=MiUsuario,OU=Usuar...=com")

objUser.Put "homeDirectory", "\\Servidor\Unidad\%username%"
objUser.Put "homeDrive", "X:"
objUser.SetInfo

Podreís indicarme como puedo coger los usuarios de un txt por
ejemplo o algo así!!!
Gracias...

Por otro lado, si alguien lo sabe, tb me gustaría saber si es
posible generar entradas de cuotas en un disco de manera
automática...

Muchas Gracias!!