Скрипт скачивания и запуска файла расценен как троянская программа - VB

Формулировка задачи:

Есть скрип на скачивание файла и открытие. На скрипт ругается антивирус. Ругается на слово "Run" в синтаксисе WshShell.Run Помогите альтернативно отредактировать скрипт, что бы он выполнял свою функцию не возбуждая антивирус.

                    Листинг программы
                
 
                        
                          
                    
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
oXMLHTTP.Open "GET", "http://rarlab.com/rar/wrar500ru.exe", 0 
oXMLHTTP.Send
Set oADOStream = CreateObject("ADODB.Stream")
oADOStream.Mode = 3
oADOStream.Type = 1
oADOStream.Open
oADOStream.Write oXMLHTTP.responseBody
oADOStream.SaveToFile "C:\wrar500ru.exe", 2 
dim path, WshShell
path = "C:\"
set WshShell = WScript.CreateObject("Wscript.Shell")
WshShell.Run path & "wrar500ru.exe", ,true

Решение задачи: «Скрипт скачивания и запуска файла расценен как троянская программа»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace("C:\")
objFolder.CopyHere "ftp://User:Password@domen_name.ru/folder/subfolder/wrar500ru.exe"
WScript.Sleep 60000
dim path, WshShell
path = "C:\"
set WshShell = WScript.CreateObject("Wscript.Shell")
WshShell.Run path & "wrar500ru.exe", ,true