急哪位能提供VBS写的GBK2312码转换成Unicode?解决方案

急急！哪位能提供VBS写的GBK2312码转换成Unicode?
我在网上搜了很多，但都不能用，哪位能提供，谢谢。

[解决办法]
帮您顶一下
[解决办法]

VBScript code

Function ANSIToUnicode(ByVal strData)    Dim ret, i, l, u    l = Len(strData)    ReDim ret(l - 1)    For i = 1 To l        u = AscW(Mid(strData, i, 1)) And &HFFFF&        If u < 128 Then            ret(i - 1) = ChrW(u)        Else            ret(i - 1) = Replace("&#x$1;", "$1", Hex(u))        End If    Next    ANSIToUnicode = Join(ret, Empty)End Function
[解决办法]
高级。
[解决办法]
帮顶！！
[解决办法]
VBScript code
Function ToUnicode(ByVal s)    Dim reg: Set reg = New RegExp    reg.Pattern = "%(?:u([\dA-F]{4})|([\dA-F]{2}))"    reg.IgnoreCase = True    reg.Global = True    ToUnicode = reg.Replace(Escape(s), "&#x$1$2;")    Set reg = NothingEnd Function