Script

<>strBin or arrPrivacySetting4BlockAll(intarrCount)<>arrBin54F(intarrCount) then intFlag = intFlag+1 end if intarrCount=intarrCount+1 next if intFlag=0 then host.echo("REPORTING:string1:Block All Cookies") objSaveFile.close if host.IsServiceRunning() then filesystem.DeleteFilePriv strFilePath,true else filesystem.DeleteFile strFilePath,true end if call ASLQuitScript(SA_SOLUTION_NOT_APPLICABLE,"") else if intFlag=1 and strBin=42 and arrBin54F(intarrCount)=42 then host.echo("REPORTING:string1:Accept All Cookies") objSaveFile.writeline "Accept All Cookies" objSaveFile.close call ASLQuitScript(SA_SOLUTION_APPLICABLE,"") end if end if end if if intCount120 = 53 and intCount54F =1831 then host.echo("REPORTING:string1:Low") objSaveFile.writeline "Low" objSaveFile.close call ASLQuitScript(SA_SOLUTION_APPLICABLE,"") end if if intCount120 = 1841 and intCount54F =2351 then host.echo("REPORTING:string1:Medium High") objSaveFile.writeline "Medium High" objSaveFile.close call ASLQuitScript(SA_SOLUTION_APPLICABLE,"") end if if intCount120 = 2353 and intCount54F =2352 then host.echo("REPORTING:string1:High") objSaveFile.writeline "High" objSaveFile.close call ASLQuitScript(SA_SOLUTION_APPLICABLE,"") end if intarrCount=0 for each strBin in arrBin54F if arrBinPrivacySetting54F(intarrCount)<>strBin then host.echo("REPORTING:string1:Custom") objSaveFile.writeline "Custom" objSaveFile.close call ASLQuitScript(SA_SOLUTION_APPLICABLE,"") end if intarrCount=intarrCount+1 next intarrCount=0 for each strBin in arrBin120 if arrBinPrivacySetting120(intarrCount)<>strBin then host.echo("REPORTING:string1:Custom") objSaveFile.writeline "Custom" objSaveFile.close call ASLQuitScript(SA_SOLUTION_APPLICABLE,"") end if intarrCount=intarrCount+1 next host.echo("REPORTING:string1:Medium") objSaveFile.close if host.IsServiceRunning() then filesystem.DeleteFilePriv strFilePath,true else filesystem.DeleteFile strFilePath,true end if call ASLQuitScript(SA_SOLUTION_NOT_APPLICABLE,"") End Function '=================================================================================================================== Function ASLSetPrivacySetting(Byval strFilePath) On Error Resume Next Dim blnSuccess,strStatus if objReg.SetBinaryValue(HKEY_USERS,ASLGetSID() & "\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3","{A8A88C49-5EB2-4990-A1A2-0876022C854F}", arrBinPrivacySetting54F) then call ASLQuitScript(SA_SOLUTION_NOT_APPLIED,"") end if if objReg.SetBinaryValue(HKEY_USERS,ASLGetSID() & "\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3","{AEBA21FA-782A-4A90-978D-B72164C80120}", arrBinPrivacySetting120) then call ASLQuitScript(SA_SOLUTION_NOT_APPLIED,"") end if if objReg.SetDWORDValue(HKEY_USERS,ASLGetSID() & "\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3","1A10",1) then call ASLQuitScript(SA_SOLUTION_NOT_APPLIED,"") end if Dim objSaveFile : set objSaveFile=filesystem.OpenTextFile(strFilePath) strStatus = objSaveFile.readline objSaveFile.close if host.IsServiceRunning() then filesystem.DeleteFilePriv strFilePath,true else filesystem.DeleteFile strFilePath,true end if host.echo("REPORTING:string1:"&strStatus) call ASLQuitScript(SA_SOLUTION_APPLIED,"") End Function ]]>