Desbloquear script para: Server.CreateObject("Scripting.FileSystemObject")

[skatomundo]

PathXLS = Server.MapPath("./exportacion/Listado_telefono.xls")
FinLinea = ""

If not empresas.eof then
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set Arch_Excel = fso.CreateTextFile(PathXLS, True)
'Set oConn = Server.CreateObject("ADODB.Connection")

' Recorro todo el recordset recuperando sus valores y escribiéndolos en el archivo Excel
If not empresas.bof or not empresas.eof then empresas.MoveFirst
'En la primera linea escribimos los nombres de los campos para que quede más bonito :P
encabezado = "Cluster" & chr(9) &"Cuenta"
Arch_Excel.writeline encabezado
Do while Not empresas.EOF
FinLinea = ""
For each x in empresas.fields
FinLinea = FinLinea & x.value & chr(9)
Next
Arch_Excel.writeline FinLinea
empresas.MoveNext
Loop


pARA ESTA INSTRUCCION:
Set fso = Server.CreateObject("Scripting.FileSystemObject")

DEBO BAJAR MI SEGURIDAD DE "BLOQUEO DE SCRIPT DE MI ANTIVIRUS O FIREWALL"?????

yo tengo NORTON SYSTEMWORK 2002, con bloqueo de SCRIPT.

salu2