Solo Para Maestros

[stipab]

COMO SERIA ESTE CODIGO VBSCRIPT EN JAVASCRIPT
Y QUE ERROR LE ENCUENTRAN..POR FAVOR AYUDA , SE LOS AGRADECERE MUCHO
*****************
<SCRIPT LANGUAGE="VBScript">
Sub window_onLoad()


MSR1.Open "NCRMSR.2"
MSR1.Claim 0
MSR1.DeviceEnabled = True
MSR1.DataEventEnabled = True
MSR1.DecodeData = True
ClickSnd.FileName = "media/wav/BttnValid.wav"



end sub

Sub window_onUnload()
MSR1.Close
end sub

dim MSRFunction
MSRFunction = "SwipeCard()"

Sub MSR1_DataEvent(Status)
MSR1.DataEventEnabled = TRUE
window.setTimeout MSRFunction, 100, "VBSCRIPT"
if ClickSnd.ReadyState = 4 then
ClickSnd.Run
end if
end sub

sub SetMSRFunction( fun )
MSRFunction = fun
end sub

sub RestoreMSRFunction
MSRFunction = "SwipeCard()"
end sub

Sub SwipeCard()
SwipeData = MSR1.Track2Data
SwipeData = left( SwipeData, 16 )
document.FrontPage_Form1.Tarjeta.value= SwipeData
End Sub
</SCRIPT>

POR FAVOR Y QUE ERROR LE ENCUENTRAN