航邦:请问以下VBS代码换成Java Script该怎么写？

' VB Script Document
Dim FileList,FileListArr

FileList = ",pic/pic56l.jpg,pic/pic57l.jpg,pic/pic55l.jpg,"
FileListArr = Split(FileList,",")

Dim CanPlay
CanPlay = CInt(Split(Split(navigator.appVersion,";")(1)," ")(2))>5

Dim FilterStr
If CanPlay Then
FilterStr = "progid:DXImageTransform.Microsoft.Fade(duration=1,overlap=0)"
'FilterStr = "progid:DXImageTransform.Microsoft.Wipe(duration=2,gradientsize=0.25,motion=forward);progid:DXImageTransform.Microsoft.Wipe(duration=2,gradientsize=0.25,motion=reverse);progid:DXImageTransform.Microsoft.Fade(duration=2,overlap=1);progid:DXImageTransform.Microsoft.Fade(duration=2,overlap=0)"
Else
FilterStr = "RevealTrans(duration=2,transition=23)"
End If

Dim FilterArr
FilterArr = Split(FilterStr,";")

Dim PlayImg_M
PlayImg_M = 7 * 1000

Dim SI
SI = 2

Sub ChangeImg
Do While FileListArr(SI)=""
SI = SI + 1
If SI>(UBound(FileListArr)-1) Then SI = 1
Loop
Dim SJ
If SI>(UBound(FileListArr)-1) Then SI = 1
Randomize
SJ = Int(Rnd * (UBound(FilterArr)+1))
SlideImg.style.filter = FilterArr(SJ)
SlideImg.filters(0).Apply
SlideImg.Src = FileListArr(SI)
SlideImg.filters(0).play
SI = SI + 1
If SI>(UBound(FileListArr)-1) Then SI = 1
SetTimeout "ChangeImg", PlayImg_M,"VBScript"
End Sub

SlideImg.Src = FileListArr(1)
SetTimeout "ChangeImg",PlayImg_M,"VBScript"