Petición de ayuda con script

Te adjunto unn Script que hice hace 5 años. Utiliza un Exe (incluido en el
Zip para elegir la OU que tu quieras)

No está muy refinado, pero funcionaba...

Ramon

"Diego Fernández" wrote in message
news:u3XEzR%
Mostrar la cita

Hola a todos:

Una vez mas, aquí estoy pidiendo ayuda.
Por sustitución de servidor, necesito cambiar las rutas de acceso al
perfil
móvil de los usuarios del dominio (tanto del perfil local como del perfil
de
Terminal Server). Además, únicamente se lo tengo que cambiar a los que
están
en una OU concreta.

Hace años, también lo tuve que hacer y Fernando Reyes me facilitó un
script
que lo hacía, pero no me sirve ya que esta vez lo tengo que hacer con una
OU
sólamente.

Además, aunque no se si es posible, pretendo poner como ruta del perfil
una
ruta DFS. Así, si alguna vez me vuelve a ocurrir que tenga que cambiar la
ubicación de los perfiles, únicamente tendré que modificar el destino en
DFS.

Como mis conocimientos de programación son nulos no sé modificarlo para
adaptarlo a la necesitad actual.

El script era:

>> 'Script para cambiar la ruta de los perfiles 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 a "equipo2".
'Requiere que los recursos compartidos correspondientes
'estén creados en "equipo2"
'Fernando Reyes [MS MVP];

'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")

'Cambiamos la ruta del perfil de "equipo1" a "equipo2"
obj_Usuario_A_Cambiar.profile = "\\servidor2\perfilesgc\" &
obj_Nombre_Usuario.Name

'Mostramos en pantalla la nueva ruta
wscript.echo obj_Usuario_A_Cambiar.profile

Next
=>>
¿Podeis ayudarme?

Gracias por anticipado.
Diego.