Hvor gemmes oplysninger om 'trusted sites'

De ligger i registry.
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains

//akj

Det var en finte at hele URL'en ikke står der :-)
Jeg havde søgt på hele strengen.

Oki
Hvis du mangler en .vbs fil til at oprette trusted sites er jeg leveringsdygtig.

//akj

Det kunne da være interessant at se.

Den ligger på www.eybye-kjaer.dk under info eksperten downloads.

//akj

har du stadig den .vbs fil til at oprette en trusted site?

Det har jeg da.

//akj

Dim key
Dim val
Dim main
Dim ret
Dim currentstate
Dim Shell
dim domain

domain="http://www.eybye-kjaer.dk"

Set Shell = CreateObject("WScript.Shell")

If Not KeyExists("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\"& domain &"\http") Then


        main = "HKEY_CURRENT_USER\"
       
        ret = MsgBox("Dette script tilføjer "& domain & " som sikkert websted."& vbCrLf & "Klik OK for at køre scriptet" & vbCrLf & "Klik Cancel for at afbryde", vbOKCancel, "Tilføj " & domain & " som sikkert websted" )
        If ret = vbOK Then

                ' tilføj domænet
                key = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\"& domain &"\http"
                val = 0
                Shell.regwrite main & key, val, "REG_DWORD"

                ' tilføj "my computer"
                key = "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\Flags"
                val = "MyComputer"
                Shell.regwrite main & skey, val

                ' ret indstillinger
                key = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\1200"
                val = 0
                Shell.regwrite main & key, val, "REG_DWORD"
       
                key = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\1201"
                val = 0
                Shell.regwrite main & key, val, "REG_DWORD"

                key = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\1400"
                val = 0
                Shell.regwrite main & key, val, "REG_DWORD"

                key = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\1402"
                val = 0
                Shell.regwrite main & key, val, "REG_DWORD"
               
                key = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\1405"
                val = 0
                Shell.regwrite main & key, val, "REG_DWORD"

                key = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\1406"
                val = 0
            Shell.regwrite main & key, val, "REG_DWORD"
           
            key = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\1407"
            val = 0
            Shell.regwrite main & key, val, "REG_DWORD"
           
            key = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\1601"
            val = 0
            Shell.regwrite main & key, val, "REG_DWORD"
           
            key = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\1604"
            val = 0
            Shell.regwrite main & key, val, "REG_DWORD"
           
            key = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\1605"
            val = 0
            Shell.regwrite main & key, val, "REG_DWORD"
           
            key = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\1606"
            val = 0
            Shell.regwrite main & key, val, "REG_DWORD"
           
            key = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\1607"
            val = 0
            Shell.regwrite main & key, val, "REG_DWORD"
           
            key = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\1800"
            val = 0
            Shell.regwrite main & key, val, "REG_DWORD"
           
            key = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\1802"
            val = 0
            Shell.regwrite main & key, val, "REG_DWORD"
           
            key = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\1803"
            val = 0
            Shell.regwrite main & key, val, "REG_DWORD"
           
            key = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\1804"
            val = 0
            Shell.regwrite main & key, val, "REG_DWORD"
           
            key = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\1805"
            val = 0
            Shell.regwrite main & key, val, "REG_DWORD"
           
            key = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\1A00"
            val = 0
            Shell.regwrite main & key, val, "REG_DWORD"
           
            key = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\1A02"
            val = 0
            Shell.regwrite main & key, val, "REG_DWORD"
           
            key = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\1A03"
            val = 0
            Shell.regwrite main & key, val, "REG_DWORD"
           
            key = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\1A04"
            val = 0
            Shell.regwrite main & key, val, "REG_DWORD"
           
            key = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\1C00"
            val = 0
            Shell.regwrite main & key, val, "REG_DWORD"
           
            key = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\1E05"
            val = 0
            Shell.regwrite main & key, val, "REG_DWORD"
           
            key = "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\Description"
            val = "Your computer"
            Shell.regwrite main & key, val
           
            key = "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\DisplayName"
            val = "My Computer"
            Shell.regwrite main & key, val
           
            key = "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\Icon"
            val = "explorer.exe#0100"
            Shell.regwrite main & key, val
           
            key = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\MinLevel"
            val = 0
            Shell.regwrite main & key, val, "REG_DWORD"
           
            key = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\RecommendedLevel"
            val = 0
            Shell.regwrite main & key, val, "REG_DWORD"
           
           
            main = "HKEY_LOCAL_MACHINE\"
           
           
            ' tilføj domænet
            key = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\ZoneMap\Domains\"& domain &"\http"
            val = 0
            Shell.regwrite main & key, val, "REG_DWORD"
           
            ' tilføj "my computer"
            key = "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\Flags"
            val = "MyComputer"
            Shell.regwrite main & key, val
           
            ' ret indstillinger
            key = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\1200"
            val = 0
            Shell.regwrite main & key, val, "REG_DWORD"
           
            key = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\1201"
            val = 0
            Shell.regwrite main & key, val, "REG_DWORD"
           
            key = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\1400"
            val = 0
            Shell.regwrite main & key, val, "REG_DWORD"
           
            key = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\1402"
            val = 0
            Shell.regwrite main & key, val, "REG_DWORD"
           
            key = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\1405"
            val = 0
            Shell.regwrite main & key, val, "REG_DWORD"
           
            key = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\1406"
            val = 0
            Shell.regwrite main & key, val, "REG_DWORD"
           
            key = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\1407"
            val = 0
            Shell.regwrite main & key, val, "REG_DWORD"
           
            key = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\1601"
            val = 0
            Shell.regwrite main & key, val, "REG_DWORD"
           
            key = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\1604"
            val = 0
            Shell.regwrite main & key, val, "REG_DWORD"
           
            key = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\1605"
            val = 0
            Shell.regwrite main & key, val, "REG_DWORD"
           
            key = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\1606"
            val = 0
            Shell.regwrite main & key, val, "REG_DWORD"
           
            key = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\1607"
            val = 0
            Shell.regwrite main & key, val, "REG_DWORD"
           
            key = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\1800"
            val = 0
            Shell.regwrite main & key, val, "REG_DWORD"
           
            key = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\1802"
            val = 0
            Shell.regwrite main & key, val, "REG_DWORD"
           
            key = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\1803"
            val = 0
            Shell.regwrite main & key, val, "REG_DWORD"
           
            key = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\1804"
            val = 0
            Shell.regwrite main & key, val, "REG_DWORD"
           
            key = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\1805"
            val = 0
            Shell.regwrite main & key, val, "REG_DWORD"
           
            key = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\1A00"
            val = 0
            Shell.regwrite main & key, val, "REG_DWORD"
           
            key = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\1A02"
            val = 0
            Shell.regwrite main & key, val, "REG_DWORD"
           
            key = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\1A03"
            val = 0
            Shell.regwrite main & key, val, "REG_DWORD"
           
            key = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\1A04"
            val = 0
            Shell.regwrite main & key, val, "REG_DWORD"
           
            key = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\1C00"
            val = 0
            Shell.regwrite main & key, val, "REG_DWORD"
           
            key = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\1E05"
            val = 0
            Shell.regwrite main & key, val, "REG_DWORD"
           
            key = "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\Description"
            val = "Your computer"
            Shell.regwrite main & key, val
           
            key = "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\DisplayName"
            val = "My Computer"
            Shell.regwrite main & key, val
           
            key = "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\Icon"
            val = "explorer.exe#0100"
            Shell.regwrite main & key, val
           
            key = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\MinLevel"
            val = 0
            Shell.regwrite main & key, val, "REG_DWORD"
           
            key = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\RecommendedLevel"
            val = 0
            Shell.regwrite main & key, val, "REG_DWORD"
            MsgBox domain & " er tilføjet"
    End If


else

        ret = MsgBox(domain & " er allerede i listen over sikre websites " , vbOKonly, "Tilføj " & domain & " som sikkert websted" )
End If

Function KeyExists(ByVal RegKey)
    Dim Shell
    Dim ErrDesc(1)
    Set Shell = CreateObject("WScript.Shell")
    KeyExists = True
    On Error Resume Next
'===>  RegKey = Replace(RegKey & "\","\\","\")
' without the above line of code, the presence or absence of the final "\"
' is what determines whether you are checking for a key or a named value.
' It's then the caller's responsibility to pass the string with a final "\" to
' check for a key, or without a final "\" to check for a named value...
'===
    Shell.RegRead (vbCr)
    ErrDesc(0) = Replace(Err.Description, vbCr, "")
    Err.Clear
    Shell.RegRead (RegKey)
    ErrDesc(1) = Replace(Err.Description, RegKey, "")
    If ErrDesc(0) = ErrDesc(1) Then KeyExists = False
End Function