문자열을 utf-8 형식으로 변환하는 jscript 함수를 -> vbsvri

function toUTF8(szInput)
	{
	var wch,x,uch="",szRet="";

	for (x=0; x<szInput.length; x++)
	{
	wch=szInput.charCodeAt(x);
	if (!(wch & 0xFF80))
	{
	szRet += "%" + wch.toString(16);
	}
	else if (!(wch & 0xF800))
	{
	uch = "%" + (wch>>6 | 0xC0).toString(16) + 
		"%" + (wch & 0x3F | 0x80).toString(16);
	szRet += uch;
	}
	else
	{
	uch = "%" + (wch >> 12 | 0xE0).toString(16) + 
		"%" + (((wch >> 6) & 0x3F) | 0x80).toString(16) +
		"%" + (wch & 0x3F | 0x80).toString(16);
	szRet += uch; 
	}
	}
	return(szRet);
	}

문자열을 utf-8 형식으로 변환하는 Jscript 함수인데요.

이걸 VBScript 로 변환해달라는데 지금 회사에 남아있는 사람중에
VBScript 를 다룰 줄 아는 사람이 없네요.

지금 해보고는 있는데 혹시 도와주실분 안계신지요 ^^;;

문제가되는 부분은 (wch>>6 | 0xC0), (wch & 0x3F | 0x80) 같은부분을

VBScript 에선 어떻게 쓰는지 몰라서 진행이 더딥니다.

내일이 리뷰하는 날인데 이거때문에 퇴근을 못하고 있답니다 -_-; 으윽..

조언 부탁드립니다.