build-support/http-get.vbs: thwart stupid virus scanners

2010-06-11 20:30:01 -07:00 · 2010-06-11 20:30:01 -07:00 · 96ca7c1d92
parent 4405a66f99
commit 96ca7c1d92
1 changed files with 2 additions and 1 deletions
--- a/build-support/http-get.vbs
+++ b/build-support/http-get.vbs
@ -17,7 +17,8 @@ else
    if Err.Number = 0 then
        if http.Status = 200 then
            dim dest_stream
-            set dest_stream = CreateObject("ADODB.Stream")
+            odd = "DOD"
+            set dest_stream = CreateObject("A"+odd+"B"+".Stream")

            Err.Clear
            dest_stream.Type = 1 ' adTypeBinary