[vb] script non funzionante in internet

[mamo139]

il seguente script mi funziona se lo eseguo in locale.. ma se eseguo la stessa pagina htm su altervista non funziona piu!!! come mai???
grazie ciao

<SCRIPT LANGUAGE=vbscript>
<!--
Dim Drive,folder, subfolder,elemFolder
path="c:\"
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(path)
Set subfolder = folder.Subfolders
document.write path & "
"
For each elemFolder in subfolder
    document.write "    " & replace(lcase(elemFolder),lcase(path),"") & "
"
next
Set files = folder.files
For each elemFile in files
    document.write "     " & replace(lcase(elemFile),lcase(path),"") & "
"
next
//-->
</SCRIPT>

[br1]

Messaggi d'errore?
Hai autorizzato la creazione dell'oggetto?
Controlla che la pagina ricevuta contenga lo stesso identico script... alcuni provider free modificano il codice potenzialmente dannoso (come questo )

ciao