如何将这个vbs函数改写成js的

Question

<script language="javascript">
var adTypeBinary = 1
var adTypeText = 2
function bytes2bstr(vin){
var st = new ActiveXObject("adodb.stream")
with (st){
Type = adTypeText
Open()
WriteText(vin)
Position = 0
Charset = "GB2312"
Position = 2
return ReadText
}
}
</script>

Answer 1

从JAVASCRIPT中可以真接使用（调用）VBS的函数
根本不用改

Answer 2

to  yagas
这个我知道！

Answer 3

to Go_Rush
是的，allforly的方法很好用。但需要adodb，通用性是否差些？