problemuccio vbscript / windows server 2003

[casuccia]

Ciao a tutti,
un problemuccio che mi sta facendo impazzire.
Ho un vbscript perfettamente funzionante in una vecchia macchina con vecchio hardware e windows 2003 server standard,questo script ha il compito di importare dei listini excel e far vedere tramite una finestra windows il progresso di importazione... e lo fa egregiamente.

Lo stesso script l'ho copiato su un hardware molto più performante e windows 2003 enterprise (registrato e aggiornato all'ultimo sp) tuttavia immediatamente dopo il lancio dello script ,una finestra di warning me lo blocca dicendo : WINDOWS SCRIPT HOST - "proprietà o metodo non supportati dall'oggetto : objIE.document.all(...)Value.

In pratica (penso con buona certezza) che c'è qualcosa che blocca la visualizzazione della finestra dello script , ho provato ad abbassare in internet explorer il livello di sicurezza al minimo , ma ho sempre lo stesso risultato,ho pensato possa essere il firewall software di server 2003 ma anche togliendolo ho lo stesso risultato.

Credo sia una cosa molto banale ma tremendamente fastidiosa e che mi mette nei guai.
Qualcuno ha qualche suggerimento da darmi ?
Grazie

[Santino83_02]

ma non è una linea di asp questa: objIE.document.all(...)Value. oppure si? scrivi in JSCRipt?

[casuccia]

Dim objIE

Function WOpen(strHTMLFilePath, strTitle, intTop, intLeft, intHeight, intWidth)

Set objIE = CreateObject("InternetExplorer.Application")
objIE.Left = intLeft
objIE.Top = intTop
objIE.Width = intWidth
objIE.Height = intHeight
objIE.MenuBar = FALSE
objIE.ToolBar = FALSE
objIE.StatusBar = FALSE
objIE.Silent = TRUE
objIE.Navigate strHTMLfilepath
While objIE.Busy : Wend

objIE.document.all("ProgressBarTitle").innerTEXT = strTitle
objIE.document.all("ProgressBarLine1").innerTEXT = ""
objIE.document.all("ProgressBar").Value = 0

End Function

Function WClose()
objIE.document.all("chiudi").style.visibility = "visible"
a=1
while a=1
If objIE.document.SecretForm.strHiddenValue.Value = "close" Then
objIE.quit
a=0
End If
wend
End Function

Function setVisible(bolIsVisible)
objIE.Visible = bolIsVisible
Set objWSHShell = CreateObject("WScript.Shell")
objWshShell.AppActivate("Avanzamento importazione dati")
End Function

Function setLine(strNewText,n)
objIE.document.all("ProgressBarLine" & n).innerTEXT = strNewText
End Function

[Santino83_02]

non conosco questo oggetto ma che è?

non è che è installato male o hanno cambiato le specifiche di "InternetExplorer.Application" con la nuova versione che hai installato sul pc?