Necessario oggetto: 'WScript'

[Mizushi]

Scusate com'è possibile che in localhost venga restituito quest'errore ?:

Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A01A8)
Necessario oggetto: 'WScript'

:master:

Dim WSHShell, FSO, VbDll, VbDllVersion, s

Set WSHShell = WScript.CreateObject("WScript.Shell")
WScript.Echo "WSH version : " & WScript.Version

s = ""   
s = ScriptEngine & " Version "
s = s & ScriptEngineMajorVersion & "."
s = s & ScriptEngineMinorVersion & "."
s = s & ScriptEngineBuildVersion 
WScript.Echo "Script engine version : " & s

Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
If WSHShell.Environment.item("OS") = "" Then
   ' we assume a non-NT system 
   VbDll = "c:\windows\system\vbscript.dll"
Else
   VbDll = "c:\winnt\system32\vbscript.dll"
End If

VbDllVersion = FSO.GetFileVersion(VbDll)
WScript.Echo "VBScript Dll version : " & VbDllVersion & " (" & VbDll & ") "

Set WSHShell = Nothing
Set FSO = Nothing
WScript.Quit(0)

[MItaly]

Come pretendi di utilizzare l'oggetto WScript senza averlo né definito né istanziato?

[Mizushi]

Originariamente inviato da MItaly
Come pretendi di utilizzare l'oggetto WScript senza averlo né definito né istanziato?

Perchè non mi dici come si fa?

[orcim]

Originariamente inviato da MItaly
Come pretendi di utilizzare l'oggetto WScript senza averlo né definito né istanziato?

Avresti fatto meglio una volta deciso di rispondere di dare indicazioni complete e non riproporre un'altra domanda e non ti sei manco accorto che il linguaggio è VBS e non ASP (mancano i tags <% e %> di apertura e chiusura codice...)

Mizushi salva questo codice come file VBS (utilizza anche il blocco note) e non come ASP come penso che hai fatto e vedrai che funziona...