[VB6] Script e .txt file

[fox80129]

Salve,
premetto che sono un newbie di visual basic.

Ho questo script che controlla tutti i domini web che ho su IIS.
Ora vorrei che il risultato della query venisse copiato su un file di testo.
E' possibile?

Grazie.

Set IISOBJ = getObject("IIS://LocalHost/W3SVC")
For each Object in IISOBJ
        if (Object.Class = "IIsWebServer") then
                WScript.Echo "WWW Site: " & Object.Name & " - " & Object.ServerComment
        end if
next
Set IISOBJ = Nothing

[yyzyyz]

nn so se intendi qualkosa del genere

Set IISOBJ = GetObject("IIS://LocalHost/W3SVC")
For Each Object In IISOBJ
        If (Object.Class = "IIsWebServer") Then
                WScript.Echo "WWW Site: " & Object.Name & " - " & Object.ServerComment
                Open "c:\list.txt" For Append As #1
                     Print #1, "WWW Site: " & Object.Name & " - " & Object.ServerComment
                Close #1

        End If
Next
Set IISOBJ = Nothing

[fox80129]

Mi da un errore alla riga 5
Error: expected end of statement

[yyzyyz]

ma il sorgente è in vbscript o Visualbasic6 ?

x vbscript guarda qui.
http://www.html.it/vbscript/vbscript_17.htm

[fox80129]

Il sorgente è vbscript.
Ho modificato il file in questo modo ma mi scrive solo la prima riga

Set IISOBJ = getObject("IIS://LocalHost/W3SVC")
For each Object in IISOBJ
        if (Object.Class = "IIsWebServer") then
                WScript.Echo "WWW Site: " & Object.Name & " - " & Object.ServerComment
Dim OggFile, origine, OggTextStream
origine="c:\textstream.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateTextFile (origine)
Set OggFile = fso.GetFile (origine)
Set OggTextStream = OggFile.OpenAsTextStream(2)
OggTextStream.WriteLine "WWW Site: " & Object.Name & " - " & Object.ServerComment
OggTextStream.close
document.write "Scrittura eseguita correttamente."
        end if
next
Set IISOBJ = Nothing

[fox80129]

Credo che l'errore sia nel come ho posizionato il codice di scrittura nel file .txt
Qualche consiglio?

[fox80129]

Risolto:

Dim OggFile, origine, OggTextStream 
Set IISOBJ = getObject("IIS://LocalHost/W3SVC") 
origine="c:\textstream.txt" 
Set fso = CreateObject("Scripting.FileSystemObject") 
fso.CreateTextFile (origine) 
Set OggFile = fso.GetFile (origine) 
Set OggTextStream = OggFile.OpenAsTextStream(2) 
For each Object in IISOBJ 
         if (Object.Class = "IIsWebServer") then 
 WScript.Echo "WWW Site: " & Object.Name & " - " & Object.ServerComment

OggTextStream.WriteLine "WWW Site: " & Object.Name & " - " & Object.ServerComment
        end if 
Next 

OggTextStream.close