EXEMPLE : ARRAYCONVERT. Fonctions de Conversion de variante EXE

Résumé

ArrayConvert.exe est un exemple qui est utilisé pour convertir les variantes d’un même type de variantes d’un autre type. Par exemple, si vous utilisez Visual Basic Script (VBScript), ces fonctions de conversion vous aident lors de la conversion d’un objet de type Variant qui contient une chaîne d’octets vers une variante qui contient une chaîne hexadécimale.

Plus d'informations

Le fichier suivant est disponible au téléchargement à partir du Microsoft Download Center :
Le fichier ArrayConvert.exe contient les fichiers suivants :


ADS.vbp747 octets
ADS.vbw35 octets
ArrayConvert.cls3017 octets
ArrayConvertTest.bas1205 octets
ArrayConvertTest.vbgoctets 67
ArrayConvertTest.vbp884 octets
ArrayConvertTest.vbw31 octets
ADS.dll24 576 octets
ADs.exp996 octets
ADs.lib2536 octets
AdsConvert.vbgoctets 73


Date de publication : Avril-13-2000

Pour plus d'informations sur la façon de télécharger des fichiers de Support Microsoft, cliquez sur le numéro ci-dessous pour afficher l'article correspondant dans la Base de connaissances Microsoft :Microsoft a vérifié que ce fichier ne comportait pas de virus. Microsoft a utilisé les logiciels de détection de virus les plus récents disponibles à la date à laquelle le fichier a été validé. Le fichier est stocké sur des serveurs sécurisés, ce qui permettant d’éviter toute modification non autorisée du fichier.
Les cinq fonctions qui se trouvent dans cet exemple sont :
  1. CStrArray - Utilisez cette fonction pour convertir un tableau de chaînes variantes pour un tableau Variant de variantes contenant les chaînes. Cela permet de VBScript pour accéder à des attributs de chaîne à valeurs multiples renvoyés dans les jeux d’enregistrements ADO.

    CvOctetStr2vHexStr - Utilisez cette fonction pour convertir un tableau d’octets de type Variant en un Variant contenant une chaîne hexadécimale de codé en ASCII. Cela permet de VBScript traduire une variante de ADSTYPE_OCTETSTRING dans une chaîne de caractères de l’ASCII 0-9 A-F.

    CvHexStr2vOctetStr -cette fonction permet de convertir un Variant contenant une chaîne hexadécimale de codé en ASCII à un tableau d’octets de type Variant. Cela permet de VBScript créer des variantes de ADSTYPE_OCTETSTRING à partir de chaînes d’ASCII caractères 0-9 A-F.

    CvOctetStr2vStr - Utilisez cette fonction pour convertir un tableau d’octets de type Variant en un Variant contenant une chaîne ASCII. Cela permet de VBScript pour traduire une variante ADSTYPE_OCTETSTRING en une chaîne de caractères ASCII.

    CvStr2vOctetStr - Utilisez cette fonction pour convertir une valeur Variant contenant une chaîne en un tableau d’octets de type Variant. Cela permet de VBScript créer des variantes de ADSTYPE_OCTETSTRING à partir de chaînes de caractères ASCII.
  2. CvOctetStr2vHexStr - Utilisez cette fonction pour convertir un tableau d’octets de type Variant en un Variant contenant une chaîne hexadécimale de codé en ASCII. Cela permet de VBScript traduire une variante de ADSTYPE_OCTETSTRING dans une chaîne de caractères de l’ASCII 0-9 A-F.

    CvHexStr2vOctetStr -cette fonction permet de convertir un Variant contenant une chaîne hexadécimale de codé en ASCII à un tableau d’octets de type Variant. Cela permet de VBScript créer des variantes de ADSTYPE_OCTETSTRING à partir de chaînes d’ASCII caractères 0-9 A-F.

    CvOctetStr2vStr - Utilisez cette fonction pour convertir un tableau d’octets de type Variant en un Variant contenant une chaîne ASCII. Cela permet de VBScript pour traduire une variante ADSTYPE_OCTETSTRING en une chaîne de caractères ASCII.

    CvStr2vOctetStr - Utilisez cette fonction pour convertir une valeur Variant contenant une chaîne en un tableau d’octets de type Variant. Cela permet de VBScript créer des variantes de ADSTYPE_OCTETSTRING à partir de chaînes de caractères ASCII.
  3. CvHexStr2vOctetStr -cette fonction permet de convertir un Variant contenant une chaîne hexadécimale de codé en ASCII à un tableau d’octets de type Variant. Cela permet de VBScript créer des variantes de ADSTYPE_OCTETSTRING à partir de chaînes d’ASCII caractères 0-9 A-F.

    CvOctetStr2vStr - Utilisez cette fonction pour convertir un tableau d’octets de type Variant en un Variant contenant une chaîne ASCII. Cela permet de VBScript pour traduire une variante ADSTYPE_OCTETSTRING en une chaîne de caractères ASCII.

    CvStr2vOctetStr - Utilisez cette fonction pour convertir une valeur Variant contenant une chaîne en un tableau d’octets de type Variant. Cela permet de VBScript créer des variantes de ADSTYPE_OCTETSTRING à partir de chaînes de caractères ASCII.
  4. CvOctetStr2vStr - Utilisez cette fonction pour convertir un tableau d’octets de type Variant en un Variant contenant une chaîne ASCII. Cela permet de VBScript pour traduire une variante ADSTYPE_OCTETSTRING en une chaîne de caractères ASCII.

    CvStr2vOctetStr - Utilisez cette fonction pour convertir une valeur Variant contenant une chaîne en un tableau d’octets de type Variant. Cela permet de VBScript créer des variantes de ADSTYPE_OCTETSTRING à partir de chaînes de caractères ASCII.
  5. CvStr2vOctetStr - Utilisez cette fonction pour convertir une valeur Variant contenant une chaîne en un tableau d’octets de type Variant. Cela permet de VBScript créer des variantes de ADSTYPE_OCTETSTRING à partir de chaînes de caractères ASCII.
Pour utiliser l’exemple, double-cliquez sur le fichier exécutable à extraction automatique ArrayConvert.exe. À l’aide de Visual Basic, ouvrez le fichier ArrayConvertTest.vbg. Une fois que le projet est ouvert, vous pouvez exécuter le programme de test qui montre comment utiliser les fonctions de conversion.

Pour utiliser les fonctions à partir de VBScript, vous pouvez enregistrer le fichier Ads.Dll Regsvr32 Ads.dll et puis en appelant les fonctions dans VBScript.

Voici un exemple d’utilisation de la fonction CStrArray dans un script VBScript pour convertir et afficher les membres des listes de Distribution dans une organisation 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

Propriétés

ID d'article : 250344 - Dernière mise à jour : 8 janv. 2017 - Révision : 1

Commentaires