EJEMPLO: ARRAYCONVERT. Funciones de conversión de Variant de EXE

Resumen

ArrayConvert.exe es un ejemplo que se utiliza para convertir las variantes de un tipo a las variantes de otro tipo. Por ejemplo, si está utilizando Visual Basic Script (VBScript), estas funciones de conversión ayudan en la conversión de un valor de tipo Variant que contiene una cadena de octetos a un Variant que contiene una cadena hexadecimal.

Más información

El siguiente archivo está disponible para su descarga desde el Centro de descarga de Microsoft:
El archivo ArrayConvert.exe contiene los siguientes archivos:


ADS.vbp747 bytes
ADS.vbw35 bytes
ArrayConvert.cls3017 bytes
ArrayConvertTest.bas1205 bytes
ArrayConvertTest.vbg67 bytes
ArrayConvertTest.vbp884 bytes
ArrayConvertTest.vbw31 bytes
ADS.dll24.576 bytes
ADs.exp996 bytes
ADs.lib2536 bytes
AdsConvert.vbg73 bytes


Fecha de lanzamiento: Apr-13-2000

Para obtener información adicional acerca de cómo descargar archivos de Microsoft Support, haga clic en el número de artículo siguiente para verlo en Microsoft Knowledge Base:
119591 cómo obtener archivos de soporte técnico de Microsoft desde los servicios en línea
Microsoft analizó este archivo en busca de virus. Microsoft ha utilizado el software de detección de virus más reciente que estaba disponible en la fecha en que se publicó el archivo. El archivo se almacena en servidores seguros que ayudan a impedir cambios no autorizados en el archivo.
Las cinco funciones que se encuentran en este ejemplo son:
  1. CStrArray - Utilice esta función para convertir una matriz Variant de cadenas en una matriz de variantes de Variant que contiene cadenas. Esto permite VBScript tener acceso a los atributos de cadena multivalor devueltos en los conjuntos de registros ADO.

    CvOctetStr2vHexStr - Utilice esta función para convertir una matriz Variant de bytes a una variante que contiene una cadena codificada en ASCII Hex. Esto permite VBScript traducir un ADSTYPE_OCTETSTRING Variant en una cadena de caracteres ASCII 0-9 A-F.

    CvHexStr2vOctetStr -Utilice esta función para convertir un valor de tipo Variant que contiene una cadena codificada en ASCII Hex para una matriz Variant de bytes. Esto permite VBScript crear variantes para ADSTYPE_OCTETSTRING de las cadenas de ASCII caracteres 0-9 A-F.

    CvOctetStr2vStr - Utilice esta función para convertir una matriz Variant de bytes a una variante que contiene una cadena ASCII. Esto permite VBScript traducir un ADSTYPE_OCTETSTRING Variant en una cadena de caracteres ASCII.

    CvStr2vOctetStr - Utilice esta función para convertir un valor de tipo Variant que contiene una cadena en una matriz Variant de bytes. Esto permite VBScript crear variantes para ADSTYPE_OCTETSTRING de las cadenas de caracteres ASCII.
  2. CvOctetStr2vHexStr - Utilice esta función para convertir una matriz Variant de bytes a una variante que contiene una cadena codificada en ASCII Hex. Esto permite VBScript traducir un ADSTYPE_OCTETSTRING Variant en una cadena de caracteres ASCII 0-9 A-F.

    CvHexStr2vOctetStr -Utilice esta función para convertir un valor de tipo Variant que contiene una cadena codificada en ASCII Hex para una matriz Variant de bytes. Esto permite VBScript crear variantes para ADSTYPE_OCTETSTRING de las cadenas de ASCII caracteres 0-9 A-F.

    CvOctetStr2vStr - Utilice esta función para convertir una matriz Variant de bytes a una variante que contiene una cadena ASCII. Esto permite VBScript traducir un ADSTYPE_OCTETSTRING Variant en una cadena de caracteres ASCII.

    CvStr2vOctetStr - Utilice esta función para convertir un valor de tipo Variant que contiene una cadena en una matriz Variant de bytes. Esto permite VBScript crear variantes para ADSTYPE_OCTETSTRING de las cadenas de caracteres ASCII.
  3. CvHexStr2vOctetStr -Utilice esta función para convertir un valor de tipo Variant que contiene una cadena codificada en ASCII Hex para una matriz Variant de bytes. Esto permite VBScript crear variantes para ADSTYPE_OCTETSTRING de las cadenas de ASCII caracteres 0-9 A-F.

    CvOctetStr2vStr - Utilice esta función para convertir una matriz Variant de bytes a una variante que contiene una cadena ASCII. Esto permite VBScript traducir un ADSTYPE_OCTETSTRING Variant en una cadena de caracteres ASCII.

    CvStr2vOctetStr - Utilice esta función para convertir un valor de tipo Variant que contiene una cadena en una matriz Variant de bytes. Esto permite VBScript crear variantes para ADSTYPE_OCTETSTRING de las cadenas de caracteres ASCII.
  4. CvOctetStr2vStr - Utilice esta función para convertir una matriz Variant de bytes a una variante que contiene una cadena ASCII. Esto permite VBScript traducir un ADSTYPE_OCTETSTRING Variant en una cadena de caracteres ASCII.

    CvStr2vOctetStr - Utilice esta función para convertir un valor de tipo Variant que contiene una cadena en una matriz Variant de bytes. Esto permite VBScript crear variantes para ADSTYPE_OCTETSTRING de las cadenas de caracteres ASCII.
  5. CvStr2vOctetStr - Utilice esta función para convertir un valor de tipo Variant que contiene una cadena en una matriz Variant de bytes. Esto permite VBScript crear variantes para ADSTYPE_OCTETSTRING de las cadenas de caracteres ASCII.
Para utilizar el ejemplo, haga doble clic en el archivo ejecutable autoextraíble ArrayConvert.exe. Con Visual Basic, abra el archivo ArrayConvertTest.vbg. Una vez abierto el proyecto puede ejecutar el programa de prueba que se muestra cómo utilizar las funciones de conversión.

Para utilizar las funciones de VBScript, puede registrar el el archivo Ads.Dll Ads.dll de Regsvr32 y, a continuación, llamar a las funciones de VBScript.

El siguiente es un ejemplo del uso de la función CStrArray de VBScript para convertir y mostrar a los miembros de listas de distribución en una organización de Exchange:
 Set cnvt = CreateObject("ADs.ArrayConvert")
Set conn = CreateObject("ADODB.connection")
conn.provider = "ADSDSOObject"
conn.open ""
Set rs = conn.execute( _
"<LDAP://Server/o=organization/ou=site/cn=recipients>;(objectClass=groupOfNames);ADsPath,member;onelevel")

While Not rs.EOF
v1 = cnvt.CStrArray(rs.fields("member").Value)
For Each v2 In v1
msgbox v2
Next

rs.movenext
Wend

Propiedades

Id. de artículo: 250344 - Última revisión: 8 ene. 2017 - Revisión: 1

Comentarios