Petición de ayuda con script

11/09/2008 - 10:00 por Diego Fernández | Informe spam
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.
 

Leer las respuestas

#1 Diego Fernández
11/09/2008 - 14:00 | Informe spam
Hola:

Lo primero gracias por tu interés.
El programa que me envías a no me funciona. Me devuelve el error siguiente
error de windows scripting host después de seleccionar la OU que quiero
modificar y pulsar aceptar:

Secuencia de comandos: c:\ChangeProfileUsersOU.vbs
Linea: 53
Caracter: 5
Error: El atributo o valor de servicio de directorios especificado no
existe.
Codigo: 8007200A
Origen: (null).

Ántes de ejecutarlo he editado el .vbs y he sustituido donde ponias
\\servidor2\perfilesgc por la ruta correcta donde deben estar los perfiles.

Es lo único que he modificado.

Un saludo.
Diego.



"Ramon Jiménez" escribió en el mensaje
de noticias:#l$f1b$
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%
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.







Preguntas similares