Script VBScript Para Listar La Caducidad De Las Contraseñas De Los Usuarios De Un Dominio De Active Directory

Este script nos permite listar la fecha en la que caduca las contraseñas de todos los usuarios del dominio que se recibe como parámetro. El script permite volcar los resultados en un fichero o mostrarlos por pantalla.

Sintaxis

cscript [//nologo] listar-caducidad-password-ad.vbs [/F:fichero] [/?] dominio

Siendo

Etiqueta	Dato	¿Requerido?	Descripción
	dominio	Sí	Nombre FQDN del dominio en el que se consulta
F	fichero	No	Ruta y nombre del fichero de valores separados por tabuladores (ideal para abrir con Excel) en el que se volcarán los resultados; si se omite, la información se muestra por pantalla
?		No	Muestra la ayuda en línea.

Ejemplos:

– Muestra la caducidad de las contraseñas de los usuarios del dominio “tia.org”:

cscript //nologo listar-caducidad-password-ad.vbs tia.org

– Muestra la caducidad de las contraseñas de los usuarios del dominio “tia.org” y guarda la información en el archivo de valores separados por comas “c:listados adcaducidad.tsv”:

cscript //nologo listar-caducidad-password-ad.vbs /F:"c:listados adcaducidad.tsv" tia.org

Este es el código del script

'*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*
'*°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°*
'* listar-caducidad-password-ad.vbs                                    *
'*                                                                     *
'* Este script nos permite listar la fecha en la que caduca las        *
'* contraseñas de todos los usuarios del dominio que se recibe como    *
'* parámetro. El script permite volcar los resultados en un fichero o  *
'* mostrarlos por pantalla.                                            *
'*                                                                     *
'* Sintaxis                                                            *
'*                                                                     *
'* cscript [//nologo] listar-caducidad-password-ad.vbs [/F:fichero]    *
'* [/?] dominio                                                        *
'*                                                                     *
'* Siendo                                                              *
'*                                                                     *
'* - dominio (Requerido):                                              *
'*         Nombre FQDN del dominio en el que se consulta               *
'*                                                                     *
'* - /F: fichero (Opcional):                                           *
'*         Ruta y nombre del fichero de valores separados por          *
'*         tabuladores (ideal para abrir con Excel) en el que se       *
'*         volcarán los resultados; si se omite, la información se     *
'*         muestra por pantalla                                        *
'*                                                                     *
'* - /?: ayuda (Opcional):                                             *
'*         Muestra la ayuda en línea                                   *
'*                                                                     *
'*                                                                     *
'* Ejemplos:                                                           *
'*                                                                     *
'* - Muestra la caducidad de las contraseñas de los usuarios del       *
'* dominio "tia.org":                                                  *
'*                                                                     *
'* cscript //nologo listar-caducidad-password-ad.vbs tia.org           *
'*                                                                     *
'* - Muestra la caducidad de las contraseñas de los usuarios del       *
'* dominio "tia.org" y guarda la información en el archivo de valores  *
'* separados por comas "c:listados adcaducidad.tsv":                 *
'*                                                                     *
'* cscript //nologo listar-caducidad-password-ad.vbs /F:"c:listados   *
'* adcaducidad.tsv" tia.org                                           *
'*                                                                     *
'*                                                                     *
'*                                                                     *
'*                                                                     *
'* © Fernando Reyes                                                    *
'* Marzo De 2008                                                       *
'*°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°*
'*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*

'Exigimos la declaración de variables
Option Explicit

Const SEGUNDOS_POR_DIA = 86400
Const ADS_UF_DONT_EXPIRE_PASSWD = &h10000
Const ADS_UF_ACCOUNTDISABLE = 2

Dim str_Error     'As String
Dim int_Error     'As String
Dim str_Dominio   'As String
Dim str_DominioNT 'As String
Dim str_Fichero   'As String
Dim str_Salida    'As String

Dim obj_FS        'As Scripting.FileSystemObject
Dim obj_TS        'As Scripting.TextStream

Dim ado_Conexion  'As ADODB.Connection
Dim ado_Comando   'As ADODB.Command
Dim rs_Usuarios   'As ADODB.Recordset

Dim obj_Dominio
Dim int_DiasCaducidad

'Validando los argumentos y almacenando
'sus valores
If f_RevisarArgumentos( _
                       str_Error, _
                       int_Error) Then

    Call s_Ayuda(str_Error)
    WScript.Quit int_Error

End If

'Obtenemos los dias de caducidad para las contraseñas
'en el dominio
Set obj_Dominio = GetObject("WinNT://" & str_DominioNT)
int_DiasCaducidad = obj_Dominio.Get("MaxPasswordAge")
int_DiasCaducidad = (int_DiasCaducidad/SEGUNDOS_POR_DIA)
Set obj_Dominio = Nothing

'Obtenemos los usuarios del dominio
'Para ello consultaremos por medio de ADO a ADSI
'Creamos un objeto conexión de ADO
Set ado_Conexion = CreateObject("ADODB.Connection")

'Establecemos el proveedor ADSI para la conexión
ado_Conexion.Open "Provider=ADsDSOObject;"

'Creamos un objeto comando de ADO
Set ado_Comando = CreateObject("ADODB.Command")

'Establecemos que su conexión es la anteriormente creada
ado_Comando.ActiveConnection = ado_Conexion

'Establecemos propiedades de acceso a los datos
'para evitar el límite de 1000 resultados que
'tiene ADSI de forma predeterminada.
ado_Comando.Properties("Page Size") = 100
ado_Comando.Properties("Timeout") = 30
ado_Comando.Properties("Cache Results") = False

'Establecemos la cadena de consulta
ado_Comando.CommandText = _
    "<GC://" & str_Dominio & ">;(objectCategory=User)" & _
        ";distinguishedName;subtree"

'Creamos el Recordset con los nombres distinguidos de los
'usuarios
Set rs_Usuarios = ado_Comando.Execute

'Ponemos los encabezados en función de si hay que guardar
'los resultados en un fichero o no. Primero si hay que
'guardarlos
If Len(str_Fichero) > 0 Then

    str_Salida = "Nombre Usuario" & vbTab & _
                 "Nombre Distinguido" & vbTab & _
                 "¿Tiene Caducidad?" & vbTab & _
                 "Dia Último Cambio" & vbTab & _
                 "Hora Último Cambio" & vbTab & _
                 "Dias Desde Cambio" & vbTab & _
                 "Máxima Edad Permitida" & vbTab & _
                 "Caduca El" & vbTab & _
                 "Dias Hasta Caducar" & vbTab & _
                 "¿Caducada?" & vbTab & _
                 "¿Cuenta Deshabilitada?" & vbCrLf

'Sólo se muestran por pantalla. Para evitar que en CMD
'se rompa la tabla por falta de ancho, reducimos los datos
'a mostrar, dejando sólo el nombre de usuario, si tiene
'caducidad, la fecha en que cambió por última vez la
'contraseña, la fecha en que caduca, los días que faltan
'hasta que caduque, si está caducada y si está deshabilitada
Else

    str_Salida = "Nombre Usuario" & vbTab & _
                 "¿Caduca?" & vbTab & _
                 "Dia Cambio" & vbTab & _
                 "Caduca El" & vbTab & _
                 "Dias Caducará" & vbTab & _
                 "¿Caducada?" & vbTab & _
                 "¿Deshabilitada?"

    'Mostramos los encabezados
    WScript.Echo str_Salida

    'Subrayamos los encabezados
    str_Salida = String(14,"=") & vbTab & _
                 String(8,"=") & vbTab & _
                 String(10,"=") & vbTab & _
                 String(9,"=") & vbTab & _
                 String(13,"=") & vbTab & _
                 String(10,"=") & vbTab & _
                 String(15,"=")

    'Mostramos los subrayados
    WScript.Echo str_Salida

    'Vaciamos la variable de salida
    str_Salida = ""

End If

'Recorremos el Recordset
While Not rs_Usuarios.EOF

    'Llamamos al procedimiento que procesa el usuario
    Call s_ProcesaUsuario(rs_Usuarios.Fields( _
                                    "distinguishedName"))

    'Vamos al siguiente usuario
    rs_Usuarios.MoveNext

Wend

'Cerramos el Recordset
rs_Usuarios.Close

'Vaciamos su variable
Set rs_Usuarios = Nothing

'Vaciamos la variable del objeto comando ADO
Set ado_Comando = Nothing

'Cerramos la conexión
ado_Conexion.Close

'Vaciamos la variable del objeto conexión ADO
Set ado_Conexion = Nothing

'Si hay que volcar información en el fichero
'de salida de ruta y nombre str_Fichero
If Len(str_Fichero) > 0 Then

    'Creamos un objeto FileSystemObject
    Set obj_FS = CreateObject("Scripting.FileSystemObject")

    'Creamos el fichero de salida
    Set obj_TS = obj_FS.CreateTextFile(str_Fichero)

    'Volcamos la información de salida en el fichero
    obj_TS.Write str_Salida

    'Cerramos el fichero de salida
    obj_TS.Close

    'Limpieza de popa :-)
    Set obj_TS = Nothing
    Set obj_FS = Nothing

End If

Sub s_ProcesaUsuario(str_Usuario)
'***********************************************************************
'* Procedimiento: s_ProcesaUsuario                                     *
'* Tipo         : Método                                               *
'* Devolución   : Ninguna                                              *
'* Fecha y Hora : 05/03/2008 17:19:03                                  *
'* Autor        : Fernando Reyes                                       *
'*¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯*
'* Propósito    : Este método recibe un nombre LDAP de usuario, lo     *
'*                obtiene de Active Directory, revisa la caducidad de  *
'*                su contraseña y muestra por pantalla o vuelca a      *
'*                fichero los datos                                    *
'***********************************************************************

    Dim obj_Usuario         'As Object
    Dim int_ControlDeCuenta 'As Integer
    Dim dth_UltimoCambio    'As DateTime
    Dim int_DiasEstablecida 'As Integer
    Dim str_Datos           'As String

    'Creamos un objeto iADsUser con el usuario recibido como parámetro
    Set obj_Usuario = GetObject("LDAP://" & str_Usuario)

    'Establecemos control de errores
    On Error Resume Next

    'Obtenemos el control de cuenta del usuario
    int_ControlDeCuenta = obj_Usuario.Get("userAccountControl")

    'Si se ha producido un error salimos del procedimiento
    If Err.Number <> 0 Then

        'Vaciamos la variable del usuario
        Set obj_Usuario = Nothing

        'Ponemos a cero el objeto Err
        Err.Clear

        'Salimos del procedimiento
        Exit Sub

    End If

    'Devolvemos el control de errores a cscript
    On Error Goto 0

    'Si la contraseña no caduca
    If (int_ControlDeCuenta and ADS_UF_DONT_EXPIRE_PASSWD) _
    Or int_DiasCaducidad < 0 Then

        'Almacenamos que no caduca, ponemos a cero los valores
        'de fechas y días, ponemos que no ha caducado y ponemos
        'si está o no deshabilitada. El nombre distinguido sólo
        'se devuelve si se guarda la información en un fichero
        str_Datos = Replace(obj_Usuario.Name,"cn=","",1,-1,1) & _
                                                        vbTab & _
                    f_IIf(Len(str_Fichero)>0, _
                              str_Usuario & vbTab, _
                              "") & _
                    False & vbTab & _
                    f_IIf(Len(str_Fichero)>0, _
                          0 & vbTab, _
                          "") & _
                    f_IIf(Len(str_Fichero)>0, _
                          0 & vbTab, _
                          "") & _
                    f_IIf(Len(str_Fichero)>0, _
                          0 & vbTab, _
                          "") & _
                    0 & vbTab & _
                    0 & vbTab & _
                    0 & vbTab & _
                    False & vbTab & _
                    ((int_ControlDeCuenta _
                      And ADS_UF_ACCOUNTDISABLE) = _
                          ADS_UF_ACCOUNTDISABLE)

    'La contraseña caduca
    Else

        'Establecemos control de errores
        On Error Resume Next

        'Obtenemos la fecha en la que cambó la contraseña el
        'usuario por última vez
        dth_UltimoCambio = obj_Usuario.PasswordLastChanged 

        'Si se ha producido un error
        If Err.Number <> 0 Then

            'Que haya un error significa que el usuario nunca
            'ha cambiado su contraseña. Esto es motivado cuando
            'el usuario es de reciente creación y nunca tuvo
            'que cambiar su contraseña, o con usuario plantilla
            'que se crean y nunca se usan para logarse, con lo que
            'nunca se les cambia la contraseña. En ambos casos,
            'como fecha último cambio de contraseña, almacenamos
            'la fecha de creación del usuario
            dth_UltimoCambio = obj_Usuario.Get("whenCreated")

            'Ponemos a cero el objeto Err
            Err.Clear

        End If

        'Devolvemos el control de errores a cscript
        On Error Goto 0

        'Obtenemos el número de días que la contraseña
        'lleva activa, esto es, el día de hoy menos la fecha
        'de último cambio
        int_DiasEstablecida = Int(Now - dth_UltimoCambio)

        'Almacenamos los datos:
        '           1.- Nombre de usuario
        '           2.- Nombre distinguido de usuario (si se
        '               está volcando el resultado a un fichero)
        '           3.- Si la contraseña tiene caducidad
        '           4.- Fecha de última modificación
        '           5.- Hora de última modificación (si se
        '               está volcando el resultado a un fichero)
        '           6.- Dias que lleva establecida (si se
        '               está volcando el resultado a un fichero)
        '           7.- Dias de máxima duración de una contraseña
        '               (si se está volcando el resultado a un
        '               fichero)
        '           8.- Fecha en la que caduca
        '           9.- Días que faltan para caducar (0 o negativo
        '               para las contraseña que están caducadas)
        str_Datos = Replace(obj_Usuario.Name,"cn=","",1,-1,1) & _
                                                        vbTab & _
                    f_IIf(Len(str_Fichero)>0, _
                          str_Usuario & vbTab, _
                          "") & _
                    True & vbTab & _
                    DateValue(dth_UltimoCambio) & vbTab & _
                    f_IIf(Len(str_Fichero)>0, _
                          TimeValue(dth_UltimoCambio) & vbTab, _
                              "") & _
                    f_IIf(Len(str_Fichero)>0, _
                          int_DiasEstablecida & vbTab, _
                          "") & _
                    f_IIf(Len(str_Fichero)>0, _
                          int_DiasCaducidad & vbTab, _
                          "") & _
                    DateValue(dth_UltimoCambio + _
                                   int_DiasCaducidad) & vbTab & _
                    Int((dth_UltimoCambio + _
                            int_DiasCaducidad) - Now) & vbTab

        'Añadimos, si la contraseña está o no caducada y si está
        'o no deshabilitada
        str_Datos = str_Datos & _
                    (int_DiasEstablecida >= int_DiasCaducidad) & _
                    vbTab & _
                    ((int_ControlDeCuenta _
                      And ADS_UF_ACCOUNTDISABLE) = _
                          ADS_UF_ACCOUNTDISABLE)

    End If

    'Si hemos obtenido datos
    If Len(Trim(str_Datos)) > 0 Then

        'Pasamos los datos a la variable de salida
        str_Salida = str_Salida & str_Datos

        'Si hay que guardar la información en un fichero...
        If Len(str_Fichero) > 0 Then

            'Añadimos un salto de línea preparando el siguiente
            'usuario
            str_Salida = str_Salida & vbCrLf   

        'Sólo se muestran por pantalla
        Else

            'Mostramos la salida por pantalla
            WScript.Echo str_Salida

            'Vaciamos la variable de salida
            str_Salida = ""

        End If

    End If 

    'Limpieza de pompis :-)
    Set obj_Usuario = Nothing

End Sub 's_ProcesaUsuario

Function f_RevisarArgumentos( _
                             str_Error, _
                             int_Error _
                             ) 'As Boolean
'***********************************************************************
'* Procedimiento: f_RevisarArgumentos                                  *
'* Tipo         : Función                                              *
'* Devolución   : Booleana                                             *
'* Fecha y Hora : 05/03/2008 16:55:23                                  *
'* Autor        : Fernando Reyes                                       *
'*¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯*
'* Propósito    : Esta función revisa los argumentos recibidos,        *
'*                recogiendo los posibles fallos por falta de          *
'*                argumentos requeridos y almacenando en las           *
'*                variables correspondientes los argumentos            *
'*                recibidos. recibe dos parámetros cuyo fin es ser de  *
'*                salida: una cadena que almacenará los errores        *
'*                detectados y un entero que almacenará el código de   *
'*                los errores detectados. Hay tres tipos de error;     *
'*                error 1 para los argumentos sin nombre requeridos y  *
'*                no encontrados, error 2 para los argumentos con      *
'*                nombre requeridos y no encontrados, por último,      *
'*                error 4 para los combos de argumentos opcionales     *
'*                (un combo de argumentos opcionales es aquel          *
'*                conjunto de argumentos opcionales que es requerido   *
'*                que se pase al menos uno de ellos y que si se pasa   *
'*                más de uno se ignorarán aquellos que estén detrás    *
'*                en la prioridad entre ellos; una característica      *
'*                clara de lo que es un combo de argumentos es cuando  *
'*                dos omás argumentos almacenan su valor en la misma   *
'*                variable). En el caso de producirse más de un tipo   *
'*                de error, el número de error será la suma de ambos   *
'*                de los errores recibidos, es decir 3, 5 o 6          *
'***********************************************************************

    Dim bol_Devolucion 'As Boolean
    Dim bol_Error1 'As Boolean
    Dim bol_Error2 'As Boolean
    Dim bol_Error4 'As Boolean

    'Iniciamos los indicadores
    bol_Devolucion = False
    bol_Error1 = False
    bol_Error2 = False
    bol_Error4 = False

    'Si hay que mostrar la ayuda, se muestra y
    'termina el script
    If WScript.Arguments.Named.Exists("?") Then

        Call s_Ayuda("******************" & vbCrLf & _
                     "*     AYUDA      *" & vbCrLf & _
                     "******************")

        WScript.Quit 0

    End If

    'Revisamos si están todos los argumentos
    'sin nombre requeridos
    If WScript.Arguments.Unnamed.Count < 1 Then

        str_Error = "Error 1, falta/n argumento/s sin " & _
                    "nombre requerido/s"
        bol_Error1 = True

    Else

        'Guardamos los argumentos en las variables
        'correspondientes
        str_Dominio = WScript.Arguments.Unnamed(0)

        'Pasamos el nombre FQDN del dominio a nombre
        'LDAP
        str_Dominio = "dc=" & _
                      Replace(str_Dominio, _
                              ".", _
                              ",dc=")

        'Obtenemos ahora el nombre NT del dominio
        str_DominioNT = Replace(f_NTaDN("", str_Dominio),"","")

    End If

    'Revisamos que esté el argumento
    '/F (fichero)
    If WScript.Arguments.Named.Exists("F") Then

        str_Fichero =  _
               WScript.Arguments.Named("F")

    End If

    'Preparamos las variables de devolucion:
    'el entero como suma de los posibles errores 1, 2 y 4
    int_Error = Abs(bol_Error1) + _
                (2 * Abs(bol_Error2)) + _
                (4 * Abs(bol_Error4))
    'La devolucion de la función será True en caso de
    'haber alguno de los errores
    bol_Devolucion = (bol_Error1 Or bol_Error2 Or bol_Error4)

    'Hacemos la devolución de la función
    f_RevisarArgumentos = bol_Devolucion

End Function 'f_RevisarArgumentos

Sub s_Ayuda(str_Error)
'***********************************************************************
'* Procedimiento: s_Ayuda                                              *
'* Tipo         : Sub                                                  *
'* Devolución   :                                                      *
'* Fecha y Hora : 05/03/2008 16:55:23                                  *
'* Autor        : Fernando Reyes                                       *
'*¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯*
'* Propósito    : Este procedimiento muestra la ayuda en línea.        *
'*                Recibe un parámetro de tipo cadena que si viene      *
'*                será mostrado antes de la línea; pensado para que    *
'*                se muestre un error que se haya detectado.           *
'***********************************************************************

    'Si hay que mostrar algún texto previo a la ayuda, lo hacemos
    If Len(str_Error) > 0 Then

        WScript.Echo str_Error & vbCrLf & vbCrLf

    End If

    'A continuación, mostramos la ayuda por pantalla
    WScript.Echo "Este script nos permite listar la fecha en la que" & _
                 " caduca las contraseñas de"
    WScript.Echo "todos los usuarios del dominio que se recibe como" & _
                 " parámetro. El script permite"
    WScript.Echo "volcar los resultados en un fichero o mostrarlos " & _
                 "por pantalla."
    WScript.Echo ""
    WScript.Echo "Sintaxis"
    WScript.Echo ""
    WScript.Echo "cscript [//nologo] listar-caducidad-password-ad.v" & _
                 "bs [/F:fichero] [/?] dominio"
    WScript.Echo ""
    WScript.Echo "Siendo"
    WScript.Echo ""
    WScript.Echo "- dominio (Requerido):"
    WScript.Echo "Nombre FQDN del dominio en el que se consulta"
    WScript.Echo ""
    WScript.Echo "- /F: fichero (Opcional):"
    WScript.Echo "Ruta y nombre del fichero de valores separados po" & _
                 "r tabuladores"
    WScript.Echo "(ideal para abrir con Excel) en el que se volcará" & _
                 "n los resultados; si se omite, la información se " & _
                 "muestra por pantalla"
    WScript.Echo ""
    WScript.Echo "- /?: ayuda (Opcional):"
    WScript.Echo "Muestra la ayuda en línea"
    WScript.Echo ""
    WScript.Echo ""
    WScript.Echo "Ejemplos:"
    WScript.Echo ""
    WScript.Echo "- Muestra la caducidad de las contraseñas de los " & _
                 "usuarios del dominio ""tia.org"":"
    WScript.Echo ""
    WScript.Echo "cscript //nologo listar-caducidad-password-ad.vbs" & _
                 " tia.org"
    WScript.Echo ""
    WScript.Echo "- Muestra la caducidad de las contraseñas de los " & _
                 "usuarios del dominio tia.org"
    WScript.Echo "y guarda la información en el archivo de valores " & _
                 "separados por comas"
    WScript.Echo """c:listados adcaducidad.tsv"":"
    WScript.Echo ""
    WScript.Echo "cscript //nologo listar-caducidad-password-ad.vbs" & _
                 " /F:""c:listados adcaducidad.tsv"" tia.org"
    WScript.Echo ""
    WScript.Echo ""
    WScript.Echo ""

End Sub 's_Ayuda

Function f_NTaDN(str_RutaNT, str_DN)
'***********************************************************************
'* Procedimiento: f_NTaDN                                              *
'* Tipo         : Función                                              *
'* Devolución   : Cadena                                               *
'* Fecha y Hora : May 2007                                             *
'* Autor        : Fernando Reyes                                       *
'*¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯*
'* Propósito    : Esta función recibe o bien el nombre NT              *
'*                ("dominionombre"), como primer parámetro, de un     *
'*                objeto de dominio y devuelve el nombre distinguido   *
'*                de ese objeto, o bien el nombre distinguido de un    *
'*                objeto, como segundo parámetro, y devuelve el        *
'*                nombre NT.                                           *
'*                Basada en el código de Richard Mueller, MVP de       *
'*                Scripting y ADSI (http://www.rlmueller.net)          *
'***********************************************************************

    'Constantes para el objeto NameTranslate
    Const ADS_NAME_INITTYPE_GC = 3
    Const ADS_NAME_TYPE_NT4 = 3
    Const ADS_NAME_TYPE_1779 = 1

    Dim obj_TraductorDeNombres
    Dim int_De, int_A,str_Nombre

    If  Len(str_RutaNT) > 0 Then

        int_De = ADS_NAME_TYPE_NT4
        int_A = ADS_NAME_TYPE_1779
        str_Nombre = str_RutaNT

    ElseIf Len(str_DN) > 0 Then

        int_De = ADS_NAME_TYPE_1779
        int_A = ADS_NAME_TYPE_NT4
        str_Nombre = str_DN

    Else

        WScript.Echo "Error 1 en f_NTaDN: No se ha pasado " & _
                     "ningún nombre para traducir."
        Exit Function
    End If
    'Creamos el objeto NameTranslate.
    Set obj_TraductorDeNombres = CreateObject("NameTranslate")

    On Error Resume Next

    'Lo iniciamos localizando el catálogo global
    obj_TraductorDeNombres.Init ADS_NAME_INITTYPE_GC, ""

    'Establecemos el parámetro de nombre en el traductor de nombres
    obj_TraductorDeNombres.Set int_De, str_Nombre

    'Usamos el método Get del traductor de nombres para obtener el
    'nombre traducido
    f_NTaDN = obj_TraductorDeNombres.Get(int_A)

    'Si se hubiese pasado un nombre LDAP de dominio ,el nombre de
    'NT de dominio obtenido termina en backslash (), cosa que
    'estorba, lo quitamos
    If Right(f_NTaDN, 1) = "" Then _
        f_NTaDN = Left(f_NTaDN, Len(f_NTaDN) -1)

    'Limpieza de kks :-)
    Set obj_TraductorDeNombres = Nothing

    On Error GoTo 0

End Function 'f_NTaDN

Function f_IIf(bol_Expresion, _
               var_Verdadero, _
               var_Falso)
'***********************************************************************
'* Procedimiento: f_IIf                                                *
'* Tipo         : Función                                              *
'* Devolución   : Variant                                              *
'* Fecha y Hora : Julio de 2007                                        *
'* Autor        : Fernando Reyes                                       *
'*¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯*
'* Propósito    : Esta función emula la función Iif de VBA.Recibe una  *
'*                booleana, que será el resultado de una expresión     *
'*                que se ponga como parámetro al llamar la función,    *
'*                tal y como se hace en la función IIf de VBA, y       *
'*                devolverá lo que se pase como parámetro              *
'*                var_Verdadero, si la booleana es verdadera o lo que  *
'*                se pase como parámetro var_Falso si la booleana es   *
'*                falsa.                                               *
'***********************************************************************

    if bol_Expresion Then

        f_IIF = var_Verdadero

    Else

        f_IIf = var_Falso

    End If

End Function 'f_IIf