Errore Strano VBSCRIPT

[alberto27]

Come dicevo prima in un altro forum sono un neofita di vbscritp. Ho uno script in una pagina html e non riesco a cpaire il motivo di un errore che mi viene segnalato.
Allora ho provato a scrivere questo codice

<SCRIPT LANGUAGE=vbscript>
Set fso = CreateObject("Scripting.FileSystemObject")

if fso.FolderExists("c:\\winnt\\system32\\") then
       document.write "esiste NT"
       document.write "ok"
elseif fso.FolderExists("c:\\windows\\system32\\") then
       document.write "esiste XP"
       document.write "ok"
elseif fso.FolderExists("c:\\windows\\system\\") then
       document.write "esiste 98"
       document.write "ok"
else
    document.write "non esiste"
end if

</SCRIPT>

e fin qui tutto bene, ma questo è uno script di prova naturalemente quindi volevo inserire del codice piu furbo rispetto il semplice document.write. Ho scritto inserendo il codice corretto

<SCRIPT LANGUAGE=vbscript>
var fso = new ActiveXObject("Scripting.FileSystemObject"); 
if fso.FolderExists("c:\\Windows\\") then
   document.write "esiste XP";
   var a = fso.CreateTextFile("c:\\prova1.txt", true);
   codice = "<?php echo $codice; ?>";
   a.WriteLine (codice);
   a.Close();
elseif fso.FolderExists("c:\\Winnt\\") then
   document.write "esiste NT";
   var a = fso.CreateTextFile("c:\\prova2.txt", true);
   codice = "<?php echo $codice; ?>";
   a.WriteLine (codice);
   a.Close();
else
    document.write "Sistema incompatibile. Contattare l'amministratore di sistema."
end if
</script>

L'errore che mi segnala è "Prevista fine istruzione" a riga 10(quella segnata in rosso).
Qualcuno sa autarmi? Ho provato pure a togliere i punti e virgola alla fine delle istruzioni ma non va lo stesso.

ciao e grazie

[pietro09]

1)
Il codice di prova non funziona, a meno di non scegliere un livello di protezione molto basso


2) il codice più furbo non funziona perchè non è vbscript :master: