[VB6] Confronto stringhe di testo

[fox80129]

Ho creato un vbs che fa una query al metadb di IIS e poi salva su un file di testo tutti i siti presenti.
Ora volevo creare uno script che fosse in grando di confrontare le stringhe del metadb di IIS e del file .txt e nel caso vi fosse un nuovo dominio (che quindi non sarà ancora presente nel file .txt) inviarmi un email.

lo scirpt di base per fare la query al metadb è questo:

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

Nel file di testo vengono archiviate stringhe del genere:
WWW Site: 1 - Default Web Site
Come posso confrontare le stringe del metabase con quelle presenti nel file di testo?

[fox80129]

Ho trovato uno script che confronta 2 file di testo....ora mi servirebbe solo modificarlo in modo che legga direttamente dalla query (con lo script del post precedente).
Qulacuno può darmi una mano?

dim filename1
dim filename2

filename1="c:\test1.txt"
filename2="c:\test2.txt"


Set oFSO1 = CreateObject("Scripting.FileSystemObject")
Set oFSO2 = CreateObject("Scripting.FileSystemObject")

Set oTextFile1 = oFSO1.OpenTextFile(filename1, 1 , True)
Set oTextFile2 = oFSO2.OpenTextFile(filename2, 1 , True)


While oTextFile1.AtEndOfStream <> True
line1 = oTextFile1.ReadLine
line2 = oTextFile2.ReadLine

if (line1<>line2) then wscript.echo "I file sono diversi"

wend

'nel caso il secondo file abbia delel righe (quindi contenuti) in piu' me ne accorgo in questo momento.
if (oTextFile2.AtEndOfStream <> True) then wscript.echo "I file sono diversi"


oTextFile1.close
oTextFile2.close