在VBScript中，可以使用Base64Encode函数来进行Base64编码。下面是一个简单的示例代码：
Dim Base64StringBase64String = Base64Encode("Hello, World!")WScript.Echo Base64StringFunction Base64Encode(str)Dim objXML, objNode' 创建XML对象Set objXML = CreateObject("MSXML2.DOMDocument")' 创建节点并设置节点值Set objNode = objXML.CreateElement("b64")objNode.DataType = "bin.base64"objNode.Text = StreamStringToBase64(str)' 将节点内容转换为Base64字符串并返回Base64Encode = objNode.TextSet objNode = NothingSet objXML = NothingEnd Function' 将字符串转换为Base64编码的字节数组Function StreamStringToBase64(str)Dim objStream' 创建二进制数据流对象Set objStream = CreateObject("ADODB.Stream")objStream.Type = 2 ' adTypeTextobjStream.Charset = "UTF-8"objStream.OpenobjStream.WriteText strobjStream.Position = 0objStream.Type = 1 ' adTypeBinaryStreamStringToBase64 = objStream.ReadText(-1)Set objStream = NothingEnd Function在上述代码中，Base64Encode函数接受一个字符串参数，并返回该字符串的Base64编码。StreamStringToBase64函数将字符串转换为Base64编码的字节数组。通过创建XML对象和节点，然后将字节数组赋值给节点的Text属性，最终通过节点的Text属性获取Base64编码字符串。
