一個(gè)實(shí)現(xiàn)VBS倒計(jì)時(shí)的代碼  

以下內(nèi)容為程序代碼: 

<script language="VBScript"> 
       Dim oTime : oTime = 5 
       Function STime 
            document.all("oInput").value = "00:00:" & oTime 
            If oTime>0 Then 
               oTime = oTime - 1 
               window.setTimeout "STime", 1000 
            Else 
               MsgBox "時(shí)間到了！" 
            End If 
       End Function 
       Sub Window_Onload 
             Call STime 
       End Sub 
msgbox(value) 
</script> 
<input id="oInput" type="text"> 



把上面這段保存為001.html可以成為一個(gè)完整的倒計(jì)時(shí)器，哪位幫我把他改成VBS一下，讓其能變成VBS倒計(jì)時(shí)器！