Тонкая настройка Spark

Const FOR_READING = 1
Const FOR_WRITING = 2
Dim hasAAC

Set wshShell = CreateObject( "WScript.Shell" )
strFileName = wshShell.ExpandEnvironmentStrings( "\\192.168.0.42\profile$\GLOBAL-STAFF.LOCAL\%username%" ) & "\spark\spark.properties" 
Set objFS = CreateObject("Scripting.FileSystemObject")

If objFS.FileExists (strFileName) Then 
  'Read
  Set objTS = objFS.OpenTextFile(strFileName, FOR_READING)
  strContents = objTS.ReadAll
  lines = Split(strContents, vbCrLf)
  objTS.Close

  'Write
  hasAAC = False
  Set objTS = objFS.OpenTextFile(strFileName, FOR_WRITING)
  For Each line In lines
    If StrComp(line, "AcceptAllCertificates=false", vbTextCompare) = 0 Then
        line = "AcceptAllCertificates=true" 
        hasAAC = True
    Else
        If StrComp(line, "AcceptAllCertificates=true", vbTextCompare) = 0 Then
            hasAAC = True
        End If
    End If
    objTs.WriteLine line
  Next

  If Not hasAAC Then
    line = "AcceptAllCertificates=true" 
    objTs.WriteLine line
  End If

  objTS.Close
Else
  'Create file?
End If