Bonjour,

j'utilise du VBscript dans une page HTML afin d'encoder un fichier en base64, pour transmettre à un webservice.

J'ai pris exemple sur le code suivant en VB :
http://www.developpez.net/forums/d59...-coder-base64/

mais je n'arrive pas à l'adapter en VBScript.

Voici en gros à quoi ressemble mon code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
<html>
<head>
<SCRIPT LANGUAGE="VBScript">
Function convertBase64(Text)
  MsgBox Text
 
  Dim Xml 
  Set Xml = CreateObject("MSXML2.DOMDocument.4.0")
 
  Dim Conv 'As MSXML.IXMLDOMElement
 
  Dim Arr() 'As Byte
 
  If Text = "" Then
    Encode_Base64 = ""
    Exit Function
  End If
 
  Arr = StrConv(Text, vbFromUnicode)
  Set Conv = Xml.createElement("Base64")
  Conv.dataType = "bin.base64"
  Conv.nodeTypedValue = Arr
  Encode_Base64 = Conv.Text
 
End Function
</script>
 
</head>
<body>
<FORM NAME="Feuille1">
   <INPUT TYPE="Button" NAME="Bouton1" VALUE="Clic">
   <SCRIPT FOR="Bouton1" EVENT="onClick" LANGUAGE="VBScript">
      convertBase64("c:\toto.txt")
   </SCRIPT>
</FORM>
</body>
</html>
1er problème : je n'arrive pas à créer l'objet MSXML.IXMLDOMElement
2eme problème : la méthode StrConv ne marche pas (existe-elle en VBscript) ?

Merci d'avance pour vos réponses et suggestions.