vbscript - 使用 vbscript 将 Base64 字符串转换为文件并在本地保存

Question

当我尝试将 base64 字符串解码为文件并将其保存在本地时，我收到了下面提到的错误。我在网上做了一些研究，找不到解决方案。提前致谢。

参数类型错误、超出可接受范围或相互冲突。

    Const adTypeBinary = 1
    Dim str 
    str = strBase64Content 'base64 string here

    Dim objXML 
    Dim objNode

    Set objXML = CreateObject("Msxml2.DOMDocument.6.0")
    Set objNode = objXML.createElement("b64")
    objNode.DataType = "bin.base64"
    objNode.Text = strBase64Content
    decodeBase64 = objNode.nodeTypedValue

    Set objNode = Nothing
    Set objXML = Nothing

    set stream =  server.CreateObject("ADODB.Stream")
    stream.Open
    stream.Type = adTypeBinary
    stream.Write decodeBase64
    stream.SaveToFile "C:\"
    stream.Close

标签： vbscriptadodb