Visual Basic - examinar codigo por favor

Hola muy buenas a todos, no tengo mucha experiencia en codigo de programación me dedico mas bien al lado de sistemas, de todas maneras encontre un codigo de Visual Basic Script que me vendria bastante bien ejecutar. la cuestion esque no se si el codigo que encontre es valido. yo lo pego en un txt y lo renombro a extension vbs pero no hace nada. Veis algun fallo o algo que falte. Para que sirve la funcion GetObject y cual es su sintaxis????

Set objDomain= GetObject("WinNT://newdomain")
objDomain.Filter = Array("User")
For Each User In objDomain
If User.Accountdisabled = 0 then
User.PasswordExpired = 0
User.Put "UserFlags", Flags OR &H10000
User.SetInfo
End if
Next
Set objDomain = Nothing

Con este codigo se consigue que al migrar un usuario entre dominios no tenga que volver a cambiar el password. Alguien me puede ayudar por favor, gracias de antemano.

GETOBJECT( ) (Función)
Vea también

Activa un objeto de Automatización y crea una referencia al mismo.

Sintaxis

GETOBJECT(NombreArchivo [, NombreClase])

Tipos devueltos

Object

Argumentos

NombreArchivo

Especifica la ruta de acceso completa y el nombre del archivo que se va a activar. No es necesario especificar la aplicación, porque las bibliotecas de vínculos dinámicos OLE determinan la aplicación que se va a iniciar basándose en el nombre de archivo que usted les proporciona.

Por ejemplo, el código siguiente lanza Microsoft Excel, abre un archivo llamado BUDGET.XLS, y crea una referencia a través de una variable de memoria de objeto llamada MBUDVAR:

MBUDVAR = GETOBJECT('C:\EXCEL\WORK\BUDGET.XLS')

NombreClase

Opcional:

Especifica el nombre de clase del objeto que se va a recuperar. Algunas aplicaciones pueden almacenar más de un tipo de objeto en el mismo archivo, lo que permite utilizar el nombre de clase para especificar el objeto que se va a activar. Por ejemplo, si una aplicación de procesamiento de textos almacena sus documentos, definiciones de macro y objetos de barra de herramientas en el mismo archivo, puede crear una referencia al archivo de documento con el comando siguiente:

MDOCFILE = GETOBJECT('C:\WRDPROC\MYDOC.DOC','WrdProc.Document')
'WrdProc.Document')

Con algunas aplicaciones servidoras, cada vez que ejecuta GETOBJECT( ), se inicia una instancia adicional de la aplicación, usando memoria adicional. Si la aplicación ya está en ejecución, puede impedir que se inicien otras instancias de la aplicación si omite NombreArchivo e incluye NombreClase, como en este ejemplo:

oleApp = GETOBJECT(, "Excel.Application")
Comentarios

Utilice GETOBJECT( ) para activar un objeto de Automatización a partir de un archivo y asignar una referencia al objeto a través de una variable de memoria o un elemento de matriz.

Si especifica un nombre de archivo o de clase no válido, se mostrará un error de OLE, y la función GETOBJECT( ) devolverá una cadena vacía.

Muchas gracias por tu información.
Ya he conseguido que corra el codigo y ahora tengo una duda.
En la parte del codigo que digo:

If User.Accountdisabled = 0 then
User.PasswordExpired = 0

lo que consigo es clicar la opcion de usuario para que el password no expire,
si quisiera hacer lo contrario, es decir que este activada esta opcion y quisiera desactivarla que tengo que hacer? igualarlo a 1???