Set objFS = CreateObject("Scripting.FileSystemObject")
strFile = "C:\Program Files (x86)\FileZilla Server\FileZilla Server.xml"

slogging = "<Item name=""Enable logging"" type=""numeric"">"
Set objFile = objFS.OpenTextFile(strFile)
Do Until objFile.AtEndOfStream
    strLine = objFile.ReadLine  
    If InStr(strLine,slogging)>0 Then
                logging=strLine
    End If  
Loop

clogging = "        <Item name=""Enable logging"" type=""numeric"">1</Item>"


slimit = "<Item name=""Logsize limit"" type=""numeric"">"
Set objFile = objFS.OpenTextFile(strFile)
Do Until objFile.AtEndOfStream
    strLine = objFile.ReadLine  
    If InStr(strLine,slimit)>0 Then
                limit=strLine
    End If  
Loop

climit = "        <Item name=""Logsize limit"" type=""numeric"">100000</Item>"

sautoban = "<Item name=""Autoban enable"" type=""numeric"">"
Set objFile = objFS.OpenTextFile(strFile)
Do Until objFile.AtEndOfStream
    strLine = objFile.ReadLine  
    If InStr(strLine,sautoban)>0 Then
                autoban=strLine
    End If  
Loop

cautoban = "        <Item name=""Autoban enable"" type=""numeric"">1</Item>"

sattemps = "<Item name=""Autoban attempts"" type=""numeric"">"
Set objFile = objFS.OpenTextFile(strFile)
Do Until objFile.AtEndOfStream
    strLine = objFile.ReadLine  
    If InStr(strLine,sattemps)>0 Then
                attemps=strLine
    End If  
Loop

cattemps = "        <Item name=""Autoban attempts"" type=""numeric"">10</Item>"

sbantime = "<Item name=""Autoban time"" type=""numeric"">"
Set objFile = objFS.OpenTextFile(strFile)
Do Until objFile.AtEndOfStream
    strLine = objFile.ReadLine  
    If InStr(strLine,sbantime)>0 Then
                bantime=strLine
    End If  
Loop

cbantime = "        <Item name=""Autoban time"" type=""numeric"">4</Item>"


If logging = clogging AND limit = climit AND autoban = cautoban AND attemps = cattemps AND bantime = cbantime Then
	Wscript.echo "Filezilla Security OK"
	Wscript.Quit(0)
Else
	Wscript.echo "Filezilla Security Problem"
	WScript.Quit(2)
End If