anchor.diff:      reboot(".")
       WScript.Quit
   Else
  -    Dim fso    
  +    ExecutePostInstallBatch
  +End If
  +
  +Sub ExecutePostInstallBatch
  +    Dim fso
       Set fso = CreateObject("Scripting.FileSystemObject")
   
       If (fso.FileExists("a:\_post_update_install.bat")) Then
  
positive.code: End if 
  If searchResult.Updates.Count = 0 Then
      LogWrite "There are no applicable updates."
      WScript.Quit
  End If
  
  
negative.code:         Set objShell = WScript.CreateObject("WScript.Shell")
          objShell.Run "a:\_post_update_install.bat"
      End If
  End Sub
  
  Sub LogWrite(message)
      Dim strFile, objFSO, objFile
  