Imports Microsoft.Win32
Imports System.Security.Permissions
Imports System.Runtime.InteropServices
Imports System.Reflection
<Assembly: EnvironmentPermissionAttribute(SecurityAction.RequestMinimum, Unrestricted:=True)> 
<Assembly: ComVisible(False)> 
''' -----------------------------------------------------------------------------
''' Project	 : RemoteIE
''' Class	 : IERegistryKeys
''' 
''' -----------------------------------------------------------------------------
''' <summary>
''' With this class you can get and set Registry_Keys for the IE
''' </summary>
''' <remarks>
''' The Functions are called like the Registrykeys(IE)
''' </remarks>
''' <history>
''' 	[Administrator]	15.06.2004	Created
''' </history>
''' -----------------------------------------------------------------------------
Public Class IERegistryKeys
    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Define the class class_Remote
    ''' </summary>
    ''' <remarks>
    ''' In this class thre are differnet function, for example Registry - Read/Write
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	16.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Private cls_Remote As RemoteHostSettings
    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' internal variable for the Remote Mashine
    ''' </summary>
    ''' <remarks>
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	16.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Private _RemoteMachine As String
    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' internal variable for the SID of the logged user on the remote machine
    ''' </summary>
    ''' <remarks>
    ''' would be set in the constructor of the class
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	16.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Private _SIDUser As String
    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Path of the registrykey
    ''' </summary>
    ''' <remarks>
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	16.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Private m_PATH As String
    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' class of the registrykey
    ''' </summary>
    ''' <remarks>
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	16.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Private m_HIVE As RegistryHive
    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' the key of the registrykeys
    ''' </summary>
    ''' <remarks>
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	16.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Private m_KEY As String
    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' the ReturnValue
    ''' </summary>
    ''' <remarks>
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	16.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Private m_RETURN As Boolean
    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' the recived Value
    ''' </summary>
    ''' <remarks>
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	16.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Private m_GETValue As Object
    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Constructor for the class class_IE_RegistryKeys
    ''' </summary>
    ''' <param name="Remotemachine">the remote machine (IP-Address or Hostname)</param>
    ''' <remarks>
    ''' set the remote machine (IP-Address or Hostname)
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Sub New(ByVal Remotemachine As String)
        cls_Remote = New RemoteHostSettings
        _RemoteMachine = Remotemachine
        'This we need for HKCU
        Try
            _SIDUser = cls_Remote.getSIDUserRemote(Remotemachine, cls_Remote.getUserRemote(Remotemachine))
        Catch ex As Exception
            Throw ex
        End Try
    End Sub

    '' **********************************************************************************************************************************
    '' ****************************************************** Branding ******************************************************************
    '' **********************************************************************************************************************************

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Delete the Branding for the Internet Explorer
    ''' </summary>
    ''' <remarks>
    ''' Only the Registry-Keys will be deleted
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	17.08.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Sub Branding_Delete()
        m_PATH = "SOFTWARE\Microsoft\Ieak\CabVersions\Branding"

        m_HIVE = RegistryHive.LocalMachine
        Try
            cls_Remote.DeleteRegistrySubKeyTree(m_HIVE, m_PATH, _RemoteMachine)
        Catch ex As Exception

        End Try
    End Sub
    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get the Branding - Informations from the Registry - StringArray(2)
    ''' </summary>
    ''' <returns>StringArray (URL,Version,Date)</returns>
    ''' <remarks>
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	17.08.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Function Branding_Get() As String()
        Dim m_Branding(2) As String
        m_PATH = "SOFTWARE\Microsoft\Ieak\CabVersions\Branding"
        m_HIVE = RegistryHive.LocalMachine
        Try
            'Gets the Value
            m_Branding(0) = cls_Remote.Read_RegValue(m_HIVE, m_PATH, "URL", _RemoteMachine)
            m_Branding(1) = cls_Remote.Read_RegValue(m_HIVE, m_PATH, "Version", _RemoteMachine)
            m_Branding(2) = cls_Remote.Read_RegValue(m_HIVE, m_PATH, "Date", _RemoteMachine)
        Catch ex As Exception
            'No Branding available
            m_Branding(0) = ""
            m_Branding(1) = ""
            m_Branding(2) = ""
        End Try
        Return m_Branding
    End Function
    '' +++++++++++++ automatic configuration script ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Automatische Konfiguration ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for automatic configuration script
    ''' </summary>
    ''' <value>String</value>
    ''' <remarks>
    ''' Excpected String
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Connection_AutoConfigURL() As String
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\CurrentVersion\Internet Settings"
            m_KEY = "AutoConfigURL"
            m_HIVE = RegistryHive.Users
            Dim m_text As String
            Try
                'Gets the Value
                m_text = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                'Check if is aktivate or deactivated
            Catch ex As Exception
                m_text = ""
            End Try
            'Return the value
            Return m_text
        End Get

        Set(ByVal Value As String)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\CurrentVersion\Internet Settings"
            m_KEY = "AutoConfigURL"
            m_HIVE = RegistryHive.Users
            Try
                If Value = "" Then
                    cls_Remote.DeleteRegistryKeyValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                Else
                    m_GETValue = Value
                    cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
                End If
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ ProxyEnable ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Proxy aktiviert ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for ProxyEnable
    ''' </summary>
    ''' <value>String</value>
    ''' <remarks>
    ''' Excpected String
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Connection_ProxyEnable() As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\CurrentVersion\Internet Settings"
            m_KEY = "ProxyEnable"
            m_HIVE = RegistryHive.Users
            Dim m_text As String
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If CType(m_GETValue, Integer) = 1 Then
                    m_RETURN = True
                Else
                    m_RETURN = False
                End If
                'Check if is aktivate or deactivated
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get
        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\CurrentVersion\Internet Settings"
            m_KEY = "ProxyEnable"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = 1
                Else
                    m_GETValue = 0
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ ProxyServer ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Proxy Server ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for ProxyServer
    ''' </summary>
    ''' <value>String</value>
    ''' <remarks>
    ''' Excpected String
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Connection_ProxyServer() As String
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\CurrentVersion\Internet Settings"
            m_KEY = "ProxyServer"
            m_HIVE = RegistryHive.Users
            Dim m_text As String
            Try
                'Gets the Value
                m_text = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                'Check if is aktivate or deactivated
            Catch ex As Exception
                m_text = ""
            End Try
            'Return the value
            Return m_text
        End Get

        Set(ByVal Value As String)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\CurrentVersion\Internet Settings"
            m_KEY = "ProxyServer"
            m_HIVE = RegistryHive.Users
            Try
                    m_GETValue = Value
                    cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)

            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ ProxyOverride ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Ausnahmen ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for ProxyOverride
    ''' </summary>
    ''' <value>String</value>
    ''' <remarks>
    ''' Excpected String
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Connection_ProxyOverride() As String
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\CurrentVersion\Internet Settings"
            m_KEY = "ProxyOverride"
            m_HIVE = RegistryHive.Users
            Dim m_text As String
            Try
                'Gets the Value
                m_text = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                m_text = Replace(m_text, ";<local>", "")
                m_text = Replace(m_text, "<local>", "")
                'Check if is aktivate or deactivated
            Catch ex As Exception
                m_text = ""
            End Try
            'Return the value
            Return m_text
        End Get

        Set(ByVal Value As String)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\CurrentVersion\Internet Settings"
            m_KEY = "ProxyOverride"
            m_HIVE = RegistryHive.Users
            Try
                m_GETValue = Value
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)

            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Bypass Proxyserver for local Adress ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ ProxyServer für lokale Adressen umgehen ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for Bypass Proxyserver for local Adress
    ''' </summary>
    ''' <value>String</value>
    ''' <remarks>
    ''' Excpected String
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Connection_Bypass_Proxy() As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\CurrentVersion\Internet Settings"
            m_KEY = "ProxyOverride"
            m_HIVE = RegistryHive.Users
            Dim m_text As String
            Try
                'Gets the Value
                m_text = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If InStr(m_text, "<local>") > 0 Then
                    m_RETURN = True
                Else
                    m_RETURN = False
                End If
                'Check if is aktivate or deactivated
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get

        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\CurrentVersion\Internet Settings"
            m_KEY = "ProxyOverride"
            m_HIVE = RegistryHive.Users
            Dim m_text As String
            Try
                m_text = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If Value = True Then
                    If Not InStr(m_text, "<local>") > 0 Then
                        If m_text = "" Then
                            m_text += "<local>"
                        Else
                            m_text += ";<local>"
                        End If
                    End If
                Else
                    m_text = Replace(m_text, ";<local>", "")
                    m_text = Replace(m_text, "<local>", "")
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_text)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ DialupUseLanSettings ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Lan Einstellungen auch für DFÜ ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for deaktivate DialupUseLanSettings
    ''' </summary>
    ''' <value>true = aktive and false = deactivated</value>
    ''' <remarks>
    ''' 1 = true : aktiviert<br/>
    ''' 0 = false : deaktiviert
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Connection_DialupUseLanSettings() As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\CurrentVersion\Internet Settings"
            m_KEY = "DialupUseLanSettings"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                'Check if is aktivate or deactivated
                If CType(m_GETValue, Integer) = 1 Then
                    m_RETURN = True
                Else
                    m_RETURN = False
                End If
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get

        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Windows\CurrentVersion\Internet Settings"
            m_KEY = "DialupUseLanSettings"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
                    cls_Remote.WriteToRegistry(m_HIVE, "Software\Microsoft\Windows\CurrentVersion\Internet Settings", m_KEY, _RemoteMachine, m_GETValue)
                Else
                    cls_Remote.DeleteRegistryKeyValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                    cls_Remote.DeleteRegistryKeyValue(m_HIVE, "Software\Microsoft\Windows\CurrentVersion\Internet Settings", m_KEY, _RemoteMachine)
                End If
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' **********************************************************************************************************************************
    '' ****************************************************** Computer Policies *************************************************************
    '' **********************************************************************************************************************************

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for set Security_Options_Edit
    ''' </summary>
    ''' <value>true = aktive and false = deactivated</value>
    ''' <remarks>
    ''' 0 = true : aktiviert<br/>
    ''' 1 = false : deaktiviert
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_ComPolicies_Security_Options_Edit() As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = "SOFTWARE\Policies\Microsoft\Windows\CurrentVersion\Internet Settings"
            m_KEY = "Security_options_edit"
            m_HIVE = RegistryHive.LocalMachine
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                'Check if is aktivate or deactivated
                If CType(m_GETValue, Integer) = 0 Then
                    m_RETURN = True
                Else
                    m_RETURN = False
                End If
            Catch ex As Exception
                m_RETURN = True
            End Try
            'Return the value
            Return m_RETURN
        End Get

        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = "SOFTWARE\Policies\Microsoft\Windows\CurrentVersion\Internet Settings"
            m_KEY = "Security_options_edit"
            m_HIVE = RegistryHive.LocalMachine
            Try
                If Value = True Then
                    m_GETValue = 0
                Else
                    m_GETValue = 1
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for set Security_zones_map_edit
    ''' </summary>
    ''' <value>true = aktive and false = deactivated</value>
    ''' <remarks>
    ''' 0 = true : aktiviert<br/>
    ''' 1 = false : deaktiviert
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_ComPolicies_Security_Zones_Map_Edit() As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = "SOFTWARE\Policies\Microsoft\Windows\CurrentVersion\Internet Settings"
            m_KEY = "Security_zones_map_edit"
            m_HIVE = RegistryHive.LocalMachine
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                'Check if is aktivate or deactivated
                If CType(m_GETValue, Integer) = 0 Then
                    m_RETURN = True
                Else
                    m_RETURN = False
                End If
            Catch ex As Exception
                m_RETURN = True
            End Try
            'Return the value
            Return m_RETURN
        End Get

        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = "SOFTWARE\Policies\Microsoft\Windows\CurrentVersion\Internet Settings"
            m_KEY = "Security_zones_map_edit"
            m_HIVE = RegistryHive.LocalMachine
            Try
                If Value = True Then
                    m_GETValue = 0
                Else
                    m_GETValue = 1
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' **********************************************************************************************************************************
    '' ****************************************************** User Policies *************************************************************
    '' **********************************************************************************************************************************
    '' +++++++++++++ Tab : Generally ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Tab : Allgemein ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Here you can get/set the Start Page (Start Page)
    ''' </summary>
    ''' <value>String</value>
    ''' <remarks>
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	21.09.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Startpage() As String
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Microsoft\Internet Explorer\Main"
            m_KEY = "Start Page"
            m_HIVE = RegistryHive.Users
            Dim varReturn As String
            Try
                varReturn = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
            Catch ex As Exception
                varReturn = ""
            End Try
            Return varReturn
        End Get
        Set(ByVal Value As String)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Microsoft\Internet Explorer\Main"
            m_KEY = "Start Page"
            m_HIVE = RegistryHive.Users
            Try
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, Value)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for deaktivate the tab Generally
    ''' </summary>
    ''' <value>true = aktive and false = deactivated</value>
    ''' <remarks>
    ''' 0 = true : aktiviert<br/>
    ''' 1 = false : deaktiviert
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_UserPolicies_GeneralTab() As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "GeneralTab"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                'Check if is aktivate or deactivated
                If CType(m_GETValue, Integer) = 0 Then
                    m_RETURN = True
                Else
                    m_RETURN = False
                End If
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get

        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "GeneralTab"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = 0
                Else
                    m_GETValue = 1
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Tab : Security  ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Tab : Sicherheit ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for deaktivate the tab Security
    ''' </summary>
    ''' <value>true = aktive and false = deactivated</value>
    ''' <remarks>
    ''' 0 = true : aktiviert<br/>
    ''' 1 = false : deaktiviert
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_UserPolicies_SecurityTab() As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "SecurityTab"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                'Check if is aktivate or deactivated
                If CType(m_GETValue, Integer) = 0 Then
                    m_RETURN = True
                Else
                    m_RETURN = False
                End If
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get

        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "SecurityTab"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = 0
                Else
                    m_GETValue = 1
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Tab : Content  ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Tab : Inhalt ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for deaktivate the tab Content
    ''' </summary>
    ''' <value>true = aktive and false = deactivated</value>
    ''' <remarks>
    ''' 0 = true : aktiviert<br/>
    ''' 1 = false : deaktiviert
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_UserPolicies_ContentTab() As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "ContentTab"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                'Check if is aktivate or deactivated
                If CType(m_GETValue, Integer) = 0 Then
                    m_RETURN = True
                Else
                    m_RETURN = False
                End If
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get

        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "ContentTab"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = 0
                Else
                    m_GETValue = 1
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Tab : Connections  ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Tab : Verbindung ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for deaktivate the tab Conntection
    ''' </summary>
    ''' <value>true = aktive and false = deactivated</value>
    ''' <remarks>
    ''' 0 = true : aktiviert<br/>
    ''' 1 = false : deaktiviert
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_UserPolicies_ConnectionsTab() As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "ConnectionsTab"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                'Check if is aktivate or deactivated
                If CType(m_GETValue, Integer) = 0 Then
                    m_RETURN = True
                Else
                    m_RETURN = False
                End If
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get

        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "ConnectionsTab"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = 0
                Else
                    m_GETValue = 1
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Tab : Programs  ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Tab : Programme ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for deaktivate the tab Programs
    ''' </summary>
    ''' <value>true = aktive and false = deactivated</value>
    ''' <remarks>
    ''' 0 = true : aktiviert<br/>
    ''' 1 = false : deaktiviert
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_UserPolicies_ProgramsTab() As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "ProgramsTab"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                'Check if is aktivate or deactivated
                If CType(m_GETValue, Integer) = 0 Then
                    m_RETURN = True
                Else
                    m_RETURN = False
                End If
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get

        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "ProgramsTab"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = 0
                Else
                    m_GETValue = 1
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Tab : Advanced  ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Tab : Erweitert ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for deaktivate the tab Advanced
    ''' </summary>
    ''' <value>true = aktive and false = deactivated</value>
    ''' <remarks>
    ''' 0 = true : aktiviert<br/>
    ''' 1 = false : deaktiviert
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_UserPolicies_AdvancedTab() As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "AdvancedTab"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                'Check if is aktivate or deactivated
                If CType(m_GETValue, Integer) = 0 Then
                    m_RETURN = True
                Else
                    m_RETURN = False
                End If
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get

        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "AdvancedTab"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = 0
                Else
                    m_GETValue = 1
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Advanced  ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Erweitert ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for deaktivate Advanced
    ''' </summary>
    ''' <value>true = aktive and false = deactivated</value>
    ''' <remarks>
    ''' 0 = true : aktiviert<br/>
    ''' 1 = false : deaktiviert
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_UserPolicies_Advanced() As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "Advanced"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                'Check if is aktivate or deactivated
                If CType(m_GETValue, Integer) = 0 Then
                    m_RETURN = True
                Else
                    m_RETURN = False
                End If
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get

        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "Advanced"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = 0
                Else
                    m_GETValue = 1
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Connection Settings  ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Verbindungseinstellungen ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for deaktivate the Connection Settings
    ''' </summary>
    ''' <value>true = aktive and false = deactivated</value>
    ''' <remarks>
    ''' 0 = true : aktiviert<br/>
    ''' 1 = false : deaktiviert
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_UserPolicies_Connection_Settings() As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "Connection Settings"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                'Check if is aktivate or deactivated
                If CType(m_GETValue, Integer) = 0 Then
                    m_RETURN = True
                Else
                    m_RETURN = False
                End If
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get

        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "Connection Settings"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = 0
                Else
                    m_GETValue = 1
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Proxy  ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Proxy ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for deaktivate the Proxy
    ''' </summary>
    ''' <value>true = aktive and false = deactivated</value>
    ''' <remarks>
    ''' 0 = true : aktiviert<br/>
    ''' 1 = false : deaktiviert
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_UserPolicies_Proxy() As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "Proxy"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                'Check if is aktivate or deactivated
                If CType(m_GETValue, Integer) = 0 Then
                    m_RETURN = True
                Else
                    m_RETURN = False
                End If
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get

        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "Proxy"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = 0
                Else
                    m_GETValue = 1
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Autoconfig  ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Autoconfig ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for deaktivate the Autoconfig
    ''' </summary>
    ''' <value>true = aktive and false = deactivated</value>
    ''' <remarks>
    ''' 0 = true : aktiviert<br/>
    ''' 1 = false : deaktiviert
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_UserPolicies_Autoconfig() As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "Autoconfig"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                'Check if is aktivate or deactivated
                If CType(m_GETValue, Integer) = 0 Then
                    m_RETURN = True
                Else
                    m_RETURN = False
                End If
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get

        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "Autoconfig"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = 0
                Else
                    m_GETValue = 1
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ History  ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ History ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for deaktivate the History
    ''' </summary>
    ''' <value>true = aktive and false = deactivated</value>
    ''' <remarks>
    ''' 0 = true : aktiviert<br/>
    ''' 1 = false : deaktiviert
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_UserPolicies_History() As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "History"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                'Check if is aktivate or deactivated
                If CType(m_GETValue, Integer) = 0 Then
                    m_RETURN = True
                Else
                    m_RETURN = False
                End If
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get

        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "History"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = 0
                Else
                    m_GETValue = 1
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Cache  ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Cache ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for deaktivate the Cache
    ''' </summary>
    ''' <value>true = aktive and false = deactivated</value>
    ''' <remarks>
    ''' 0 = true : aktiviert<br/>
    ''' 1 = false : deaktiviert
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_UserPolicies_Cache() As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "Cache"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                'Check if is aktivate or deactivated
                If CType(m_GETValue, Integer) = 0 Then
                    m_RETURN = True
                Else
                    m_RETURN = False
                End If
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get

        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "Cache"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = 0
                Else
                    m_GETValue = 1
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Check_If_Default  ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ standardbrowser überprüfung ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for deaktivate the Check_If_Default
    ''' </summary>
    ''' <value>true = aktive and false = deactivated</value>
    ''' <remarks>
    ''' 0 = true : aktiviert<br/>
    ''' 1 = false : deaktiviert
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_UserPolicies_Check_If_Default() As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "Check_If_Default"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                'Check if is aktivate or deactivated
                If CType(m_GETValue, Integer) = 0 Then
                    m_RETURN = True
                Else
                    m_RETURN = False
                End If
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get

        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "Check_If_Default"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = 0
                Else
                    m_GETValue = 1
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ EnableAutoProxyResultCache  ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Autoproxy.pac Cache         ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for deaktivate the EnableAutoProxyResultCache
    ''' </summary>
    ''' <value>true = aktive and false = deactivated</value>
    ''' <remarks>
    ''' 0 = true : aktiviert<br/>
    ''' 1 = false : deaktiviert
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_UserPolicies_EnableAutoProxyResultCache() As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Windows\CurrentVersion\Internet Settings"
            m_KEY = "EnableAutoProxyResultCache"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                'Check if is aktivate or deactivated
                If CType(m_GETValue, Integer) = 0 Then
                    m_RETURN = True
                Else
                    m_RETURN = False
                End If
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get

        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Windows\CurrentVersion\Internet Settings"
            m_KEY = "EnableAutoProxyResultCache"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = 0
                Else
                    m_GETValue = 1
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Certificates  ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Certificates ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for deaktivate the Certificates
    ''' </summary>
    ''' <value>true = aktive and false = deactivated</value>
    ''' <remarks>
    ''' 0 = true : aktiviert<br/>
    ''' 1 = false : deaktiviert
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_UserPolicies_Certificates() As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "Certificates"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                'Check if is aktivate or deactivated
                If CType(m_GETValue, Integer) = 0 Then
                    m_RETURN = True
                Else
                    m_RETURN = False
                End If
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get

        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "Certificates"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = 0
                Else
                    m_GETValue = 1
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ CalendarContact ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Kalender Kontakte ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for deaktivate the CalendarContact
    ''' </summary>
    ''' <value>true = aktive and false = deactivated</value>
    ''' <remarks>
    ''' 0 = true : aktiviert<br/>
    ''' 1 = false : deaktiviert<br/>
    ''' Wert = 1 bewirkt, daß unter dem Register "Programme" keine anderen Programme für "Kalender" und "Kontakte" eingestellt werden können.<br/>
    ''' Value = 1 deaktivate "Contacts" in "Calender"
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_UserPolicies_CalendarContact() As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "CalendarContact"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                'Check if is aktivate or deactivated
                If CType(m_GETValue, Integer) = 0 Then
                    m_RETURN = True
                Else
                    m_RETURN = False
                End If
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get

        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "CalendarContact"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = 0
                Else
                    m_GETValue = 1
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ CertifPers ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Zertifikate ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for deaktivate the CertifPers
    ''' </summary>
    ''' <value>true = aktive and false = deactivated</value>
    ''' <remarks>
    ''' 0 = true : aktiviert<br/>
    ''' 1 = false : deaktiviert<br/>
    ''' Wert = 1 bewirkt, daß unter dem Register "Inhalte" und "Zertifikate" der Button "Zertifikate..." deaktiviert ist.<br/>
    ''' Value = 1 deaktivate "Certification" in "Certificate"
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_UserPolicies_CertifPers() As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "CertifPers"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                'Check if is aktivate or deactivated
                If CType(m_GETValue, Integer) = 0 Then
                    m_RETURN = True
                Else
                    m_RETURN = False
                End If
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get

        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "CertifPers"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = 0
                Else
                    m_GETValue = 1
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ CertifPub ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Zertifikate - Manufactor++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for deaktivate the CertifPub
    ''' </summary>
    ''' <value>true = aktive and false = deactivated</value>
    ''' <remarks>
    ''' 0 = true : aktiviert<br/>
    ''' 1 = false : deaktiviert<br/>
    ''' Wert = 1 bewirkt, daß unter dem Register "Inhalte" und "Zertifikate" der Button "Herausgeber..." deaktiviert ist.<br/>
    ''' Value = 1 deaktivate "Manufactor" in "Certificate"
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_UserPolicies_CertifPub() As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "CertifPub"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                'Check if is aktivate or deactivated
                If CType(m_GETValue, Integer) = 0 Then
                    m_RETURN = True
                Else
                    m_RETURN = False
                End If
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get

        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "CertifPub"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = 0
                Else
                    m_GETValue = 1
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ CertifSite ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Zertifikate - Manufactor++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for deaktivate the CertifSite
    ''' </summary>
    ''' <value>true = aktive and false = deactivated</value>
    ''' <remarks>
    ''' 0 = true : aktiviert<br/>
    ''' 1 = false : deaktiviert<br/>
    ''' Wert = 1 bewirkt, daß unter dem Register "Inhalte" und "Zertifikate" der Button "Zertifikate..." deaktiviert ist.<br/>
    ''' Value = 1 deaktivate "Certifications" in "Certificate"
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_UserPolicies_CertifSite() As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "CertifSite"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                'Check if is aktivate or deactivated
                If CType(m_GETValue, Integer) = 0 Then
                    m_RETURN = True
                Else
                    m_RETURN = False
                End If
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get

        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "CertifSite"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = 0
                Else
                    m_GETValue = 1
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Colors ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Farben++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for deaktivate the Colors
    ''' </summary>
    ''' <value>true = aktive and false = deactivated</value>
    ''' <remarks>
    ''' 0 = true : aktiviert<br/>
    ''' 1 = false : deaktiviert<br/>
    ''' Wert = 1 bewirkt, daß unter dem Register "Allgemein" und dann "Farben", die "Farben"-Einstellungen deaktiviert sind.<br/>
    ''' Value = 1 deaktivate "Color" in "Colors"
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_UserPolicies_Colors() As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "Colors"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                'Check if is aktivate or deactivated
                If CType(m_GETValue, Integer) = 0 Then
                    m_RETURN = True
                Else
                    m_RETURN = False
                End If
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get

        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "Colors"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = 0
                Else
                    m_GETValue = 1
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Connection - Setup ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Verbindungen - Setup++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for deaktivate the Connwiz Admin Lock
    ''' </summary>
    ''' <value>true = aktive and false = deactivated</value>
    ''' <remarks>
    ''' 0 = true : aktiviert<br/>
    ''' 1 = false : deaktiviert<br/>
    ''' Wert = 1 bewirkt, daß unter dem Register "Verbindungen" der Button "Setup" deaktiviert ist. Generell kann der Assistent zur Herstellung einer neuen Internetverbindung nicht mehr aufgerufen werden<br/>
    ''' Value = 1 deaktivate "Setup" in "Connections"
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_UserPolicies_Connwiz_Admin_Lock() As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "Connwiz Admin Lock"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                'Check if is aktivate or deactivated
                If CType(m_GETValue, Integer) = 0 Then
                    m_RETURN = True
                Else
                    m_RETURN = False
                End If
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get

        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "Connwiz Admin Lock"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = 0
                Else
                    m_GETValue = 1
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Fonts ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Schriften++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for deaktivate the Fonts
    ''' </summary>
    ''' <value>true = aktive and false = deactivated</value>
    ''' <remarks>
    ''' 0 = true : aktiviert<br/>
    ''' 1 = false : deaktiviert<br/>
    ''' Wert = 1 bewirkt, daß unter dem Register "Allgemein" und dann "Schriftarten", die Schriftarten-Einstellungen deaktiviert sind.<br/>
    ''' Value = 1 deaktivate "Fonts Settings" in "Fonts"
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_UserPolicies_Fonts() As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "Fonts"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                'Check if is aktivate or deactivated
                If CType(m_GETValue, Integer) = 0 Then
                    m_RETURN = True
                Else
                    m_RETURN = False
                End If
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get

        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "Fonts"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = 0
                Else
                    m_GETValue = 1
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ AutoComplete ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Autovervollständigung ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for deaktivate the FormSuggest
    ''' </summary>
    ''' <value>true = aktive and false = deactivated</value>
    ''' <remarks>
    ''' 0 = true : aktiviert<br/>
    ''' 1 = false : deaktiviert<br/>
    ''' Wert = 1 bewirkt, daß unter dem Register "Inhalte" und dann "Persönliche Informationen" und "Autovervollständigen" die Autovervollständigen-Einstellung für Formulare deaktiviert ist.<br/>
    ''' Value = 1 deaktivate "Autocomplete"
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_UserPolicies_FormSuggest() As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "FormSuggest"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                'Check if is aktivate or deactivated
                If CType(m_GETValue, Integer) = 0 Then
                    m_RETURN = True
                Else
                    m_RETURN = False
                End If
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get

        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "FormSuggest"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = 0
                Else
                    m_GETValue = 1
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Homepage ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Startseite ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for deaktivate the Homepage
    ''' </summary>
    ''' <value>true = aktive and false = deactivated</value>
    ''' <remarks>
    ''' 0 = true : aktiviert<br/>
    ''' 1 = false : deaktiviert<br/>
    ''' Wert = 1 bewirkt, daß unter dem Register "Allgemein" die "Startseite"-Einstellungen deaktiviert sind.<br/>
    ''' Value = 1 deaktivate Homepage in General
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_UserPolicies_Homepage() As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "Homepage"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                'Check if is aktivate or deactivated
                If CType(m_GETValue, Integer) = 0 Then
                    m_RETURN = True
                Else
                    m_RETURN = False
                End If
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get

        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "Homepage"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = 0
                Else
                    m_GETValue = 1
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ FormSuggest Passwords ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Autovervollständigung ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for deaktivate the FormSuggest Passwords
    ''' </summary>
    ''' <value>true = aktive and false = deactivated</value>
    ''' <remarks>
    ''' 0 = true : aktiviert<br/>
    ''' 1 = false : deaktiviert<br/>
    ''' Wert = 1 bewirkt, daß unter dem Register "Inhalte" und dann "Persönliche Informationen" und "Autovervollständigen" die Autovervollständigen-Einstellung für Benutzernamen und Kennwörter deaktiviert ist.<br/>
    ''' Value = 1 deaktivate User and Password
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_UserPolicies_FormSuggest_Passwords() As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "FormSuggest Passwords"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                'Check if is aktivate or deactivated
                If CType(m_GETValue, Integer) = 0 Then
                    m_RETURN = True
                Else
                    m_RETURN = False
                End If
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get

        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "FormSuggest Passwords"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = 0
                Else
                    m_GETValue = 1
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Languages ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Sprache ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for deaktivate the Languages
    ''' </summary>
    ''' <value>true = aktive and false = deactivated</value>
    ''' <remarks>
    ''' 0 = true : aktiviert<br/>
    ''' 1 = false : deaktiviert<br/>
    ''' Wert = 1 bewirkt, daß unter dem Register "Allgemein" und dann "Sprachen" die Spracheinstellung deaktiviert ist.<br/>
    ''' Value = 1 deaktivate Language
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_UserPolicies_Languages() As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "Languages"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                'Check if is aktivate or deactivated
                If CType(m_GETValue, Integer) = 0 Then
                    m_RETURN = True
                Else
                    m_RETURN = False
                End If
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get

        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "Languages"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = 0
                Else
                    m_GETValue = 1
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Links ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Links ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for deaktivate the Links
    ''' </summary>
    ''' <value>true = aktive and false = deactivated</value>
    ''' <remarks>
    ''' 0 = true : aktiviert<br/>
    ''' 1 = false : deaktiviert<br/>
    ''' Wert = 1 bewirkt, daß unter dem Register "Allgemein" und dann "Farben", die Farbeinstellungen für "Links" deaktiviert sind.<br/>
    ''' Value = 1 deaktivate Links
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_UserPolicies_Links() As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "Links"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                'Check if is aktivate or deactivated
                If CType(m_GETValue, Integer) = 0 Then
                    m_RETURN = True
                Else
                    m_RETURN = False
                End If
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get

        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "Links"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = 0
                Else
                    m_GETValue = 1
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Messaging ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Nachrichten ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for deaktivate the Messaging
    ''' </summary>
    ''' <value>true = aktive and false = deactivated</value>
    ''' <remarks>
    ''' 0 = true : aktiviert<br/>
    ''' 1 = false : deaktiviert<br/>
    ''' Wert = 1 bewirkt, daß unter dem Register "Programme" und dann "Internetprogramme" die Einstellungen E-Mail, Newsgroups und Internetanruf deaktiviert sind.<br/>
    ''' Value = 1 deaktivate Message,Newsgroups,...
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_UserPolicies_Messaging() As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "Messaging"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                'Check if is aktivate or deactivated
                If CType(m_GETValue, Integer) = 0 Then
                    m_RETURN = True
                Else
                    m_RETURN = False
                End If
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get

        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "Messaging"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = 0
                Else
                    m_GETValue = 1
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Profiles ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Profile ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for deaktivate the Profiles
    ''' </summary>
    ''' <value>true = aktive and false = deactivated</value>
    ''' <remarks>
    ''' 0 = true : aktiviert<br/>
    ''' 1 = false : deaktiviert<br/>
    ''' Wert = 1 bewirkt, daß unter dem Register "Inhalte" und dann "Persönliche Informationen" der Button "Profil" deaktiviert ist.<br/>
    ''' Value = 1 deaktivate Profiles
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_UserPolicies_Profiles() As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "Profiles"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                'Check if is aktivate or deactivated
                If CType(m_GETValue, Integer) = 0 Then
                    m_RETURN = True
                Else
                    m_RETURN = False
                End If
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get

        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "Profiles"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = 0
                Else
                    m_GETValue = 1
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Ratings ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Inhaltsratgeber ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for deaktivate the Ratings
    ''' </summary>
    ''' <value>true = aktive and false = deactivated</value>
    ''' <remarks>
    ''' 0 = true : aktiviert<br/>
    ''' 1 = false : deaktiviert<br/>
    ''' Wert = 1 bewirkt, daß unter dem Register "Inhalte" die "Inhaltsratgeber"-Einstellungen deaktiviert sind.<br/>
    ''' Value = 1 deaktivate Content Advisor
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_UserPolicies_Ratings() As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "Ratings"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                'Check if is aktivate or deactivated
                If CType(m_GETValue, Integer) = 0 Then
                    m_RETURN = True
                Else
                    m_RETURN = False
                End If
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get

        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "Ratings"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = 0
                Else
                    m_GETValue = 1
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ ResetWebSettings ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Webeinstellungen zurücksetzen ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for deaktivate the ResetWebSettings
    ''' </summary>
    ''' <value>true = aktive and false = deactivated</value>
    ''' <remarks>
    ''' 0 = true : aktiviert<br/>
    ''' 1 = false : deaktiviert<br/>
    ''' Wert = 1 bewirkt, daß unter dem Register "Programme" der Button "Webeinstellungen zurücksetzen..." deaktiviert ist.<br/>
    ''' Value = 1 deaktivate Reset Web Settings
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_UserPolicies_ResetWebSettings() As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "ResetWebSettings"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                'Check if is aktivate or deactivated
                If CType(m_GETValue, Integer) = 0 Then
                    m_RETURN = True
                Else
                    m_RETURN = False
                End If
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get

        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "ResetWebSettings"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = 0
                Else
                    m_GETValue = 1
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ SecAddSites ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ keine Seiten (Sites) zu irgendeiner Zone hinzugefügen ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for deaktivate the SecAddSites
    ''' </summary>
    ''' <value>true = aktive and false = deactivated</value>
    ''' <remarks>
    ''' 0 = true : aktiviert<br/>
    ''' 1 = false : deaktiviert<br/>
    ''' Wert = 1 bewirkt, daß unter dem Register "Sicherheit" keine Seiten (Sites) zu irgendeiner Zone hinzugefügt werden können.<br/>
    ''' Value = 1 deaktivate Sites
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_UserPolicies_SecAddSites() As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "SecAddSites"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                'Check if is aktivate or deactivated
                If CType(m_GETValue, Integer) = 0 Then
                    m_RETURN = True
                Else
                    m_RETURN = False
                End If
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get

        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "SecAddSites"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = 0
                Else
                    m_GETValue = 1
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ SecChangeSettings ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Buttons in Sicherheit ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for deaktivate the SecChangeSettings
    ''' </summary>
    ''' <value>true = aktive and false = deactivated</value>
    ''' <remarks>
    ''' 0 = true : aktiviert<br/>
    ''' 1 = false : deaktiviert<br/>
    ''' Wert = 1 bewirkt, daß unter dem Register "Sicherheit" die Buttons "Stufe anpassen..." und "Standardstufe" deaktiviert sind.<br/>
    ''' Value = 1 deaktivate Buttons in Security
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_UserPolicies_SecChangeSettings() As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "SecChangeSettings"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                'Check if is aktivate or deactivated
                If CType(m_GETValue, Integer) = 0 Then
                    m_RETURN = True
                Else
                    m_RETURN = False
                End If
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get

        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "SecChangeSettings"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = 0
                Else
                    m_GETValue = 1
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Settings ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Temporäre Internetdateien ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for deaktivate the Settings(Temporary InternetFiles)
    ''' </summary>
    ''' <value>true = aktive and false = deactivated</value>
    ''' <remarks>
    ''' 0 = true : aktiviert<br/>
    ''' 1 = false : deaktiviert<br/>
    ''' Wert = 1 bewirkt, daß unter dem Register "Allgemein" alle Einstellungen unter "Temporäre Internetdateien" deaktiviert sind.<br/>
    ''' Value = 1 deaktivate Buttons in Security
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_UserPolicies_Settings() As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "Settings"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                'Check if is aktivate or deactivated
                If CType(m_GETValue, Integer) = 0 Then
                    m_RETURN = True
                Else
                    m_RETURN = False
                End If
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get

        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "Settings"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = 0
                Else
                    m_GETValue = 1
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Wallet ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ MS Wallet ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for deaktivate Wallet
    ''' </summary>
    ''' <value>true = aktive and false = deactivated</value>
    ''' <remarks>
    ''' 0 = true : aktiviert<br/>
    ''' 1 = false : deaktiviert<br/>
    ''' Wert = 1 bewirkt, daß Microsoft Wallet deaktiviert wird, wenn dieses installiert ist.<br/>
    ''' Value = 1 deaktivate Buttons in Microsoft Wallet
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_UserPolicies_Wallet() As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "Wallet"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                'Check if is aktivate or deactivated
                If CType(m_GETValue, Integer) = 0 Then
                    m_RETURN = True
                Else
                    m_RETURN = False
                End If
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get

        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "Wallet"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = 0
                Else
                    m_GETValue = 1
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Accessibility ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Eingabehilfen ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for Accessibility
    ''' </summary>
    ''' <value>true = aktive and false = deactivated</value>
    ''' <remarks>
    ''' 0 = true : aktiviert<br/>
    ''' 1 = false : deaktiviert<br/>
    ''' Wert = 1 bewirkt, daß Eingabehilfen deaktiviert wird.<br/>
    ''' It disables the ability to change the settings in the Accessibility Tab, under General Tab, at the bottom right!
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_UserPolicies_Accessibility() As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "Accessibility"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                'Check if is aktivate or deactivated
                If CType(m_GETValue, Integer) = 0 Then
                    m_RETURN = True
                Else
                    m_RETURN = False
                End If
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get

        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Policies\Microsoft\Internet Explorer\Control Panel"
            m_KEY = "Accessibility"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = 0
                Else
                    m_GETValue = 1
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' **********************************************************************************************************************************
    '' ****************************************************** Browsing ******************************************************************
    '' **********************************************************************************************************************************
    '' +++++++++++++ Automatically check for Internet Explorer updates ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Automatische Überprüfung auf Aktualisierung von Internet Explorer ++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for NoUpdateCheck in SOFTWARE\Microsoft\Internet Explorer\Main
    ''' </summary>
    ''' <value>true = DefaultValue</value>
    ''' <remarks>
    ''' Automatically check for Internet Explorer updates<br/>
    ''' Automatische Überprüfung auf Aktualisierung von Internet Explorer<br/>
    ''' 0 = true<br/>
    ''' 1 = false 
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Browsing_NoUpdateCheck(Optional ByVal mdefault As Boolean = False) As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "NoUpdateCheck"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = Nothing : If mdefault = False Then m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                'Check if is aktivate or deactivated
                If m_GETValue Is Nothing Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\IEUPDATECHECK", "DefaultValue", _RemoteMachine)
                    If m_GETValue Is Nothing Then
                        Dim ex As New Exception("RegKey and DefaultValue is not available")
                        Throw ex
                    End If
                End If
                'Prüfen ob Check oder Unchecked
                Try
                    If m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\IEUPDATECHECK", "CheckedValue", _RemoteMachine) Then
                        m_RETURN = True
                    Else
                        m_RETURN = False
                    End If
                Catch ex As Exception
                    Throw ex
                End Try
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get

        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "NoUpdateCheck"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\IEUPDATECHECK", "CheckedValue", _RemoteMachine)
                Else
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\IEUPDATECHECK", "UncheckedValue", _RemoteMachine)
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Notify when downloads complete +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Benachrichtigung, wenn Download beendet ist ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for NotifyDownloadComplete in SOFTWARE\Microsoft\Internet Explorer\Main
    ''' </summary>
    ''' <value>true = DefaultValue</value>
    ''' <remarks>
    ''' Notify when downloads complete <br/>
    ''' Benachrichtigung, wenn Download beendet ist<br/>
    ''' yes = true<br/>
    ''' no = false 
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Browsing_NotifyDownloadComplete(Optional ByVal mdefault As Boolean = False) As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "NotifyDownloadComplete"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = Nothing : If mdefault = False Then m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If m_GETValue Is Nothing Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\NOTIFYDOWNLOADCOMPLETE", "DefaultValue", _RemoteMachine)
                    If m_GETValue Is Nothing Then
                        Dim ex As New Exception("RegKey and DefaultValue is not available")
                        Throw ex
                    End If
                End If
                'Check if is aktivate or deactivated
                Try
                    If m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\NOTIFYDOWNLOADCOMPLETE", "CheckedValue", _RemoteMachine) Then
                        m_RETURN = True
                    Else
                        m_RETURN = False
                    End If
                Catch ex As Exception
                    Throw ex
                End Try
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get
        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "NotifyDownloadComplete"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\NOTIFYDOWNLOADCOMPLETE", "CheckedValue", _RemoteMachine)
                Else
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\NOTIFYDOWNLOADCOMPLETE", "UncheckedValue", _RemoteMachine)
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Force offscreen compositing even under Terminal Server (requires restart) +++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Bildschirmaufbau im Hintergrund auch unter Terminalserver erzwingen (Neustart erforderlich) +++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for Force Offscreen Composition in SOFTWARE\Microsoft\Internet Explorer\Main
    ''' </summary>
    ''' <value>true = DefaultValue</value>
    ''' <remarks>
    ''' Force offscreen compositing even under Terminal Server (requires restart) <br/>
    ''' Bildschirmaufbau im Hintergrund auch unter Terminalserver erzwingen (Neustart erforderlich) <br/>
    ''' 1 = true <br/>
    ''' 0 = false 
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Browsing_Force_Offscreen_Composition(Optional ByVal mdefault As Boolean = False) As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "Force Offscreen Composition"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = Nothing : If mdefault = False Then m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If m_GETValue Is Nothing Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\FORCE_OFFSCREEN", "DefaultValue", _RemoteMachine)
                    If m_GETValue Is Nothing Then
                        Dim ex As New Exception("RegKey and DefaultValue is not available")
                        Throw ex
                    End If
                End If
                'Check if is aktivate or deactivated
                Try
                    If m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\FORCE_OFFSCREEN", "CheckedValue", _RemoteMachine) Then
                        m_RETURN = True
                    Else
                        m_RETURN = False
                    End If
                Catch ex As Exception
                    Throw ex
                End Try
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get
        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "Force Offscreen Composition"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\FORCE_OFFSCREEN", "CheckedValue", _RemoteMachine)
                Else
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\FORCE_OFFSCREEN", "UncheckedValue", _RemoteMachine)
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Enable third-party browser extensions (requires restart) +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Browsererweiterungen von Drittanbietern aktivieren (Neustart erforderlich)++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for Enable Browser Extensions in SOFTWARE\Microsoft\Internet Explorer\Main
    ''' </summary>
    ''' <value>true = DefaultValue</value>
    ''' <remarks>
    ''' Enable third-party browser extensions (requires restart) <br/>
    ''' Browsererweiterungen von Drittanbietern aktivieren (Neustart erforderlich) <br/>
    ''' yes = true<br/>
    ''' no = false
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Browsing_Enable_Browser_Extensions(Optional ByVal mdefault As Boolean = False) As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "Enable Browser Extensions"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = Nothing : If mdefault = False Then m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If m_GETValue Is Nothing Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\USEBHO", "DefaultValue", _RemoteMachine)
                    If m_GETValue Is Nothing Then
                        Dim ex As New Exception("RegKey and DefaultValue is not available")
                        Throw ex
                    End If
                End If
                'Check if is aktivate or deactivated
                Try
                    If m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\USEBHO", "CheckedValue", _RemoteMachine) Then
                        m_RETURN = True
                    Else
                        m_RETURN = False
                    End If
                Catch ex As Exception
                    Throw ex
                End Try
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get
        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "Enable Browser Extensions"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\USEBHO", "CheckedValue", _RemoteMachine)
                Else
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\USEBHO", "UncheckedValue", _RemoteMachine)
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Show Go button in Address bar +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Die Schaltfläche „Wechseln zu“ in der Adressleiste anzeigen +++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for ShowGoButton in SOFTWARE\Microsoft\Internet Explorer\Main
    ''' </summary>
    ''' <value>true = DefaultValue</value>
    ''' <remarks>
    ''' Show Go button in Address bar <br/>
    ''' Die Schaltfläche „Wechseln zu“ in der Adressleiste anzeigen<br/>
    ''' yes = true<br/>
    ''' no = false
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Browsing_ShowGoButton(Optional ByVal mdefault As Boolean = False) As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "ShowGoButton"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = Nothing : If mdefault = False Then m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If m_GETValue Is Nothing Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\GOBUTTON", "DefaultValue", _RemoteMachine)
                    If m_GETValue Is Nothing Then
                        Dim ex As New Exception("RegKey and DefaultValue is not available")
                        Throw ex
                    End If
                End If
                'Check if is aktivate or deactivated
                Try
                    If m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\GOBUTTON", "CheckedValue", _RemoteMachine) Then
                        m_RETURN = True
                    Else
                        m_RETURN = False
                    End If
                Catch ex As Exception
                    Throw ex
                End Try
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get
        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "ShowGoButton"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\GOBUTTON", "CheckedValue", _RemoteMachine)
                Else
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\GOBUTTON", "UncheckedValue", _RemoteMachine)
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Enable Install on Demand (other) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Installation bei Bedarf aktivieren (andere) +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for NoWebJITSetup in SOFTWARE\Microsoft\Internet Explorer\Main
    ''' </summary>
    ''' <value>true = DefaultValue</value>
    ''' <remarks>
    ''' Enable Install on Demand (other)<br/>
    ''' Installation bei Bedarf aktivieren (andere)<br/>
    ''' 0 = true<br/>
    ''' 1 = false 
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Browsing_NoWebJITSetup(Optional ByVal mdefault As Boolean = False) As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "NoWebJITSetup"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = Nothing : If mdefault = False Then m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If m_GETValue Is Nothing Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\WEBJIT", "DefaultValue", _RemoteMachine)
                    If m_GETValue Is Nothing Then
                        Dim ex As New Exception("RegKey and DefaultValue is not available")
                        Throw ex
                    End If
                End If
                Try
                    If m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\WEBJIT", "CheckedValue", _RemoteMachine) Then
                        m_RETURN = True
                    Else
                        m_RETURN = False
                    End If
                Catch ex As Exception
                    Throw ex
                End Try
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get
        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "NoWebJITSetup"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\WEBJIT", "CheckedValue", _RemoteMachine)
                Else
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\WEBJIT", "UncheckedValue", _RemoteMachine)
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Enable Install On Demand (Internet Explorer) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Installation bei Bedarf aktivieren (Internet Explorer) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for NoJITSetup in SOFTWARE\Microsoft\Internet Explorer\Main
    ''' </summary>
    ''' <value>true = DefaultValue</value>
    ''' <remarks>
    ''' Enable Install On Demand (Internet Explorer) <br/>
    ''' Installation bei Bedarf aktivieren (Internet Explorer)<br/>
    ''' 0 = true<br/>
    ''' 1 = false 
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Browsing_NoJITSetup(Optional ByVal mdefault As Boolean = False) As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "NoJITSetup"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = Nothing : If mdefault = False Then m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If m_GETValue Is Nothing Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\IOD", "DefaultValue", _RemoteMachine)
                    If m_GETValue Is Nothing Then
                        Dim ex As New Exception("RegKey and DefaultValue is not available")
                        Throw ex
                    End If
                End If
                'Check if is aktivate or deactivated
                Try
                    If m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\IOD", "CheckedValue", _RemoteMachine) Then
                        m_RETURN = True
                    Else
                        m_RETURN = False
                    End If
                Catch ex As Exception
                    Throw ex
                End Try
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get
        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "NoJITSetup"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\IOD", "CheckedValue", _RemoteMachine)
                Else
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\IOD", "UncheckedValue", _RemoteMachine)
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Show friendly HTTP error messages ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Kurze HTTP-Fehlermeldungen anzeigen ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for Friendly http errors in SOFTWARE\Microsoft\Internet Explorer\Main
    ''' </summary>
    ''' <value>true = DefaultValue</value>
    ''' <remarks>
    ''' Show friendly HTTP error messages<br/>
    ''' Kurze HTTP-Fehlermeldungen anzeigen<br/>
    ''' yes = true<br/>
    ''' no = false 
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Browsing_Friendly_http_errors(Optional ByVal mdefault As Boolean = False) As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "Friendly http errors"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = Nothing : If mdefault = False Then m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If m_GETValue Is Nothing Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\FRIENDLY_ERRORS", "DefaultValue", _RemoteMachine)
                    If m_GETValue Is Nothing Then
                        Dim ex As New Exception("RegKey and DefaultValue is not available")
                        Throw ex
                    End If
                End If
                'Check if is aktivate or deactivated
                Try
                    If m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\FRIENDLY_ERRORS", "CheckedValue", _RemoteMachine) Then
                        m_RETURN = True
                    Else
                        m_RETURN = False
                    End If
                Catch ex As Exception
                    Throw ex
                End Try
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get
        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "Friendly http errors"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\FRIENDLY_ERRORS", "CheckedValue", _RemoteMachine)
                Else
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\FRIENDLY_ERRORS", "UncheckedValue", _RemoteMachine)
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Underline links ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Links unterstreichen +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for Anchor Underline in SOFTWARE\Microsoft\Internet Explorer\Main
    ''' </summary>
    ''' <value>true = DefaultValue</value>
    ''' <remarks>
    ''' Underline links<br/>
    ''' Links unterstreichen<br/>
    ''' yes = always<br/>
    ''' no = never<br/>
    ''' hover = on mouseover
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Browsing_Anchor_Underline(Optional ByVal mdefault As Boolean = False) As String
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "Anchor Underline"
            m_HIVE = RegistryHive.Users
            Dim m_BACK As String
            Try
                'Gets the Value
                m_GETValue = Nothing : If mdefault = False Then m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If m_GETValue Is Nothing Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\ULINKS\ALWAYS", "DefaultValue", _RemoteMachine)
                    If m_GETValue Is Nothing Then
                        Dim ex As New Exception("RegKey and DefaultValue is not available")
                        Throw ex
                    End If
                End If
                m_BACK = CType(m_GETValue, String).ToLower
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_BACK
        End Get
        Set(ByVal Value As String)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "Anchor Underline"
            m_HIVE = RegistryHive.Users
            Try
                m_GETValue = Value
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Enable Personalized Favorites Menu +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Menü für persönliche Favoriten aktivieren ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for FavIntelliMenus in SOFTWARE\Microsoft\Internet Explorer\Main
    ''' </summary>
    ''' <value>true = DefaultValue</value>
    ''' <remarks>
    ''' Enable Personalized Favorites Menu<br/>
    ''' Menü für persönliche Favoriten aktivieren<br/>
    ''' yes = true<br/>
    ''' no = false
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Browsing_FavIntelliMenus(Optional ByVal mdefault As Boolean = False) As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "FavIntelliMenus"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = Nothing : If mdefault = False Then m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If m_GETValue Is Nothing Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\FAVINTELLI", "DefaultValue", _RemoteMachine)
                    If m_GETValue Is Nothing Then
                        Dim ex As New Exception("RegKey and DefaultValue is not available")
                        Throw ex
                    End If
                End If
                'Check if is aktivate or deactivated
                Try
                    If m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\FAVINTELLI", "CheckedValue", _RemoteMachine) Then
                        m_RETURN = True
                    Else
                        m_RETURN = False
                    End If
                Catch ex As Exception
                    Throw ex
                End Try
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get
        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "FavIntelliMenus"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\FAVINTELLI", "CheckedValue", _RemoteMachine)
                Else
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\FAVINTELLI", "UncheckedValue", _RemoteMachine)
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Close unused folders in History and Favorites (required restart) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Nicht verwendete Ordner im Verlauf und in Favoriten schließen (Neustart erforderlich) +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for NscSingleExpand in SOFTWARE\Microsoft\Internet Explorer\Main
    ''' </summary>
    ''' <value>true = DefaultValue</value>
    ''' <remarks>
    ''' Close unused folders in History and Favorites (required restart)<br/>
    ''' Nicht verwendete Ordner im Verlauf und in Favoriten schließen (Neustart erforderlich)<br/>
    ''' 1 = true<br/>
    ''' 0 = false 
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Browsing_NscSingleExpand(Optional ByVal mdefault As Boolean = False) As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "NscSingleExpand"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = Nothing : If mdefault = False Then m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If m_GETValue Is Nothing Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\NSCSINGLEEXPAND", "DefaultValue", _RemoteMachine)
                    If m_GETValue Is Nothing Then
                        Dim ex As New Exception("RegKey and DefaultValue is not available")
                        Throw ex
                    End If
                End If
                'Check if is aktivate or deactivated
                Try
                    If m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\NSCSINGLEEXPAND", "CheckedValue", _RemoteMachine) Then
                        m_RETURN = True
                    Else
                        m_RETURN = False
                    End If
                Catch ex As Exception
                    Throw ex
                End Try
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get
        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "NscSingleExpand"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\NSCSINGLEEXPAND", "CheckedValue", _RemoteMachine)
                Else
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\NSCSINGLEEXPAND", "UncheckedValue", _RemoteMachine)
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Use smooth scrolling +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Optimierten Bildlauf verwenden +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for SmoothScroll in SOFTWARE\Microsoft\Internet Explorer\Main
    ''' </summary>
    ''' <value>true = DefaultValue</value>
    ''' <remarks>
    ''' Use smooth scrolling<br/>
    ''' Optimierten Bildlauf verwenden<br/>
    ''' 1 = true<br/>
    ''' 0 = false 
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Browsing_SmoothScroll(Optional ByVal mdefault As Boolean = False) As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "SmoothScroll"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = Nothing : If mdefault = False Then m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If m_GETValue Is Nothing Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\SMOOTH_SCROLLING", "DefaultValue", _RemoteMachine)
                    If m_GETValue Is Nothing Then
                        Dim ex As New Exception("RegKey and DefaultValue is not available")
                        Throw ex
                    End If
                End If
                'Check if is aktivate or deactivated
                Try
                    If m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\SMOOTH_SCROLLING", "CheckedValue", _RemoteMachine) Then
                        m_RETURN = True
                    Else
                        m_RETURN = False
                    End If
                Catch ex As Exception
                    Throw ex
                End Try
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get
        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "SmoothScroll"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\SMOOTH_SCROLLING", "CheckedValue", _RemoteMachine)
                Else
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\SMOOTH_SCROLLING", "UncheckedValue", _RemoteMachine)
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Enable folder view for FTP sites ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Ordneransicht für FTP-Sites aktivieren ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for Use Web Based FTP in Software\Microsoft\Ftp
    ''' </summary>
    ''' <value>true = DefaultValue</value>
    ''' <remarks>
    ''' Enable folder view for FTP sites<br/>
    ''' Ordneransicht für FTP-Sites aktivieren<br/>
    ''' no = true<br/>
    ''' yes = false 
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Browsing_Use_Web_Based_FTP(Optional ByVal mdefault As Boolean = False) As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Microsoft\Ftp"
            m_KEY = "Use Web Based FTP"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = Nothing : If mdefault = False Then m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If m_GETValue Is Nothing Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\FTPUI", "DefaultValue", _RemoteMachine)
                    If m_GETValue Is Nothing Then
                        Dim ex As New Exception("RegKey and DefaultValue is not available")
                        Throw ex
                    End If
                End If
                'Check if is aktivate or deactivated
                Try
                    If m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\FTPUI", "CheckedValue", _RemoteMachine) Then
                        m_RETURN = True
                    Else
                        m_RETURN = False
                    End If
                Catch ex As Exception
                    Throw ex
                End Try
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get
        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Microsoft\Ftp"
            m_KEY = "Use Web Based FTP"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\FTPUI", "CheckedValue", _RemoteMachine)
                Else
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\FTPUI", "UncheckedValue", _RemoteMachine)
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Use Passive FTP (for firewall and DSL modem compatibility) +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Passives FTP verwenden (für Firewalls und DSL-Modem-Kompatibilität verwenden) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for Use PASV in Software\Microsoft\Ftp
    ''' </summary>
    ''' <value>true = DefaultValue</value>
    ''' <remarks>
    ''' Use Passive FTP (for firewall and DSL modem compatibility)<br/>
    ''' Passives FTP verwenden (für Firewalls und DSL-Modem-Kompatibilität verwenden)<br/>
    ''' yes = true<br/>
    ''' no = false 
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Browsing_Use_PASV(Optional ByVal mdefault As Boolean = False) As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Microsoft\Ftp"
            m_KEY = "Use PASV"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = Nothing : If mdefault = False Then m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If m_GETValue Is Nothing Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\FTPPASV", "DefaultValue", _RemoteMachine)
                    If m_GETValue Is Nothing Then
                        Dim ex As New Exception("RegKey and DefaultValue is not available")
                        Throw ex
                    End If
                End If
                'Check if is aktivate or deactivated
                Try
                    If m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\FTPPASV", "CheckedValue", _RemoteMachine) Then
                        m_RETURN = True
                    Else
                        m_RETURN = False
                    End If
                Catch ex As Exception
                    Throw ex
                End Try
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get
        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Microsoft\Ftp"
            m_KEY = "Use PASV"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\FTPPASV", "CheckedValue", _RemoteMachine)
                Else
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\FTPPASV", "UncheckedValue", _RemoteMachine)
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Enable page transitions ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Seitenübergänge aktivieren +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for Page_Transitions in SOFTWARE\Microsoft\Internet Explorer\Main
    ''' </summary>
    ''' <value>true = DefaultValue</value>
    ''' <remarks>
    ''' Enable page transitions<br/>
    ''' Seitenübergänge aktivieren<br/>
    ''' 1 = true<br/>
    ''' 0 = false
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Browsing_Page_Transitions(Optional ByVal mdefault As Boolean = False) As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "Page_Transitions"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = Nothing : If mdefault = False Then m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If m_GETValue Is Nothing Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\PT", "DefaultValue", _RemoteMachine)
                    If m_GETValue Is Nothing Then
                        Dim ex As New Exception("RegKey and DefaultValue is not available")
                        Throw ex
                    End If
                End If
                'Check if is aktivate or deactivated
                Try
                    If m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\PT", "CheckedValue", _RemoteMachine) Then
                        m_RETURN = True
                    Else
                        m_RETURN = False
                    End If
                Catch ex As Exception
                    Throw ex
                End Try
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get
        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "Page_Transitions"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\PT", "CheckedValue", _RemoteMachine)
                Else
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\PT", "UncheckedValue", _RemoteMachine)
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Disable script debugging ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Skriptdebugging deaktivieren ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for Disable Script Debugger in SOFTWARE\Microsoft\Internet Explorer\Main
    ''' </summary>
    ''' <value>true = DefaultValue</value>
    ''' <remarks>
    ''' Disable script debugging <br/>
    ''' Skriptdebugging deaktivieren <br/>
    ''' yes = true<br/>
    ''' no = false 
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Browsing_Disable_Script_Debugger(Optional ByVal mdefault As Boolean = False) As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "Disable Script Debugger"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = Nothing : If mdefault = False Then m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If m_GETValue Is Nothing Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\SCRIPT_DEBUGGER", "DefaultValue", _RemoteMachine)
                    If m_GETValue Is Nothing Then
                        Dim ex As New Exception("RegKey and DefaultValue is not available")
                        Throw ex
                    End If
                End If
                'Check if is aktivate or deactivated
                Try
                    If m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\SCRIPT_DEBUGGER", "CheckedValue", _RemoteMachine) Then
                        m_RETURN = True
                    Else
                        m_RETURN = False
                    End If
                Catch ex As Exception
                    Throw ex
                End Try
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get
        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "Disable Script Debugger"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\SCRIPT_DEBUGGER", "CheckedValue", _RemoteMachine)
                Else
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\SCRIPT_DEBUGGER", "UncheckedValue", _RemoteMachine)
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Disable script debugging IE ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Skriptdebugging deaktivieren IE ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for Disable Script Debugger in SOFTWARE\Microsoft\Internet Explorer\Main
    ''' </summary>
    ''' <value>true = DefaultValue</value>
    ''' <remarks>
    ''' Disable script debugging IE<br/>
    ''' Skriptdebugging deaktivieren IE<br/>
    ''' yes = true<br/>
    ''' no = false 
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Browsing_Disable_Script_Debugger_IE(Optional ByVal mdefault As Boolean = False) As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "DisableScriptDebuggerIE"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = Nothing : If mdefault = False Then m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If m_GETValue Is Nothing Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\SCRIPT_DEBUGGER_IE", "DefaultValue", _RemoteMachine)
                    If m_GETValue Is Nothing Then
                        Dim ex As New Exception("RegKey and DefaultValue are not available")
                        Throw ex
                    End If
                End If
                'Check if is aktivate or deactivated
                Try
                    If m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\SCRIPT_DEBUGGER_IE", "CheckedValue", _RemoteMachine) Then
                        m_RETURN = True
                    Else
                        m_RETURN = False
                    End If
                Catch ex As Exception
                    Throw ex
                End Try
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get
        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "DisableScriptDebuggerIE"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\SCRIPT_DEBUGGER_IE", "CheckedValue", _RemoteMachine)
                Else
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\SCRIPT_DEBUGGER_IE", "UncheckedValue", _RemoteMachine)
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Display a notification about every script error ++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Skriptfehler anzeigen ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for Error Dlg Displayed On Every in SOFTWARE\Microsoft\Internet Explorer\Main
    ''' </summary>
    ''' <value>true = DefaultValue</value>
    ''' <remarks>
    ''' Display a notification about every script error<br/>
    ''' Skriptfehler anzeigen<br/>
    ''' yes = true<br/>
    ''' no = false
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Browsing_Error_Dlg_Displayed_On_Every(Optional ByVal mdefault As Boolean = False) As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "Error Dlg Displayed On Every Error"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = Nothing : If mdefault = False Then m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If m_GETValue Is Nothing Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\SCRIPT_ERROR_CACHE", "DefaultValue", _RemoteMachine)
                    If m_GETValue Is Nothing Then
                        Dim ex As New Exception("RegKey and DefaultValue is not available")
                        Throw ex
                    End If
                End If
                'Check if is aktivate or deactivated
                Try
                    If m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\SCRIPT_ERROR_CACHE", "CheckedValue", _RemoteMachine) Then
                        m_RETURN = True
                    Else
                        m_RETURN = False
                    End If
                Catch ex As Exception
                    Throw ex
                End Try
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get
        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "Error Dlg Displayed On Every Error"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\SCRIPT_ERROR_CACHE", "CheckedValue", _RemoteMachine)
                Else
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\SCRIPT_ERROR_CACHE", "UncheckedValue", _RemoteMachine)
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Always send URLs as UTF-8 (requires restart) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ URLs immer als UTF-8 senden (Neustart erforderlich) +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for UrlEncoding in Software\Microsoft\Windows\CurrentVersion\Internet Settings
    ''' </summary>
    ''' <value>true = DefaultValue</value>
    ''' <remarks>
    ''' Always send URLs as UTF-8 (requires restart)<br/>
    ''' URLs immer als UTF-8 senden (Neustart erforderlich)<br/>
    ''' 0 = true<br/>
    ''' 1 = false ()
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Browsing_UrlEncoding(Optional ByVal mdefault As Boolean = False) As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\CurrentVersion\Internet Settings"
            m_KEY = "UrlEncoding"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = Nothing : If mdefault = False Then m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If m_GETValue Is Nothing Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\UTF8", "DefaultValue", _RemoteMachine)
                    If m_GETValue Is Nothing Then
                        Dim ex As New Exception("RegKey and DefaultValue is not available")
                        Throw ex
                    End If
                End If
                'Check if is aktivate or deactivated
                Try
                    If m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\UTF8", "CheckedValue", _RemoteMachine) Then
                        m_RETURN = True
                    Else
                        m_RETURN = False
                    End If
                Catch ex As Exception
                    Throw ex
                End Try
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get
        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\CurrentVersion\Internet Settings"
            m_KEY = "UrlEncoding"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\UTF8", "CheckedValue", _RemoteMachine)
                Else
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\UTF8", "UncheckedValue", _RemoteMachine)
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Show friendly URLs ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ URLs in Kurzform anzeigen +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for Show_FullURL in SOFTWARE\Microsoft\Internet Explorer\Main
    ''' </summary>
    ''' <value>true = DefaultValue</value>
    ''' <remarks>
    ''' Show friendly URLs<br/>
    ''' URLs in Kurzform anzeigen<br/>
    ''' 1 = true<br/>
    ''' 0 = false 
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Browsing_Show_FullURL(Optional ByVal mdefault As Boolean = False) As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer"
            m_KEY = "Show_FullURL"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = Nothing : If mdefault = False Then m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If m_GETValue Is Nothing Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\FRIENDLY_URLS", "DefaultValue", _RemoteMachine)
                    If m_GETValue Is Nothing Then
                        Dim ex As New Exception("RegKey and DefaultValue is not available")
                        Throw ex
                    End If
                End If
                'Check if is aktivate or deactivated
                Try
                    If m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\FRIENDLY_URLS", "CheckedValue", _RemoteMachine) Then
                        m_RETURN = True
                    Else
                        m_RETURN = False
                    End If
                Catch ex As Exception
                    Throw ex
                End Try
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get
        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer"
            m_KEY = "Show_FullURL"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\FRIENDLY_URLS", "CheckedValue", _RemoteMachine)
                Else
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\FRIENDLY_URLS", "UncheckedValue", _RemoteMachine)
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Reuse windows for launching shortcuts ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Verknüpfungen im gleichen Fenster anzeigen +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for AllowWindowReuse in SOFTWARE\Microsoft\Internet Explorer\Main
    ''' </summary>
    ''' <value>true = DefaultValue</value>
    ''' <remarks>
    ''' Reuse windows for launching shortcuts<br/>
    ''' Verknüpfungen im gleichen Fenster anzeigen<br/>
    ''' 1 = true<br/>
    ''' 0 = false 
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Browsing_AllowWindowReuse(Optional ByVal mdefault As Boolean = False) As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "AllowWindowReuse"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = Nothing : If mdefault = False Then m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If m_GETValue Is Nothing Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\REUSEWINDOWS", "DefaultValue", _RemoteMachine)
                    If m_GETValue Is Nothing Then
                        Dim ex As New Exception("RegKey and DefaultValue is not available")
                        Throw ex
                    End If
                End If
                'Check if is aktivate or deactivated
                Try
                    If m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\REUSEWINDOWS", "CheckedValue", _RemoteMachine) Then
                        m_RETURN = True
                    Else
                        m_RETURN = False
                    End If
                Catch ex As Exception
                    Throw ex
                End Try
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get
        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "AllowWindowReuse"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\REUSEWINDOWS", "CheckedValue", _RemoteMachine)
                Else
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\REUSEWINDOWS", "UncheckedValue", _RemoteMachine)
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Use inline AutoComplete ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ AutoVervollständigung ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for Append Completion On Every in SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\AutoComplete
    ''' </summary>
    ''' <value>true = DefaultValue</value>
    ''' <remarks>
    ''' Use inline AutoComplete<br/>
    ''' AutoVervollständigung<br/>
    ''' yes = true<br/>
    ''' no = false 
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Browsing_Append_Completion(Optional ByVal mdefault As Boolean = False) As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\AutoComplete"
            m_KEY = "Append Completion"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = Nothing : If mdefault = False Then m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If m_GETValue Is Nothing Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\AUTOAPPEND", "DefaultValue", _RemoteMachine)
                    If m_GETValue Is Nothing Then
                        Dim ex As New Exception("RegKey and DefaultValue is not available")
                        Throw ex
                    End If
                End If
                'Check if is aktivate or deactivated
                Try
                    If m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\AUTOAPPEND", "CheckedValue", _RemoteMachine) Then
                        m_RETURN = True
                    Else
                        m_RETURN = False
                    End If
                Catch ex As Exception
                    Throw ex
                End Try
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get
        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\AutoComplete"
            m_KEY = "Append Completion"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\AUTOAPPEND", "CheckedValue", _RemoteMachine)
                Else
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\AUTOAPPEND", "UncheckedValue", _RemoteMachine)
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Enable visual styles on buttons and controls in web pages +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Visuelle Stile auf Schaltflächen und Steuerelemente in Webseiten aktivieren +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for UseThemes in SOFTWARE\Microsoft\Internet Explorer\Main
    ''' </summary>
    ''' <value>true = DefaultValue</value>
    ''' <remarks>
    ''' Enable visual styles on buttons and controls in web pages<br/>
    ''' Visuelle Stile auf Schaltflächen und Steuerelemente in Webseiten aktivieren<br/>
    ''' 1 = true<br/>
    ''' 0 = false 
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Browsing_UseThemes(Optional ByVal mdefault As Boolean = False) As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "UseThemes"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = Nothing : If mdefault = False Then m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If m_GETValue Is Nothing Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\USE_THEMES", "DefaultValue", _RemoteMachine)
                    If m_GETValue Is Nothing Then
                        Dim ex As New Exception("RegKey and DefaultValue is not available")
                        Throw ex
                    End If
                End If
                'Check if is aktivate or deactivated
                Try
                    If m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\USE_THEMES", "CheckedValue", _RemoteMachine) Then
                        m_RETURN = True
                    Else
                        m_RETURN = False
                    End If
                Catch ex As Exception
                    Throw ex
                End Try
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get
        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "UseThemes"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\USE_THEMES", "CheckedValue", _RemoteMachine)
                Else
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\USE_THEMES", "UncheckedValue", _RemoteMachine)
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Enable offline items to be synchronized on a schedule +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Zeitplan zur Synchronisation von Offlineobjekten aktivieren +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for NoScheduledUpd in SOFTWARE\Microsoft\Windows\CurrentVersion\Webcheck
    ''' </summary>
    ''' <value>true = DefaultValue</value>
    ''' <remarks>
    ''' Enable offline items to be synchronized on a schedule<br/>
    ''' Zeitplan zur Synchronisation von Offlineobjekten aktivieren<br/>
    ''' 0 = true<br/>
    ''' 1 = false ()
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Browsing_NoScheduledUpd(Optional ByVal mdefault As Boolean = False) As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Windows\CurrentVersion\Webcheck"
            m_KEY = "NoScheduledUpdates"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = Nothing : If mdefault = False Then m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If m_GETValue Is Nothing Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\SCHEDULED_UPDATES", "DefaultValue", _RemoteMachine)
                    If m_GETValue Is Nothing Then
                        Dim ex As New Exception("RegKey and DefaultValue is not available")
                        Throw ex
                    End If
                End If
                'Check if is aktivate or deactivated
                Try
                    If m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\SCHEDULED_UPDATES", "CheckedValue", _RemoteMachine) Then
                        m_RETURN = True
                    Else
                        m_RETURN = False
                    End If
                Catch ex As Exception
                    Throw ex
                End Try
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get
        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Windows\CurrentVersion\Webcheck"
            m_KEY = "NoScheduledUpdates"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\SCHEDULED_UPDATES", "CheckedValue", _RemoteMachine)
                Else
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\BROWSE\SCHEDULED_UPDATES", "UncheckedValue", _RemoteMachine)
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' **********************************************************************************************************************************
    '' ****************************************************** Printing ******************************************************************
    '' **********************************************************************************************************************************

    '' +++++++++++++ Print background colors and images +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Hintergrundfarben und –bilder drucken ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for Print_Background On Every in SOFTWARE\Microsoft\Internet Explorer\Main
    ''' </summary>
    ''' <value>true = DefaultValue</value>
    ''' <remarks>
    ''' Print background colors and images<br/>
    ''' Hintergrundfarben und –bilder drucken<br/>
    ''' yes = true<br/>
    ''' no = false 
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Printing_Print_Background(Optional ByVal mdefault As Boolean = False) As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "Print_Background"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = Nothing : If mdefault = False Then m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If m_GETValue Is Nothing Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\PRINT\BACKGROUND", "DefaultValue", _RemoteMachine)
                    If m_GETValue Is Nothing Then
                        Dim ex As New Exception("RegKey and DefaultValue is not available")
                        Throw ex
                    End If
                End If
                'Check if is aktivate or deactivated
                Try
                    If m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\PRINT\BACKGROUND", "CheckedValue", _RemoteMachine) Then
                        m_RETURN = True
                    Else
                        m_RETURN = False
                    End If
                Catch ex As Exception
                    Throw ex
                End Try
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get
        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "Print_Background"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\PRINT\BACKGROUND", "CheckedValue", _RemoteMachine)
                Else
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\PRINT\BACKGROUND", "UncheckedValue", _RemoteMachine)
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' **********************************************************************************************************************************
    '' ****************************************************** Accessibility *************************************************************
    '' **********************************************************************************************************************************

    '' +++++++++++++ Always expand ALT text for images ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Immer alternativen Text für Bilder anzeigen ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for Expand Alt Text On Every in SOFTWARE\Microsoft\Internet Explorer\Main
    ''' </summary>
    ''' <value>true = DefaultValue</value>
    ''' <remarks>
    ''' Always expand ALT text for images<br/>
    ''' Immer alternativen Text für Bilder anzeigen<br/>
    ''' yes = true<br/>
    ''' no = false
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Accessibility_Expand_Alt_Text(Optional ByVal mdefault As Boolean = False) As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "Expand Alt Text"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = Nothing : If mdefault = False Then m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If m_GETValue Is Nothing Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\ACCESSIBILITY\ALTTEXT", "DefaultValue", _RemoteMachine)
                    If m_GETValue Is Nothing Then
                        Dim ex As New Exception("RegKey and DefaultValue is not available")
                        Throw ex
                    End If
                End If
                'Check if is aktivate or deactivated
                Try
                    If m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\ACCESSIBILITY\ALTTEXT", "CheckedValue", _RemoteMachine) Then
                        m_RETURN = True
                    Else
                        m_RETURN = False
                    End If
                Catch ex As Exception
                    Throw ex
                End Try
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get
        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "Expand Alt Text"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\ACCESSIBILITY\ALTTEXT", "CheckedValue", _RemoteMachine)
                Else
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\ACCESSIBILITY\ALTTEXT", "UncheckedValue", _RemoteMachine)
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Move system caret with focus/selection changes +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Systemzeiger mit Fokus-/Markierungsänderungen verschieben ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for Move System Caret On Every in SOFTWARE\Microsoft\Internet Explorer\Main
    ''' </summary>
    ''' <value>true = DefaultValue</value>
    ''' <remarks>
    ''' Move system caret with focus/selection changes<br/>
    ''' Systemzeiger mit Fokus-/Markierungsänderungen verschieben<br/>
    ''' yes = true<br/>
    ''' no = false 
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Accessibility_Move_System_Caret(Optional ByVal mdefault As Boolean = False) As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "Move System Caret"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = Nothing : If mdefault = False Then m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If m_GETValue Is Nothing Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\ACCESSIBILITY\MOVSYSCARET", "DefaultValue", _RemoteMachine)
                    If m_GETValue Is Nothing Then
                        Dim ex As New Exception("RegKey and DefaultValue is not available")
                        Throw ex
                    End If
                End If
                'Check if is aktivate or deactivated
                If m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\ACCESSIBILITY\MOVSYSCARET", "CheckedValue", _RemoteMachine) Then
                    m_RETURN = True
                Else
                    m_RETURN = False
                End If
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get
        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "Move System Caret"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\ACCESSIBILITY\MOVSYSCARET", "CheckedValue", _RemoteMachine)
                Else
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\ACCESSIBILITY\MOVSYSCARET", "UncheckedValue", _RemoteMachine)
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' **********************************************************************************************************************************
    '' ****************************************************** Settings for HTTP 1.1 *****************************************************
    '' **********************************************************************************************************************************
    '' +++++++++++++ Use HTTP 1.1 through proxy connections ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ HTTP 1.1 über Proxyverbindungen verwenden +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for ProxyHttp1.1 in SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings
    ''' </summary>
    ''' <value>true = DefaultValue</value>
    ''' <remarks>
    ''' Use HTTP 1.1 through proxy connections<br/>
    ''' HTTP 1.1 über Proxyverbindungen verwenden<br/>
    ''' 1 = true<br/>
    ''' 0 = false
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Settings_for_HTTP1_1_ProxyHttp1_1(Optional ByVal mdefault As Boolean = False) As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings"
            m_KEY = "ProxyHttp1.1"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = Nothing : If mdefault = False Then m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If m_GETValue Is Nothing Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\HTTP\PROXY", "DefaultValue", _RemoteMachine)
                    If m_GETValue Is Nothing Then
                        Dim ex As New Exception("RegKey and DefaultValue is not available")
                        Throw ex
                    End If
                End If
                'Check if is aktivate or deactivated
                Try
                    If m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\HTTP\PROXY", "CheckedValue", _RemoteMachine) Then
                        m_RETURN = True
                    Else
                        m_RETURN = False
                    End If
                Catch ex As Exception
                    Throw ex
                End Try
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get
        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings"
            m_KEY = "ProxyHttp1.1"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\HTTP\PROXY", "CheckedValue", _RemoteMachine)
                Else
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\HTTP\PROXY", "UncheckedValue", _RemoteMachine)
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Use HTTP 1.1 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ HTTP 1.1 verwenden +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for EnableHttp1_1 in SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings
    ''' </summary>
    ''' <value>true = DefaultValue</value>
    ''' <remarks>
    ''' Use HTTP 1.1<br/>
    ''' HTTP 1.1 verwenden<br/>
    ''' 1 = true<br/>
    ''' 0 = false
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Settings_for_HTTP1_1_EnableHttp1_1(Optional ByVal mdefault As Boolean = False) As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings"
            m_KEY = "EnableHttp1_1"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = Nothing : If mdefault = False Then m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If m_GETValue Is Nothing Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\HTTP\GENABLE", "DefaultValue", _RemoteMachine)
                    If m_GETValue Is Nothing Then
                        Dim ex As New Exception("RegKey and DefaultValue is not available")
                        Throw ex
                    End If
                End If
                'Check if is aktivate or deactivated
                If m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\HTTP\GENABLE", "CheckedValue", _RemoteMachine) Then
                    m_RETURN = True
                Else
                    m_RETURN = False
                End If
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get
        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings"
            m_KEY = "EnableHttp1_1"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\HTTP\GENABLE", "CheckedValue", _RemoteMachine)
                Else
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\HTTP\GENABLE", "UncheckedValue", _RemoteMachine)
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' **********************************************************************************************************************************
    '' ****************************************************** Java Sun ******************************************************************
    '' **********************************************************************************************************************************

    '' +++++++++++++ Get Java Versions ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get the different Java Versions
    ''' </summary>
    ''' <value>JavaVersion as String()</value>
    ''' <remarks> 
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Function IE_Java_Sun_GetJavaVersions() As String()
        Try
            m_PATH = "SOFTWARE\JavaSoft\Java Plug-in"
            m_HIVE = RegistryHive.LocalMachine
            Dim merkeJavaVersion As String()
            'getAllSubKeys
            merkeJavaVersion = cls_Remote.getAllSubKeys(m_HIVE, m_PATH, _RemoteMachine)
            Return merkeJavaVersion
        Catch ex As Exception
            Throw ex
        End Try
    End Function
    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get the active JavaVersion as String
    ''' </summary>
    ''' <returns>JavaVersion as String</returns>
    ''' <remarks>
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	10.09.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Function IE_Java_Sun_WhatisActivated() As String
        Try
            m_PATH = "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\JAVA_SUN\SELECT"
            m_HIVE = RegistryHive.LocalMachine
            Dim varVersion As String
            varVersion = cls_Remote.Read_RegValue(m_HIVE, m_PATH, "RegPath", _RemoteMachine)
            Return varVersion.Substring(varVersion.LastIndexOf("\"c) + 1)
        Catch ex As Exception
            Return ""
        End Try
    End Function
    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Set or Delete the JavaBrowser - Plugin
    ''' </summary>
    ''' <param name="varVersion">JavaVersion AS String</param>
    ''' <param name="varDelete">True = only Delete, False = Delete and Set</param>
    ''' <remarks>
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	10.09.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Sub IE_Java_Sun_BrowserPlugin(ByVal varVersion As String, ByVal varDelete As Boolean)
        m_PATH = "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\JAVA_SUN"
        m_HIVE = RegistryHive.LocalMachine
        Dim varString As String
        Dim mArr As String()
        Dim mtext As String
        Dim mPfad As String
        'Key löschen
        Try
            Try
                cls_Remote.DeleteRegistrySubKeyTree(m_HIVE, m_PATH, _RemoteMachine)
                cls_Remote.DeleteRegistrySubKeyTree(m_HIVE, "Software\Classes\CLSID\{08B0E5C0-4FCB-11CF-AAA5-00401C608501}\TreatAs", _RemoteMachine)
            Catch
            End Try
            If varDelete = False Then
                '{CAFEEFAC-0014-0002-0003-ABCDEFFEDCBB}
                mtext = Replace(varVersion, "_", ".")
                mArr = Split(mtext, ".")
                mtext = mArr(0) & mArr(1)
                varString = "{CAFEEFAC-" & mtext.PadLeft(4, "0"c) & "-" & mArr(2).PadLeft(4, "0"c) & "-"
                Try
                    mtext = mArr(3)
                Catch ex As Exception
                    mtext = "0"
                End Try
                varString += mtext.PadLeft(4, "0"c) & "-"
                varString += "ABCDEFFEDCBB}"
                If varVersion.StartsWith("1.3") Then
                    'Pfad holen
                    mPfad = cls_Remote.Read_RegValue(m_HIVE, "SOFTWARE\JavaSoft\Java Plug-in\" & varVersion, "JavaHome", _RemoteMachine)
                    'Keys in JAVASun setzen
                    'Bitmap
                    mPfad += "\bin\ActPanel.dll,1000"
                    cls_Remote.WriteToRegistry(m_HIVE, m_PATH, "Bitmap", _RemoteMachine, mPfad)
                    'Text
                    cls_Remote.WriteToRegistry(m_HIVE, m_PATH, "Text", _RemoteMachine, "Java (Sun)")
                    'Type
                    cls_Remote.WriteToRegistry(m_HIVE, m_PATH, "Type", _RemoteMachine, "group")
                ElseIf varVersion.StartsWith("1.4") Then
                    'Pfad holen
                    mPfad = cls_Remote.Read_RegValue(m_HIVE, "SOFTWARE\JavaSoft\Java Plug-in\" & varVersion, "JavaHome", _RemoteMachine)
                    'Keys in JAVASun setzen
                    'Bitmap
                    mPfad += "\bin\regutils.dll,1000"
                    cls_Remote.WriteToRegistry(m_HIVE, m_PATH, "Bitmap", _RemoteMachine, mPfad)
                    'Text
                    cls_Remote.WriteToRegistry(m_HIVE, m_PATH, "Text", _RemoteMachine, "Java (Sun)")
                    'Type
                    cls_Remote.WriteToRegistry(m_HIVE, m_PATH, "Type", _RemoteMachine, "group")
                ElseIf varVersion.StartsWith("1.5") Then
                    'Pfad holen
                    mPfad = cls_Remote.Read_RegValue(m_HIVE, "SOFTWARE\JavaSoft\Java Plug-in\" & varVersion, "JavaHome", _RemoteMachine)
                    'Keys in JAVASun setzen
                    'Bitmap
                    mPfad += "\bin\regutils.dll,1000"
                    cls_Remote.WriteToRegistry(m_HIVE, m_PATH, "Bitmap", _RemoteMachine, mPfad)
                    'Text
                    cls_Remote.WriteToRegistry(m_HIVE, m_PATH, "Text", _RemoteMachine, "Java (Sun)")
                    'Type
                    cls_Remote.WriteToRegistry(m_HIVE, m_PATH, "Type", _RemoteMachine, "group")
                Else
                    Throw New Exception("JavaVersion wird nicht unterstützt")
                End If
                cls_Remote.WriteToRegistry(RegistryHive.LocalMachine, "Software\Classes\CLSID\{08B0E5C0-4FCB-11CF-AAA5-00401C608501}\TreatAs\", "", _RemoteMachine, varString)
                'Select schreiben
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH & "\SELECT", "UncheckedValue", _RemoteMachine, 0)
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH & "\SELECT", "DefaultValue", _RemoteMachine, 1)
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH & "\SELECT", "CheckedValue", _RemoteMachine, 1)
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH & "\SELECT", "HKeyRoot", _RemoteMachine, &H80000002)
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH & "\SELECT", "ValueName", _RemoteMachine, "UseJava2IExplorer")
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH & "\SELECT", "Type", _RemoteMachine, "checkbox")
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH & "\SELECT", "Text", _RemoteMachine, "Use Java 2 " & varVersion & " for <applet> (requires restart)")
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH & "\SELECT", "RegPath", _RemoteMachine, "Software\JavaSoft\Java Plug-in\" & varVersion)
            End If
        Catch ex As Exception
            Throw ex
        End Try
    End Sub
    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for UseJava2IExplorer in Software\JavaSoft\Java Plug-in\...
    ''' </summary>
    ''' <param name="varVersion">JavaVersion</param>
    ''' <value>as Boolean</value>
    ''' <remarks>
    ''' 1 = true<br/>
    ''' 0 = false
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	10.09.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Java_Sun_Activate(ByVal varVersion As String) As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = "SOFTWARE\JavaSoft\Java Plug-in\" & varVersion
            m_KEY = "UseJava2IExplorer"
            m_HIVE = RegistryHive.LocalMachine
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                'Check if is aktivate or deactivated
                If CType(m_GETValue, Integer) = 1 Then
                    m_RETURN = True
                Else
                    m_RETURN = False
                End If
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get
        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = "SOFTWARE\JavaSoft\Java Plug-in\" & varVersion
            m_KEY = "UseJava2IExplorer"
            m_HIVE = RegistryHive.LocalMachine
            Try
                If Value = True Then
                    m_GETValue = 1
                Else
                    m_GETValue = 0
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' **********************************************************************************************************************************
    '' ****************************************************** Microsoft VM **************************************************************
    '' **********************************************************************************************************************************

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Checked if Microsoft Java VM is installed
    ''' </summary>
    ''' <returns>true or false</returns>
    ''' <remarks>
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.09.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Function IE_Microsoft_VM_Exists() As Boolean
        m_PATH = "SOFTWARE\Microsoft\Java VM"
        m_KEY = "Classpath"
        m_HIVE = RegistryHive.LocalMachine
        Return cls_Remote.IfExist_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
    End Function
    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Check a ByteArray
    ''' </summary>
    ''' <param name="varfirst">First Byte - Array</param>
    ''' <param name="varsecond">Second Byte - Array</param>
    ''' <returns>True or False</returns>
    ''' <remarks>
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.09.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Private Function checkBytes(ByVal varfirst As Byte(), ByVal varsecond As Byte()) As Boolean
        Dim i As Integer
        Dim mFehler As Boolean = True
        If varfirst Is Nothing Or varsecond Is Nothing Then
            mFehler = False
        Else
            For i = 0 To varfirst.Length - 1
                If Not varfirst(i) = varsecond(i) Then
                    mFehler = False
                    Exit For
                End If
            Next
        End If
        Return mFehler
    End Function
    '' +++++++++++++ JIT compiler for virtual machine enabled (requires restart) +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Java JIT-Compiler aktiviert (Neustart erforderlich) +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for EnableJIT in SOFTWARE\Microsoft\Java VM
    ''' </summary>
    ''' <value>true = DefaultValue</value>
    ''' <remarks>
    ''' JIT compiler for virtual machine enabled (requires restart)<br/>
    ''' Java JIT-Compiler aktiviert (Neustart erforderlich)
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Microsoft_VM_EnableJIT() As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Java VM"
            m_KEY = "EnableJIT"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = Nothing
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If m_GETValue Is Nothing Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\JAVA_VM\JIT", "DefaultValue", _RemoteMachine)
                    If m_GETValue Is Nothing Then
                        Dim ex As New Exception("RegKey and DefaultValue is not available")
                        Throw ex
                    End If
                End If
                'Check if is aktivate or deactivated
                If TypeOf m_GETValue Is System.Int32 Then
                    If m_GETValue = 1 Then
                        m_RETURN = True
                    Else
                        m_RETURN = False
                    End If
                Else
                    If checkBytes(m_GETValue, cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\JAVA_VM\JIT", "CheckedValue", _RemoteMachine)) = True Then
                        m_RETURN = True
                    Else
                        m_RETURN = False
                    End If
                End If
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get
        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Java VM"
            m_KEY = "EnableJIT"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\JAVA_VM\JIT", "CheckedValue", _RemoteMachine)
                Else
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\JAVA_VM\JIT", "UncheckedValue", _RemoteMachine)
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Java console enabled (requires restart) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Java-Konsole aktiviert (Neustart erforderlich) +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for EnableJavaConsole in SOFTWARE\Microsoft\Java VM
    ''' </summary>
    ''' <value>true = DefaultValue</value>
    ''' <remarks>
    ''' Java console enabled (requires restart)<br/>
    ''' Java-Konsole aktiviert (Neustart erforderlich)<br/>
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Microsoft_VM_EnableJavaConsole() As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Java VM"
            m_KEY = "EnableJavaConsole"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = Nothing
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If m_GETValue Is Nothing Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\JAVA_VM\CONSOLE", "DefaultValue", _RemoteMachine)
                    If m_GETValue Is Nothing Then
                        Dim ex As New Exception("RegKey and DefaultValue is not available")
                        Throw ex
                    End If
                End If
                'Check if is aktivate or deactivated
                If TypeOf m_GETValue Is System.Int32 Then
                    If m_GETValue = 1 Then
                        m_RETURN = True
                    Else
                        m_RETURN = False
                    End If
                Else
                    If checkBytes(m_GETValue, cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\JAVA_VM\CONSOLE", "CheckedValue", _RemoteMachine)) = True Then
                        m_RETURN = True
                    Else
                        m_RETURN = False
                    End If
                End If
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get
        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Java VM"
            m_KEY = "EnableJavaConsole"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\JAVA_VM\CONSOLE", "CheckedValue", _RemoteMachine)
                Else
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\JAVA_VM\CONSOLE", "UncheckedValue", _RemoteMachine)
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Java logging enabled +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Java-Protokollierung aktiviert +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for EnableJavaConsole in SOFTWARE\Microsoft\Java VM
    ''' </summary>
    ''' <value>true = DefaultValue</value>
    ''' <remarks>
    ''' Java logging enabled<br/>
    ''' Java-Protokollierung aktiviert<br/>
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Microsoft_VM_EnableLogging(Optional ByVal mdefault As Boolean = False) As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Java VM"
            m_KEY = "EnableLogging"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = Nothing
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If m_GETValue Is Nothing Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\JAVA_VM\LOGGING", "DefaultValue", _RemoteMachine)
                    If m_GETValue Is Nothing Then
                        Dim ex As New Exception("RegKey and DefaultValue is not available")
                        Throw ex
                    End If
                End If
                'Check if is aktivate or deactivated
                If TypeOf m_GETValue Is System.Int32 Then
                    If m_GETValue = 1 Then
                        m_RETURN = True
                    Else
                        m_RETURN = False
                    End If
                Else
                    If checkBytes(m_GETValue, cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\JAVA_VM\LOGGING", "CheckedValue", _RemoteMachine)) = True Then
                        m_RETURN = True
                    Else
                        m_RETURN = False
                    End If
                End If
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get
        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Java VM"
            m_KEY = "EnableLogging"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\JAVA_VM\LOGGING", "CheckedValue", _RemoteMachine)
                Else
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\JAVA_VM\LOGGING", "UncheckedValue", _RemoteMachine)
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' **********************************************************************************************************************************
    '' ****************************************************** Multimedia ****************************************************************
    '' **********************************************************************************************************************************

    '' +++++++++++++ Play animations in web pages ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Animation in Webseiten wiedergeben ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for Play_Animations in SOFTWARE\Microsoft\Internet Explorer\Main
    ''' </summary>
    ''' <value>true = DefaultValue</value>
    ''' <remarks>
    ''' Play animations in web pages<br/>
    ''' Animation in Webseiten wiedergeben<br/>
    ''' yes = true<br/>
    ''' no = false 
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Multimedia_Play_Animations(Optional ByVal mdefault As Boolean = False) As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "Play_Animations"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = Nothing : If mdefault = False Then m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If m_GETValue Is Nothing Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\MULTIMEDIA\ANIMAT", "DefaultValue", _RemoteMachine)
                    If m_GETValue Is Nothing Then
                        Dim ex As New Exception("RegKey and DefaultValue is not available")
                        Throw ex
                    End If
                End If
                'Check if is aktivate or deactivated
                Try
                    If m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\MULTIMEDIA\ANIMAT", "CheckedValue", _RemoteMachine) Then
                        m_RETURN = True
                    Else
                        m_RETURN = False
                    End If
                Catch ex As Exception
                    Throw ex
                End Try
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get
        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "Play_Animations"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\MULTIMEDIA\ANIMAT", "CheckedValue", _RemoteMachine)
                Else
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\MULTIMEDIA\ANIMAT", "UncheckedValue", _RemoteMachine)
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' **********************************************************************************************************************************
    '' ****************************************************** Multimedia ****************************************************************
    '' **********************************************************************************************************************************

    '' +++++++++++++ Enable Picture Toolbar ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Bildsymbolleiste aktivieren (Neustart erforderlich) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for Enable_MyPics_Hoverbar in SOFTWARE\Microsoft\Internet Explorer\Main
    ''' </summary>
    ''' <value>true = DefaultValue</value>
    ''' <remarks>
    ''' Enable Picture Toolbar<br/>
    ''' Bildsymbolleiste aktivieren (Neustart erforderlich)<br/>
    ''' yes = true<br/>
    ''' no = false 
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Multimedia_Enable_MyPics_Hoverbar(Optional ByVal mdefault As Boolean = False) As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "Enable_MyPics_Hoverbar"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = Nothing : If mdefault = False Then m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If m_GETValue Is Nothing Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\MULTIMEDIA\MYPICS", "DefaultValue", _RemoteMachine)
                    If m_GETValue Is Nothing Then
                        Dim ex As New Exception("RegKey and DefaultValue is not available")
                        Throw ex
                    End If
                End If
                'Check if is aktivate or deactivated
                Try
                    If m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\MULTIMEDIA\MYPICS", "CheckedValue", _RemoteMachine) Then
                        m_RETURN = True
                    Else
                        m_RETURN = False
                    End If
                Catch ex As Exception
                    Throw ex
                End Try
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get
        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "Enable_MyPics_Hoverbar"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\MULTIMEDIA\MYPICS", "CheckedValue", _RemoteMachine)
                Else
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\MULTIMEDIA\MYPICS", "UncheckedValue", _RemoteMachine)
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Enable Automatic Image Resizing ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Automatische Bildgrößenanpassung aktivieren ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for Enable AutoImageResize in SOFTWARE\Microsoft\Internet Explorer\Main
    ''' </summary>
    ''' <value>true = DefaultValue</value>
    ''' <remarks>
    ''' Enable Automatic Image Resizing<br/>
    ''' Automatische Bildgrößenanpassung aktivieren<br/>
    ''' yes = true<br/>
    ''' no = false 
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Multimedia_Enable_AutoImageResize(Optional ByVal mdefault As Boolean = False) As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "Enable AutoImageResize"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = Nothing : If mdefault = False Then m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If m_GETValue Is Nothing Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\MULTIMEDIA\AUTOIMAGERESIZE", "DefaultValue", _RemoteMachine)
                    If m_GETValue Is Nothing Then
                        Dim ex As New Exception("RegKey and DefaultValue is not available")
                        Throw ex
                    End If
                End If
                'Check if is aktivate or deactivated
                Try
                    If m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\MULTIMEDIA\AUTOIMAGERESIZE", "CheckedValue", _RemoteMachine) Then
                        m_RETURN = True
                    Else
                        m_RETURN = False
                    End If
                Catch ex As Exception
                    Throw ex
                End Try
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get
        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "Enable AutoImageResize"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\MULTIMEDIA\AUTOIMAGERESIZE", "CheckedValue", _RemoteMachine)
                Else
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\MULTIMEDIA\AUTOIMAGERESIZE", "UncheckedValue", _RemoteMachine)
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Show pictures ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Bilder anzeigen ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for Display Inline Images in SOFTWARE\Microsoft\Internet Explorer\Main
    ''' </summary>
    ''' <value>true = DefaultValue</value>
    ''' <remarks>
    ''' Show pictures<br/>
    ''' Bilder anzeigen <br/>
    ''' yes = true<br/>
    ''' no = false 
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Multimedia_Display_Inline_Images(Optional ByVal mdefault As Boolean = False) As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "Display Inline Images"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = Nothing : If mdefault = False Then m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If m_GETValue Is Nothing Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\MULTIMEDIA\PICTS", "DefaultValue", _RemoteMachine)
                    If m_GETValue Is Nothing Then
                        Dim ex As New Exception("RegKey and DefaultValue is not available")
                        Throw ex
                    End If
                End If
                'Check if is aktivate or deactivated
                Try
                    If m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\MULTIMEDIA\PICTS", "CheckedValue", _RemoteMachine) Then
                        m_RETURN = True
                    Else
                        m_RETURN = False
                    End If
                Catch ex As Exception
                    Throw ex
                End Try
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get
        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "Display Inline Images"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\MULTIMEDIA\PICTS", "CheckedValue", _RemoteMachine)
                Else
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\MULTIMEDIA\PICTS", "UncheckedValue", _RemoteMachine)
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Smart image dithering ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Optimierten Bildlauf verwenden +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for SmartDithering in SOFTWARE\Microsoft\Internet Explorer
    ''' </summary>
    ''' <value>true = DefaultValue</value>
    ''' <remarks>
    ''' Smart image dithering<br/>
    ''' Optimierten Bildlauf verwenden<br/>
    ''' 1 = true<br/>
    ''' 0 = false
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Multimedia_SmartDithering(Optional ByVal mdefault As Boolean = False) As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer"
            m_KEY = "SmartDithering"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = Nothing : If mdefault = False Then m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If m_GETValue Is Nothing Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\MULTIMEDIA\SMART_DITHERING", "DefaultValue", _RemoteMachine)
                    If m_GETValue Is Nothing Then
                        Dim ex As New Exception("RegKey and DefaultValue is not available")
                        Throw ex
                    End If
                End If
                'Check if is aktivate or deactivated
                Try
                    If m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\MULTIMEDIA\SMART_DITHERING", "CheckedValue", _RemoteMachine) Then
                        m_RETURN = True
                    Else
                        m_RETURN = False
                    End If
                Catch ex As Exception
                    Throw ex
                End Try
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get
        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer"
            m_KEY = "SmartDithering"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\MULTIMEDIA\SMART_DITHERING", "CheckedValue", _RemoteMachine)
                Else
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\MULTIMEDIA\SMART_DITHERING", "UncheckedValue", _RemoteMachine)
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Show image download placeholders ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Platzhalter für den Bilderdownload anzeigen +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for Show image placeholders in SOFTWARE\Microsoft\Internet Explorer\Main
    ''' </summary>
    ''' <value>true = DefaultValue</value>
    ''' <remarks>
    ''' Show image download placeholders <br/>
    ''' Platzhalter für den Bilderdownload anzeigen<br/>
    ''' 1 = true<br/>
    ''' 0 = false 
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Multimedia_Show_image_placeholders(Optional ByVal mdefault As Boolean = False) As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "Show image placeholders"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = Nothing : If mdefault = False Then m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If m_GETValue Is Nothing Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\MULTIMEDIA\PLACEHOLDERS", "DefaultValue", _RemoteMachine)
                    If m_GETValue Is Nothing Then
                        Dim ex As New Exception("RegKey and DefaultValue is not available")
                        Throw ex
                    End If
                End If
                'Check if is aktivate or deactivated
                Try
                    If m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\MULTIMEDIA\PLACEHOLDERS", "CheckedValue", _RemoteMachine) Then
                        m_RETURN = True
                    Else
                        m_RETURN = False
                    End If
                Catch ex As Exception
                    Throw ex
                End Try
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get
        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "Show image placeholders"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\MULTIMEDIA\PLACEHOLDERS", "CheckedValue", _RemoteMachine)
                Else
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\MULTIMEDIA\PLACEHOLDERS", "UncheckedValue", _RemoteMachine)
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Play sounds in web pages ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Sound in Webseiten wiedergeben ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for Play_Background_Sounds in SOFTWARE\Microsoft\Internet Explorer\Main
    ''' </summary>
    ''' <value>true = DefaultValue</value>
    ''' <remarks>
    ''' Play sounds in web pages<br/>
    ''' Sound in Webseiten wiedergeben<br/>
    ''' yes = true<br/>
    ''' no = false 
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Multimedia_Play_Background_Sounds(Optional ByVal mdefault As Boolean = False) As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "Play_Background_Sounds"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = Nothing : If mdefault = False Then m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If m_GETValue Is Nothing Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\MULTIMEDIA\SOUNDS", "DefaultValue", _RemoteMachine)
                    If m_GETValue Is Nothing Then
                        Dim ex As New Exception("RegKey and DefaultValue is not available")
                        Throw ex
                    End If
                End If
                'Check if is aktivate or deactivated
                Try
                    If m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\MULTIMEDIA\SOUNDS", "CheckedValue", _RemoteMachine) Then
                        m_RETURN = True
                    Else
                        m_RETURN = False
                    End If
                Catch ex As Exception
                    Throw ex
                End Try
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get
        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "Play_Background_Sounds"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\MULTIMEDIA\SOUNDS", "CheckedValue", _RemoteMachine)
                Else
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\MULTIMEDIA\SOUNDS", "UncheckedValue", _RemoteMachine)
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Play videos in web pages +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Videos in Webseiten wiedergeben ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for Display Inline Videos in SOFTWARE\Microsoft\Internet Explorer\Main
    ''' </summary>
    ''' <value>true = DefaultValue</value>
    ''' <remarks>
    ''' Play videos in web pages<br/>
    ''' Videos in Webseiten wiedergeben<br/>
    ''' yes = true<br/>
    ''' no = false 
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Multimedia_Display_Inline_Videos(Optional ByVal mdefault As Boolean = False) As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "Display Inline Videos"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = Nothing : If mdefault = False Then m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If m_GETValue Is Nothing Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\MULTIMEDIA\VIDEOS", "DefaultValue", _RemoteMachine)
                    If m_GETValue Is Nothing Then
                        Dim ex As New Exception("RegKey and DefaultValue is not available")
                        Throw ex
                    End If
                End If
                'Check if is aktivate or deactivated
                Try
                    If m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\MULTIMEDIA\VIDEOS", "CheckedValue", _RemoteMachine) Then
                        m_RETURN = True
                    Else
                        m_RETURN = False
                    End If
                Catch ex As Exception
                    Throw ex
                End Try
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get
        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "Display Inline Videos"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\MULTIMEDIA\VIDEOS", "CheckedValue", _RemoteMachine)
                Else
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\MULTIMEDIA\VIDEOS", "UncheckedValue", _RemoteMachine)
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' **********************************************************************************************************************************
    '' ****************************************************** Security ******************************************************************
    '' **********************************************************************************************************************************

    '' +++++++++++++ Check for server certificate revocation (requires restart) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Auf zurückgezogene Serverzertifikate überprüfen (Neustart erforderlich) +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for CertificateRevocation in SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings
    ''' </summary>
    ''' <value>true = DefaultValue</value>
    ''' <remarks>
    ''' Check for server certificate revocation (requires restart)<br/>
    ''' Auf zurückgezogene Serverzertifikate überprüfen (Neustart erforderlich)<br/>
    ''' 1 = true<br/>
    ''' 0 = false
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Security_CertificateRevocation(Optional ByVal mdefault As Boolean = False) As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings"
            m_KEY = "CertificateRevocation"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = Nothing : If mdefault = False Then m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If m_GETValue Is Nothing Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\CRYPTO\SSLREV", "DefaultValue", _RemoteMachine)
                    If m_GETValue Is Nothing Then
                        Dim ex As New Exception("RegKey and DefaultValue is not available")
                        Throw ex
                    End If
                End If
                'Check if is aktivate or deactivated
                Try
                    If m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\CRYPTO\SSLREV", "CheckedValue", _RemoteMachine) Then
                        m_RETURN = True
                    Else
                        m_RETURN = False
                    End If
                Catch ex As Exception
                    Throw ex
                End Try
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get
        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings"
            m_KEY = "CertificateRevocation"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\CRYPTO\SSLREV", "CheckedValue", _RemoteMachine)
                Else
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\CRYPTO\SSLREV", "UncheckedValue", _RemoteMachine)
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Check for publisher's certificate revocation ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Auf zurückgezogene Zertifikate von Herausgebern überprüfen  +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for State in SOFTWARE\Microsoft\Windows\CurrentVersion\WinTrust\Trust Providers\Software Publishing
    ''' </summary>
    ''' <value>true = DefaultValue</value>
    ''' <remarks>
    ''' Check for publisher's certificate revocation<br/>
    ''' Auf zurückgezogene Zertifikate von Herausgebern überprüfen <br/>
    ''' 23c00  = true<br/>
    ''' 23e00 = false
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Security_State(Optional ByVal mdefault As Boolean = False) As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Windows\CurrentVersion\WinTrust\Trust Providers\Software Publishing"
            m_KEY = "State"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = Nothing : If mdefault = False Then m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If m_GETValue Is Nothing Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\CRYPTO\CERTREV", "DefaultValue", _RemoteMachine)
                    If m_GETValue Is Nothing Then
                        Dim ex As New Exception("RegKey and DefaultValue is not available")
                        Throw ex
                    End If
                End If
                'Check if is aktivate or deactivated
                Try
                    If m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\CRYPTO\CERTREV", "CheckedValue", _RemoteMachine) Then
                        m_RETURN = True
                    Else
                        m_RETURN = False
                    End If
                Catch ex As Exception
                    Throw ex
                End Try
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get
        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Windows\CurrentVersion\WinTrust\Trust Providers\Software Publishing"
            m_KEY = "State"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\CRYPTO\CERTREV", "CheckedValue", _RemoteMachine)
                Else
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\CRYPTO\CERTREV", "UncheckedValue", _RemoteMachine)
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Warn about invalid site certificates ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Bei ungültigen Sitezertifikaten warnen  +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for WarnonBadCertRecving in SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings
    ''' </summary>
    ''' <value>true = DefaultValue</value>
    ''' <remarks>
    ''' Warn about invalid site certificates<br/>
    ''' Bei ungültigen Sitezertifikaten warnen <br/>
    ''' 1 = true<br/>
    ''' 0 = false
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Security_WarnonBadCertRecving(Optional ByVal mdefault As Boolean = False) As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings"
            m_KEY = "WarnonBadCertRecving"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = Nothing : If mdefault = False Then m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If m_GETValue Is Nothing Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\CRYPTO\SITECERT", "DefaultValue", _RemoteMachine)
                    If m_GETValue Is Nothing Then
                        Dim ex As New Exception("RegKey and DefaultValue is not available")
                        Throw ex
                    End If
                End If
                'Check if is aktivate or deactivated
                Try
                    If m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\CRYPTO\SITECERT", "CheckedValue", _RemoteMachine) Then
                        m_RETURN = True
                    Else
                        m_RETURN = False
                    End If
                Catch ex As Exception
                    Throw ex
                End Try
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get
        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings"
            m_KEY = "WarnonBadCertRecving"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\CRYPTO\SITECERT", "CheckedValue", _RemoteMachine)
                Else
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\CRYPTO\SITECERT", "UncheckedValue", _RemoteMachine)
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Warn if changing between secure and not secure mode +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Beim Wechsel zwischen sicheren und nicht sicheren Modus warnen  +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for WarnonZoneCrossing in SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings
    ''' </summary>
    ''' <value>true = DefaultValue</value>
    ''' <remarks>
    ''' Warn if changing between secure and not secure mode<br/>
    ''' Beim Wechsel zwischen sicheren und nicht sicheren Modus warnen<br/>
    ''' 1 = true<br/>
    ''' 0 = false
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Security_WarnonZoneCrossing(Optional ByVal mdefault As Boolean = False) As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings"
            m_KEY = "WarnonZoneCrossing"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = Nothing : If mdefault = False Then m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If m_GETValue Is Nothing Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\CRYPTO\SECURE", "DefaultValue", _RemoteMachine)
                    If m_GETValue Is Nothing Then
                        Dim ex As New Exception("RegKey and DefaultValue is not available")
                        Throw ex
                    End If
                End If
                'Check if is aktivate or deactivated
                Try
                    If m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\CRYPTO\SECURE", "CheckedValue", _RemoteMachine) Then
                        m_RETURN = True
                    Else
                        m_RETURN = False
                    End If
                Catch ex As Exception
                    Throw ex
                End Try
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get
        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings"
            m_KEY = "WarnonZoneCrossing"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\CRYPTO\SECURE", "CheckedValue", _RemoteMachine)
                Else
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\CRYPTO\SECURE", "UncheckedValue", _RemoteMachine)
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Enable Integrated Windows Authentication (requires restart) +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Integrierte Windows-Authentifizierung aktivieren (Neustart erforderlich)  +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for EnableNegotiate in SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings
    ''' </summary>
    ''' <value>true = DefaultValue</value>
    ''' <remarks>
    ''' Enable Integrated Windows Authentication (requires restart)<br/>
    ''' Integrierte Windows-Authentifizierung aktivieren (Neustart erforderlich)<br/>
    ''' 1 = true<br/>
    ''' 0 = false
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Security_EnableNegotiate(Optional ByVal mdefault As Boolean = False) As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings"
            m_KEY = "EnableNegotiate"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = Nothing : If mdefault = False Then m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If m_GETValue Is Nothing Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\CRYPTO\NEGOTIATE", "DefaultValue", _RemoteMachine)
                    If m_GETValue Is Nothing Then
                        Dim ex As New Exception("RegKey and DefaultValue is not available")
                        Throw ex
                    End If
                End If
                'Check if is aktivate or deactivated
                Try
                    If m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\CRYPTO\NEGOTIATE", "CheckedValue", _RemoteMachine) Then
                        m_RETURN = True
                    Else
                        m_RETURN = False
                    End If
                Catch ex As Exception
                    Throw ex
                End Try
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get
        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings"
            m_KEY = "EnableNegotiate"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\CRYPTO\NEGOTIATE", "CheckedValue", _RemoteMachine)
                Else
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\CRYPTO\NEGOTIATE", "UncheckedValue", _RemoteMachine)
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Empty Temporary Internet Files folder when browser is closed +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Leeren des Ordners „Temporary Internet Files“ beim Schließen des Browsers  +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for Persistent in SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\Cache
    ''' </summary>
    ''' <value>true = DefaultValue</value>
    ''' <remarks>
    ''' Empty Temporary Internet Files folder when browser is closed<br/>
    ''' Leeren des Ordners „Temporary Internet Files“ beim Schließen des Browsers<br/>
    ''' 0 = true<br/>
    ''' 1 = false 
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Security_Persistent(Optional ByVal mdefault As Boolean = False) As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\Cache"
            m_KEY = "Persistent"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = Nothing : If mdefault = False Then m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If m_GETValue Is Nothing Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\CRYPTO\CACHE_FLUSH", "DefaultValue", _RemoteMachine)
                    If m_GETValue Is Nothing Then
                        Dim ex As New Exception("RegKey and DefaultValue is not available")
                        Throw ex
                    End If
                End If
                'Check if is aktivate or deactivated
                Try
                    If m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\CRYPTO\CACHE_FLUSH", "CheckedValue", _RemoteMachine) Then
                        m_RETURN = True
                    Else
                        m_RETURN = False
                    End If
                Catch ex As Exception
                    Throw ex
                End Try
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get
        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\Cache"
            m_KEY = "Persistent"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\CRYPTO\CACHE_FLUSH", "CheckedValue", _RemoteMachine)
                Else
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\CRYPTO\CACHE_FLUSH", "UncheckedValue", _RemoteMachine)
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Enable Profile Assistant +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Profil-Assistent aktivieren  +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for Enabled in Software\Microsoft\Internet Explorer\Security\P3Global
    ''' </summary>
    ''' <value>true = DefaultValue</value>
    ''' <remarks>
    ''' Enable Profile Assistant<br/>
    ''' Profil-Assistent aktivieren<br/>
    ''' 1 = true<br/>
    ''' 0 = false
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Security_Enabled(Optional ByVal mdefault As Boolean = False) As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Microsoft\Internet Explorer\Security\P3Global"
            m_KEY = "Enabled"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = Nothing : If mdefault = False Then m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If m_GETValue Is Nothing Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\CRYPTO\P3PROFILE", "DefaultValue", _RemoteMachine)
                    If m_GETValue Is Nothing Then
                        Dim ex As New Exception("RegKey and DefaultValue is not available")
                        Throw ex
                    End If
                End If
                'Check if is aktivate or deactivated
                Try
                    If m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\CRYPTO\P3PROFILE", "CheckedValue", _RemoteMachine) Then
                        m_RETURN = True
                    Else
                        m_RETURN = False
                    End If
                Catch ex As Exception
                    Throw ex
                End Try
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get
        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Microsoft\Internet Explorer\Security\P3Global"
            m_KEY = "Enabled"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\CRYPTO\P3PROFILE", "CheckedValue", _RemoteMachine)
                Else
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\CRYPTO\P3PROFILE", "UncheckedValue", _RemoteMachine)
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Check for signatures on downloaded programs ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Signaturen von übertragenen Programmen überprüfen ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for CheckExeSignatures in SOFTWARE\Microsoft\Internet Explorer\Download
    ''' </summary>
    ''' <value>true = DefaultValue</value>
    ''' <remarks>
    ''' Check for signatures on downloaded programs<br/>
    ''' Signaturen von übertragenen Programmen überprüfen<br/>
    ''' yes = true<br/>
    ''' no = false
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Security_CheckExeSignatures(Optional ByVal mdefault As Boolean = False) As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Download"
            m_KEY = "CheckExeSignatures"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = Nothing : If mdefault = False Then m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If m_GETValue Is Nothing Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\CRYPTO\CHECK_SIG", "DefaultValue", _RemoteMachine)
                    If m_GETValue Is Nothing Then
                        Dim ex As New Exception("RegKey and DefaultValue is not available")
                        Throw ex
                    End If
                End If
                'Check if is aktivate or deactivated
                Try
                    If m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\CRYPTO\CHECK_SIG", "CheckedValue", _RemoteMachine) Then
                        m_RETURN = True
                    Else
                        m_RETURN = False
                    End If
                Catch ex As Exception
                    Throw ex
                End Try
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get
        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Download"
            m_KEY = "CheckExeSignatures"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\CRYPTO\CHECK_SIG", "CheckedValue", _RemoteMachine)
                Else
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\CRYPTO\CHECK_SIG", "UncheckedValue", _RemoteMachine)
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Use SSL 2.0 Use SSL 3.0 Use TLS 1.0 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
    '' +++++++++++++ SSL 2.0 verwenden SSL 3.0 verwenden TLS 1.0 verwenden  +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for SecureProtocols in SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings
    ''' </summary>
    ''' <value>true = DefaultValue</value>
    ''' <remarks>
    ''' Use SSL 2.0 Use SSL 3.0 Use TLS 1.0<br/>
    ''' SSL 2.0 verwenden SSL 3.0 verwenden TLS 1.0 verwenden <br/>
    ''' 0 = alles aus                   Übergabe : 0 <br/>
    ''' 8 = SSL 2.0 an                  Übergabe : 8 <br/>
    ''' 20 = SSL 3.0 an                 Übergabe : 32 <br/>
    ''' 80 = TLS 1.0 verwenden          Übergabe : 128 <br/>
    ''' 28 = SSL 2.0 und SSL 3.0 an     Übergabe : 40 <br/>
    ''' 88 = SSL 2.0 und TLS 1.0 an     Übergabe : 136 <br/>
    ''' a0 = SSL 3.0 und TLS 1.0 an     Übergabe : 160 <br/>
    ''' a8 = alle an                    Übergabe : 168 
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Security_SecureProtocols(Optional ByVal mdefault As Boolean = False) As Integer
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings"
            m_KEY = "SecureProtocols"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = Nothing : If mdefault = False Then m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If m_GETValue Is Nothing Then
                    m_GETValue = 40
                End If
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_GETValue
        End Get
        Set(ByVal Value As Integer)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings"
            m_KEY = "SecureProtocols"
            m_HIVE = RegistryHive.Users
            Try
                m_GETValue = Value
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Warn if forms submittal is being redirected +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Warnen, falls Formulardaten umgelenkt werden  +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for WarnOnPostRedirect in SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings
    ''' </summary>
    ''' <value>true = DefaultValue</value>
    ''' <remarks>
    ''' Warn if forms submittal is being redirected<br/>
    ''' Warnen, falls Formulardaten umgelenkt werden<br/>
    ''' 1 = true<br/>
    ''' 0 = false
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Security_WarnOnPostRedirect(Optional ByVal mdefault As Boolean = False) As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings"
            m_KEY = "WarnOnPostRedirect"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = Nothing : If mdefault = False Then m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If m_GETValue Is Nothing Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\CRYPTO\SUBMIT", "DefaultValue", _RemoteMachine)
                    If m_GETValue Is Nothing Then
                        Dim ex As New Exception("RegKey and DefaultValue is not available")
                        Throw ex
                    End If
                End If
                'Check if is aktivate or deactivated
                Try
                    If m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\CRYPTO\SUBMIT", "CheckedValue", _RemoteMachine) Then
                        m_RETURN = True
                    Else
                        m_RETURN = False
                    End If
                Catch ex As Exception
                    Throw ex
                End Try
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get
        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings"
            m_KEY = "WarnOnPostRedirect"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\CRYPTO\SUBMIT", "CheckedValue", _RemoteMachine)
                Else
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\CRYPTO\SUBMIT", "UncheckedValue", _RemoteMachine)
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Enable save secure sites on disk +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Verschlüsselte Seiten nicht auf der Festplatte speichern  +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for DisableCachingOfSSLPages in SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings
    ''' </summary>
    ''' <value>true = DefaultValue</value>
    ''' <remarks>
    ''' Enable save secure sites on disk<br/>
    ''' Verschlüsselte Seiten nicht auf der Festplatte speichern<br/>
    ''' 1 = true<br/>
    ''' 0 = false
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Security_DisableCachingOfSSLPages(Optional ByVal mdefault As Boolean = False) As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings"
            m_KEY = "DisableCachingOfSSLPages"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = Nothing : If mdefault = False Then m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If m_GETValue Is Nothing Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\CRYPTO\CACHE_PAGES", "DefaultValue", _RemoteMachine)
                    If m_GETValue Is Nothing Then
                        Dim ex As New Exception("RegKey and DefaultValue is not available")
                        Throw ex
                    End If
                End If
                'Check if is aktivate or deactivated
                Try
                    If m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\CRYPTO\CACHE_PAGES", "CheckedValue", _RemoteMachine) Then
                        m_RETURN = True
                    Else
                        m_RETURN = False
                    End If
                Catch ex As Exception
                    Throw ex
                End Try
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get
        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings"
            m_KEY = "DisableCachingOfSSLPages"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\CRYPTO\CACHE_PAGES", "CheckedValue", _RemoteMachine)
                Else
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\CRYPTO\CACHE_PAGES", "UncheckedValue", _RemoteMachine)
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Enable execution of active contents in files on the local computer +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Ausführung aktiver Inhalte in der Zone des lokalen Computers zulassen  +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for iexplore.exe in SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_LOCALMACHINE_LOCKDOWN
    ''' </summary>
    ''' <value>true = DefaultValue</value>
    ''' <remarks>
    ''' Enable execution of active contents in files on the local computer<br/>
    ''' Ausführung aktiver Inhalte in der Zone des lokalen Computers zulassen<br/>
    ''' 0 = true<br/>
    ''' 1 = false
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Security_IExplorer(Optional ByVal mdefault As Boolean = False) As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_LOCALMACHINE_LOCKDOWN"
            m_KEY = "iexplore.exe"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = Nothing : If mdefault = False Then m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If m_GETValue Is Nothing Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\CRYPTO\LMZ_LOCKDOWN", "DefaultValue", _RemoteMachine)
                    If m_GETValue Is Nothing Then
                        Dim ex As New Exception("RegKey and DefaultValue is not available")
                        Throw ex
                    End If
                End If
                'Check if is aktivate or deactivated
                Try
                    If m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\CRYPTO\LMZ_LOCKDOWN", "CheckedValue", _RemoteMachine) Then
                        m_RETURN = True
                    Else
                        m_RETURN = False
                    End If
                Catch ex As Exception
                    Throw ex
                End Try
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get
        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_LOCALMACHINE_LOCKDOWN"
            m_KEY = "iexplore.exe"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\CRYPTO\LMZ_LOCKDOWN", "CheckedValue", _RemoteMachine)
                Else
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\CRYPTO\LMZ_LOCKDOWN", "UncheckedValue", _RemoteMachine)
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Enable execution of active contents on CDs on the local computer +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Ausführung aktiver Inhalte von CDs auf dem lokalen Computer zulassen  +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for LOCALMACHINE_CD_UNLOCK in SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_LOCALMACHINE_LOCKDOWN
    ''' </summary>
    ''' <value>true = DefaultValue</value>
    ''' <remarks>
    ''' Enable execution of active contents on CDs on the local computer<br/>
    ''' Ausführung aktiver Inhalte von CDs auf dem lokalen Computer zulassen<br/>
    ''' 1 = true<br/>
    ''' 0 = false
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Security_LOCALMACHINE_CD_UNLOCK(Optional ByVal mdefault As Boolean = False) As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_LOCALMACHINE_LOCKDOWN\Settings"
            m_KEY = "LOCALMACHINE_CD_UNLOCK"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = Nothing : If mdefault = False Then m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If m_GETValue Is Nothing Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\CRYPTO\CD_LMZ_LOCKDOWN", "DefaultValue", _RemoteMachine)
                    If m_GETValue Is Nothing Then
                        Dim ex As New Exception("RegKey and DefaultValue is not available")
                        Throw ex
                    End If
                End If
                'Check if is aktivate or deactivated
                Try
                    If m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\CRYPTO\CD_LMZ_LOCKDOWN", "CheckedValue", _RemoteMachine) Then
                        m_RETURN = True
                    Else
                        m_RETURN = False
                    End If
                Catch ex As Exception
                    Throw ex
                End Try
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get
        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_LOCALMACHINE_LOCKDOWN\Settings"
            m_KEY = "LOCALMACHINE_CD_UNLOCK"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\CRYPTO\CD_LMZ_LOCKDOWN", "CheckedValue", _RemoteMachine)
                Else
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\CRYPTO\CD_LMZ_LOCKDOWN", "UncheckedValue", _RemoteMachine)
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' +++++++++++++ Enable installation and / or excecution of Software, even if the signature is invalid +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Installation bzw. ausführung von Software zulassen, auch wenn die Signatur ungültig ist  +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for RunInvalidSignatures in SOFTWARE\Microsoft\Internet Explorer\Download
    ''' </summary>
    ''' <value>true = DefaultValue</value>
    ''' <remarks>
    ''' Enable installation and / or excecution of Software, even if the signature is invalid<br/>
    ''' Installation bzw. ausführung von Software zulassen, auch wenn die Signatur ungültig ist<br/>
    ''' 1 = true<br/>
    ''' 0 = false
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_Security_RunInvalidSignatures(Optional ByVal mdefault As Boolean = False) As Boolean
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Download"
            m_KEY = "RunInvalidSignatures"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = Nothing : If mdefault = False Then m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If m_GETValue Is Nothing Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\CRYPTO\RUN_INV_SIG", "DefaultValue", _RemoteMachine)
                    If m_GETValue Is Nothing Then
                        Dim ex As New Exception("RegKey and DefaultValue is not available")
                        Throw ex
                    End If
                End If
                'Check if is aktivate or deactivated
                Try
                    If m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\CRYPTO\RUN_INV_SIG", "CheckedValue", _RemoteMachine) Then
                        m_RETURN = True
                    Else
                        m_RETURN = False
                    End If
                Catch ex As Exception
                    Throw ex
                End Try
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_RETURN
        End Get
        Set(ByVal Value As Boolean)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Download"
            m_KEY = "RunInvalidSignatures"
            m_HIVE = RegistryHive.Users
            Try
                If Value = True Then
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\CRYPTO\RUN_INV_SIG", "CheckedValue", _RemoteMachine)
                Else
                    m_GETValue = cls_Remote.Read_RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer\AdvancedOptions\CRYPTO\RUN_INV_SIG", "UncheckedValue", _RemoteMachine)
                End If
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' **********************************************************************************************************************************
    '' ****************************************************** Search in Address bar *****************************************************
    '' **********************************************************************************************************************************

    '' +++++++++++++ Search from the Address bar +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Suchen in Adressleiste  +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for AutoSearch in SOFTWARE\Microsoft\Internet Explorer\Main
    ''' </summary>
    ''' <value></value>
    ''' <remarks>
    ''' Search from the Address bar<br/>
    ''' Suchen in Adressleiste <br/>
    ''' 6 = Ergebnisse anzeigen und zur wahrscheinlichsten Site wechseln <br/>
    ''' 4 = Ergebnisse im Hauptfenster anzeigen <br/>
    ''' 0 = Nicht in Adressleiste suchen <br/>
    ''' 5 = Zur wahrscheinlichsten Site wechseln
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_AddressBar_AutoSearch(Optional ByVal mdefault As Boolean = False) As Integer
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "AutoSearch"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = Nothing : If mdefault = False Then m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If m_GETValue Is Nothing Then
                    m_GETValue = 5
                End If
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_GETValue
        End Get
        Set(ByVal Value As Integer)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "AutoSearch"
            m_HIVE = RegistryHive.Users
            Try
                m_GETValue = Value
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' **********************************************************************************************************************************
    '' ****************************************************** General *******************************************************************
    '' **********************************************************************************************************************************

    '' +++++++++++++ Home page +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Startseite  +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for Start Page in SOFTWARE\Microsoft\Internet Explorer\Main
    ''' </summary>
    ''' <value>as String</value>
    ''' <remarks>
    ''' (Startseite)
    ''' Get or Set an String
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	15.06.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_General_Home_Page() As Integer
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "Start Page"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_GETValue
        End Get
        Set(ByVal Value As Integer)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "SOFTWARE\Microsoft\Internet Explorer\Main"
            m_KEY = "Start Page"
            m_HIVE = RegistryHive.Users
            Try
                m_GETValue = Value
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' **********************************************************************************************************************************
    '' ****************************************************** General *******************************************************************
    '' **********************************************************************************************************************************

    '' +++++++++++++ Shell Folders Cache +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Shell Folders Cache +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for Cache in Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders
    ''' </summary>
    ''' <value>as String</value>
    ''' <remarks>
    ''' (Startseite)
    ''' Get or Set an String
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	02.08.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_ShellFolders_Cache() As String
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders"
            m_KEY = "Cache"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_GETValue
        End Get
        Set(ByVal Value As String)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders"
            m_KEY = "Cache"
            m_HIVE = RegistryHive.Users
            Try
                m_GETValue = Value
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' **********************************************************************************************************************************
    '' ****************************************************** General *******************************************************************
    '' **********************************************************************************************************************************

    '' +++++++++++++ Shell Folders Cookies +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Shell Folders Cookies +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for Cookies in Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders
    ''' </summary>
    ''' <value>as String</value>
    ''' <remarks>
    ''' (Startseite)
    ''' Get or Set an String
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	02.08.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_ShellFolders_Cookies() As String
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders"
            m_KEY = "Cookies"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_GETValue
        End Get
        Set(ByVal Value As String)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders"
            m_KEY = "Cookies"
            m_HIVE = RegistryHive.Users
            Try
                m_GETValue = Value
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' **********************************************************************************************************************************
    '' ****************************************************** General *******************************************************************
    '' **********************************************************************************************************************************

    '' +++++++++++++ Shell Folders Favorites +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Shell Folders Favorites +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for Favorites in Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders
    ''' </summary>
    ''' <value>as String</value>
    ''' <remarks>
    ''' (Startseite)
    ''' Get or Set an String
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	02.08.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_ShellFolders_Favorites() As String
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders"
            m_KEY = "Favorites"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_GETValue
        End Get
        Set(ByVal Value As String)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders"
            m_KEY = "Favorites"
            m_HIVE = RegistryHive.Users
            Try
                m_GETValue = Value
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' **********************************************************************************************************************************
    '' ****************************************************** General *******************************************************************
    '' **********************************************************************************************************************************

    '' +++++++++++++ Shell Folders History +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Shell Folders History +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for History in Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders
    ''' </summary>
    ''' <value>as String</value>
    ''' <remarks>
    ''' (Startseite)
    ''' Get or Set an String
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	02.08.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_ShellFolders_History() As String
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders"
            m_KEY = "History"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_GETValue
        End Get
        Set(ByVal Value As String)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders"
            m_KEY = "History"
            m_HIVE = RegistryHive.Users
            Try
                m_GETValue = Value
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' **********************************************************************************************************************************
    '' ****************************************************** General *******************************************************************
    '' **********************************************************************************************************************************

    '' +++++++++++++ Shell Folders AppData +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Shell Folders AppData +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for AppData in Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders
    ''' </summary>
    ''' <value>as String</value>
    ''' <remarks>
    ''' (Startseite)
    ''' Get or Set an String
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	02.08.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_ShellFolders_AppData() As String
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders"
            m_KEY = "AppData"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_GETValue
        End Get
        Set(ByVal Value As String)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders"
            m_KEY = "AppData"
            m_HIVE = RegistryHive.Users
            Try
                m_GETValue = Value
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' **********************************************************************************************************************************
    '' ****************************************************** General *******************************************************************
    '' **********************************************************************************************************************************

    '' +++++++++++++ Shell Folders Local AppData +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Shell Folders Local AppData +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for Local AppData in Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders
    ''' </summary>
    ''' <value>as String</value>
    ''' <remarks>
    ''' (Startseite)
    ''' Get or Set an String
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	02.08.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_ShellFolders_LocalAppData() As String
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders"
            m_KEY = "Local AppData"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_GETValue
        End Get
        Set(ByVal Value As String)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders"
            m_KEY = "Local AppData"
            m_HIVE = RegistryHive.Users
            Try
                m_GETValue = Value
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' **********************************************************************************************************************************
    '' ****************************************************** General *******************************************************************
    '' **********************************************************************************************************************************

    '' +++++++++++++ Shell Folders Local Settings +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Shell Folders Local Settings +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for Local Settings in Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders
    ''' </summary>
    ''' <value>as String</value>
    ''' <remarks>
    ''' (Startseite)
    ''' Get or Set an String
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	02.08.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_ShellFolders_LocalSettings() As String
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders"
            m_KEY = "Local Settings"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_GETValue
        End Get
        Set(ByVal Value As String)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders"
            m_KEY = "Local Settings"
            m_HIVE = RegistryHive.Users
            Try
                m_GETValue = Value
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' **********************************************************************************************************************************
    '' ****************************************************** General *******************************************************************
    '' **********************************************************************************************************************************

    '' +++++++++++++ Shell Folders Desktop +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Shell Folders Desktop +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for Desktop in Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders
    ''' </summary>
    ''' <value>as String</value>
    ''' <remarks>
    ''' (Startseite)
    ''' Get or Set an String
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	02.08.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_ShellFolders_Desktop() As String
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders"
            m_KEY = "Desktop"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_GETValue
        End Get
        Set(ByVal Value As String)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders"
            m_KEY = "Desktop"
            m_HIVE = RegistryHive.Users
            Try
                m_GETValue = Value
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' **********************************************************************************************************************************
    '' ****************************************************** General *******************************************************************
    '' **********************************************************************************************************************************

    '' +++++++++++++ Shell Folders Personal +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Shell Folders Personal +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for Personal in Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders
    ''' </summary>
    ''' <value>as String</value>
    ''' <remarks>
    ''' (Startseite)
    ''' Get or Set an String
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	02.08.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_ShellFolders_Personal() As String
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders"
            m_KEY = "Personal"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_GETValue
        End Get
        Set(ByVal Value As String)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders"
            m_KEY = "Personal"
            m_HIVE = RegistryHive.Users
            Try
                m_GETValue = Value
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' **********************************************************************************************************************************
    '' ****************************************************** General *******************************************************************
    '' **********************************************************************************************************************************

    '' +++++++++++++ Shell Folders NetHood +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Shell Folders NetHood +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for NetHood in Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders
    ''' </summary>
    ''' <value>as String</value>
    ''' <remarks>
    ''' (Startseite)
    ''' Get or Set an String
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	02.08.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_ShellFolders_NetHood() As String
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders"
            m_KEY = "NetHood"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_GETValue
        End Get
        Set(ByVal Value As String)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders"
            m_KEY = "NetHood"
            m_HIVE = RegistryHive.Users
            Try
                m_GETValue = Value
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' **********************************************************************************************************************************
    '' ****************************************************** General *******************************************************************
    '' **********************************************************************************************************************************

    '' +++++++++++++ Shell Folders Start Menu +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Shell Folders Start Menu +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for Start Menu in Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders
    ''' </summary>
    ''' <value>as String</value>
    ''' <remarks>
    ''' (Startseite)
    ''' Get or Set an String
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	02.08.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_ShellFolders_StartMenu() As String
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders"
            m_KEY = "Start Menu"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_GETValue
        End Get
        Set(ByVal Value As String)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders"
            m_KEY = "Start Menu"
            m_HIVE = RegistryHive.Users
            Try
                m_GETValue = Value
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' **********************************************************************************************************************************
    '' ****************************************************** General *******************************************************************
    '' **********************************************************************************************************************************

    '' +++++++++++++ Shell Folders Programs +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Shell Folders Programs +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for Programs in Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders
    ''' </summary>
    ''' <value>as String</value>
    ''' <remarks>
    ''' (Startseite)
    ''' Get or Set an String
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	02.08.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_ShellFolders_Programs() As String
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders"
            m_KEY = "Programs"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_GETValue
        End Get
        Set(ByVal Value As String)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders"
            m_KEY = "Programs"
            m_HIVE = RegistryHive.Users
            Try
                m_GETValue = Value
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' **********************************************************************************************************************************
    '' ****************************************************** General *******************************************************************
    '' **********************************************************************************************************************************

    '' +++++++++++++ Shell Folders Startup +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Shell Folders Startup +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for Startup in Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders
    ''' </summary>
    ''' <value>as String</value>
    ''' <remarks>
    ''' (Startseite)
    ''' Get or Set an String
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	02.08.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_ShellFolders_Startup() As String
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders"
            m_KEY = "Startup"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_GETValue
        End Get
        Set(ByVal Value As String)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders"
            m_KEY = "Startup"
            m_HIVE = RegistryHive.Users
            Try
                m_GETValue = Value
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' **********************************************************************************************************************************
    '' ****************************************************** General *******************************************************************
    '' **********************************************************************************************************************************

    '' +++++++++++++ Shell Folders Administrative Tools +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Shell Folders Administrative Tools +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for Administrative Tools in Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders
    ''' </summary>
    ''' <value>as String</value>
    ''' <remarks>
    ''' (Startseite)
    ''' Get or Set an String
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	02.08.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_ShellFolders_AdministrativeTools() As String
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders"
            m_KEY = "Administrative Tools"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_GETValue
        End Get
        Set(ByVal Value As String)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders"
            m_KEY = "Administrative Tools"
            m_HIVE = RegistryHive.Users
            Try
                m_GETValue = Value
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' **********************************************************************************************************************************
    '' ****************************************************** General *******************************************************************
    '' **********************************************************************************************************************************

    '' +++++++++++++ Shell Folders Fonts +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ Shell Folders Fonts +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set the Value for Fonts in Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders
    ''' </summary>
    ''' <value>as String</value>
    ''' <remarks>
    ''' (Startseite)
    ''' Get or Set an String
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	02.08.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_ShellFolders_Fonts() As String
        Get
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders"
            m_KEY = "Fonts"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
            Catch ex As Exception
                Throw ex
            End Try
            'Return the value
            Return m_GETValue
        End Get
        Set(ByVal Value As String)
            'Define the Path, the KEY and the HIVE
            m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders"
            m_KEY = "Fonts"
            m_HIVE = RegistryHive.Users
            Try
                m_GETValue = Value
                cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
            Catch ex As Exception
                Throw ex
            End Try
        End Set
    End Property
    '' **********************************************************************************************************************************
    '' ****************************************************** General *******************************************************************
    '' **********************************************************************************************************************************

    '' +++++++++++++ IE PlugInAcrobat6 BrowserIntegration ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ IE PlugInAcrobat6 BrowserIntegration ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set/Delete the Value for IE Acrobat6 PlugIn BrowserIntegration in 
    ''' </summary>
    ''' <value>as Boolean</value>
    ''' <remarks>
    ''' (Startseite)
    ''' Get or Set an String
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	09.08.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    ''' 
    Public Property IE_BrowserIntegration_Acrobat6() As Boolean
        Get
            Dim blBrowserIntegration As Boolean = True
            'read a key
            m_PATH = "MIME\Database\Content Type\application/pdf"
            m_KEY = "CLSID"
            m_HIVE = RegistryHive.ClassesRoot
            Try
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
            Catch ex As Exception
                m_GETValue = Nothing
            End Try
            If m_GETValue Is Nothing AndAlso blBrowserIntegration = True Then
                blBrowserIntegration = False
            End If
            'read a key
            m_PATH = "MIME\Database\Content Type\application/vnd.fdf"
            m_KEY = "CLSID"
            m_HIVE = RegistryHive.ClassesRoot
            Try
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
            Catch ex As Exception
                m_GETValue = Nothing
            End Try
            If m_GETValue Is Nothing AndAlso blBrowserIntegration = True Then
                blBrowserIntegration = False
            End If
            'read a key
            m_PATH = "MIME\Database\Content Type\application/vnd.adobe.xfdf"
            m_KEY = "CLSID"
            m_HIVE = RegistryHive.ClassesRoot
            Try
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
            Catch ex As Exception
                m_GETValue = Nothing
            End Try
            If m_GETValue Is Nothing AndAlso blBrowserIntegration = True Then
                blBrowserIntegration = False
            End If
            'read a key
            m_PATH = "MIME\Database\Content Type\application/vnd.adobe.xdp+xml"
            m_KEY = "CLSID"
            m_HIVE = RegistryHive.ClassesRoot
            Try
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
            Catch ex As Exception
                m_GETValue = Nothing
            End Try
            If m_GETValue Is Nothing AndAlso blBrowserIntegration = True Then
                blBrowserIntegration = False
            End If
            'read a key
            m_PATH = "MIME\Database\Content Type\application/vnd.adobe.xfd+xml"
            m_KEY = "CLSID"
            m_HIVE = RegistryHive.ClassesRoot
            Try
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
            Catch ex As Exception
                m_GETValue = Nothing
            End Try
            If m_GETValue Is Nothing AndAlso blBrowserIntegration = True Then
                blBrowserIntegration = False
            End If
            'read a key
            m_PATH = _SIDUser & "\" & "Software\Adobe\Adobe Acrobat\6.0\Originals"
            m_KEY = "bBrowserIntegration"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
            Catch ex As Exception
                m_GETValue = Nothing
            End Try
            If Not m_GETValue Is Nothing AndAlso blBrowserIntegration = True Then
                blBrowserIntegration = False
            End If
            Return blBrowserIntegration
        End Get
        Set(ByVal Value As Boolean)
            If Value = True Then
                'enable browser plugin for adobe acrobat 6.0
                'IE Geraffel ***************************************************
                'set a key (XP SP2 Adobe Acrobat Control for ActiveX pdf.ocx   Flag=0 is active)
                m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\CurrentVersion\Ext\Settings\{CA8A9780-280D-11CF-A24D-444553540000}"
                m_KEY = "Flags"
                m_HIVE = RegistryHive.Users
                Try
                    m_GETValue = 0
                    cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
                Catch ex As Exception
                End Try
                'set a key
                m_PATH = "MIME\Database\Content Type\application/pdf"
                m_KEY = "CLSID"
                m_HIVE = RegistryHive.ClassesRoot
                Try
                    m_GETValue = "{CA8A9780-280D-11CF-A24D-444553540000}"
                    cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
                Catch ex As Exception
                End Try
                'set a key
                m_PATH = "MIME\Database\Content Type\application/vnd.fdf"
                m_KEY = "CLSID"
                m_HIVE = RegistryHive.ClassesRoot
                Try
                    m_GETValue = "CLSID" = "{CA8A9780-280D-11CF-A24D-444553540000}"
                    cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
                Catch ex As Exception
                End Try
                'set a key
                m_PATH = "MIME\Database\Content Type\application/vnd.adobe.xfdf"
                m_KEY = "CLSID"
                m_HIVE = RegistryHive.ClassesRoot
                Try
                    m_GETValue = "CLSID" = "{CA8A9780-280D-11CF-A24D-444553540000}"
                    cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
                Catch ex As Exception
                End Try
                'set a key
                m_PATH = "MIME\Database\Content Type\application/vnd.adobe.xdp+xml"
                m_KEY = "CLSID"
                m_HIVE = RegistryHive.ClassesRoot
                Try
                    m_GETValue = "CLSID" = "{CA8A9780-280D-11CF-A24D-444553540000}"
                    cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
                Catch ex As Exception
                End Try
                'set a key
                m_PATH = "MIME\Database\Content Type\application/vnd.adobe.xfd+xml"
                m_KEY = "CLSID"
                m_HIVE = RegistryHive.ClassesRoot
                Try
                    m_GETValue = "CLSID" = "{CA8A9780-280D-11CF-A24D-444553540000}"
                    cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
                Catch ex As Exception
                End Try
                'delete a key
                m_PATH = _SIDUser & "\" & "Software\Adobe\Adobe Acrobat\6.0\Originals"
                m_KEY = "bBrowserIntegration"
                m_HIVE = RegistryHive.Users
                Try
                    cls_Remote.DeleteRegistryKeyValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                Catch ex As Exception
                End Try
                'delete a key
                m_PATH = _SIDUser & "\" & "Software\Adobe\Adobe Acrobat\6.0\Originals"
                m_KEY = "bAllowByteRangeRequests"
                m_HIVE = RegistryHive.Users
                Try
                    cls_Remote.DeleteRegistryKeyValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                Catch ex As Exception
                End Try
                'delete a key
                m_PATH = _SIDUser & "\" & "Software\Adobe\Adobe Acrobat\6.0\Originals"
                m_KEY = "bBrowserCheck"
                m_HIVE = RegistryHive.Users
                Try
                    cls_Remote.DeleteRegistryKeyValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                Catch ex As Exception
                End Try
            Else
                'disable browser plugin for adobe acrobat 6.0
                'IE Geraffel ***************************************************
                'set a key (XP SP2 Adobe Acrobat Control for ActiveX pdf.ocx   Flag=0 is active)
                m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\CurrentVersion\Ext\Settings\{CA8A9780-280D-11CF-A24D-444553540000}"
                m_KEY = "Flags"
                m_HIVE = RegistryHive.Users
                Try
                    m_GETValue = 0
                    cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
                Catch ex As Exception
                End Try
                'delete a key
                m_PATH = "SOFTWARE\Microsoft\Internet Explorer\Plugins\Extension"
                m_KEY = ".pdf"
                m_HIVE = RegistryHive.LocalMachine
                Try
                    cls_Remote.DeleteRegistryKeyValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                Catch ex As Exception
                End Try
                'delete a key
                m_PATH = "SOFTWARE\Microsoft\Internet Explorer\Plugins\MIME"
                m_KEY = "application/pdf"
                m_HIVE = RegistryHive.LocalMachine
                Try
                    cls_Remote.DeleteRegistryKeyValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                Catch ex As Exception
                End Try
                '***************************************************
                'delete a key
                m_PATH = "MIME\Database\Content Type\application/pdf"
                m_KEY = "CLSID"
                m_HIVE = RegistryHive.ClassesRoot
                Try
                    cls_Remote.DeleteRegistryKeyValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                Catch ex As Exception
                End Try
                'delete a key
                m_PATH = "MIME\Database\Content Type\application/vnd.fdf"
                m_KEY = "CLSID"
                m_HIVE = RegistryHive.ClassesRoot
                Try
                    cls_Remote.DeleteRegistryKeyValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                Catch ex As Exception
                End Try
                'delete a key
                m_PATH = "MIME\Database\Content Type\application/vnd.adobe.xfdf"
                m_KEY = "CLSID"
                m_HIVE = RegistryHive.ClassesRoot
                Try
                    cls_Remote.DeleteRegistryKeyValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                Catch ex As Exception
                End Try
                'delete a key
                m_PATH = "MIME\Database\Content Type\application/vnd.adobe.xdp+xml"
                m_KEY = "CLSID"
                m_HIVE = RegistryHive.ClassesRoot
                Try
                    cls_Remote.DeleteRegistryKeyValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                Catch ex As Exception
                End Try
                'delete a key
                m_PATH = "MIME\Database\Content Type\application/vnd.adobe.xfd+xml"
                m_KEY = "CLSID"
                m_HIVE = RegistryHive.ClassesRoot
                Try
                    cls_Remote.DeleteRegistryKeyValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                Catch ex As Exception
                End Try
                'set a key
                m_PATH = _SIDUser & "\" & "Software\Adobe\Adobe Acrobat\6.0\Originals"
                m_KEY = "bBrowserIntegration"
                m_HIVE = RegistryHive.Users
                Try
                    m_GETValue = 0
                    cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
                Catch ex As Exception
                End Try
                'set a key
                m_PATH = _SIDUser & "\" & "Software\Adobe\Adobe Acrobat\6.0\Originals"
                m_KEY = "bAllowByteRangeRequests"
                m_HIVE = RegistryHive.Users
                Try
                    m_GETValue = 0
                    cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
                Catch ex As Exception
                End Try
                'set a key
                m_PATH = _SIDUser & "\" & "Software\Adobe\Adobe Acrobat\6.0\Originals"
                m_KEY = "bBrowserCheck"
                m_HIVE = RegistryHive.Users
                Try
                    m_GETValue = 0
                    cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
                Catch ex As Exception
                End Try
            End If
        End Set
    End Property
    '' **********************************************************************************************************************************
    '' ****************************************************** General *******************************************************************
    '' **********************************************************************************************************************************

    '' +++++++++++++ IE PlugInAcrobatReader6 BrowserIntegration ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ IE PlugInAcrobatReader6 BrowserIntegration ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set/Delete the Value for IE AcrobatReader6 PlugIn BrowserIntegration in 
    ''' </summary>
    ''' <value>as Boolean</value>
    ''' <remarks>
    ''' (Startseite)
    ''' Get or Set an Boolean
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	10.08.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    ''' 
    Public Property IE_BrowserIntegration_AcrobatReader6() As Boolean
        Get
            Dim blBrowserIntegration As Boolean = True
            'read a key
            m_PATH = _SIDUser & "\" & "Software\Adobe\Acrobat Reader\6.0\Originals"
            m_KEY = "bBrowserIntegration"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
            Catch ex As Exception
                m_GETValue = Nothing
            End Try
            If Not m_GETValue Is Nothing AndAlso blBrowserIntegration = True Then
                blBrowserIntegration = False
            End If
            Return blBrowserIntegration
        End Get
        Set(ByVal Value As Boolean)
            If Value = True Then
                'enable browser plugin for adobe acrobat Reader 6.0
                'delete a key
                m_PATH = _SIDUser & "\" & "Software\Adobe\Acrobat Reader\6.0\Originals"
                m_KEY = "bBrowserIntegration"
                m_HIVE = RegistryHive.Users
                Try
                    cls_Remote.DeleteRegistryKeyValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                Catch ex As Exception
                End Try
                'delete a key
                m_PATH = _SIDUser & "\" & "Software\Adobe\Acrobat Reader\6.0\Originals"
                m_KEY = "bAllowByteRangeRequests"
                m_HIVE = RegistryHive.Users
                Try
                    cls_Remote.DeleteRegistryKeyValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                Catch ex As Exception
                End Try
                'delete a key
                m_PATH = _SIDUser & "\" & "Software\Adobe\Acrobat Reader\6.0\Originals"
                m_KEY = "bBrowserCheck"
                m_HIVE = RegistryHive.Users
                Try
                    cls_Remote.DeleteRegistryKeyValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                Catch ex As Exception
                End Try
            Else
                'disable browser plugin for adobe acrobatReader 6.0
                'IE Geraffel ***************************************************
                'delete a key
                m_PATH = "SOFTWARE\Microsoft\Internet Explorer\Plugins\Extension"
                m_KEY = ".pdf"
                m_HIVE = RegistryHive.LocalMachine
                Try
                    cls_Remote.DeleteRegistryKeyValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                Catch ex As Exception
                End Try
                'delete a key
                m_PATH = "SOFTWARE\Microsoft\Internet Explorer\Plugins\MIME"
                m_KEY = "application/pdf"
                m_HIVE = RegistryHive.LocalMachine
                Try
                    cls_Remote.DeleteRegistryKeyValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                Catch ex As Exception
                End Try
                '***************************************************
                'set a key
                m_PATH = _SIDUser & "\" & "Software\Adobe\Acrobat Reader\6.0\Originals"
                m_KEY = "bBrowserIntegration"
                m_HIVE = RegistryHive.Users
                Try
                    m_GETValue = 0
                    cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
                Catch ex As Exception
                End Try
                'set a key
                m_PATH = _SIDUser & "\" & "Software\Adobe\Acrobat Reader\6.0\Originals"
                m_KEY = "bAllowByteRangeRequests"
                m_HIVE = RegistryHive.Users
                Try
                    m_GETValue = 0
                    cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
                Catch ex As Exception
                End Try
                'set a key
                m_PATH = _SIDUser & "\" & "Software\Adobe\Acrobat Reader\6.0\Originals"
                m_KEY = "bBrowserCheck"
                m_HIVE = RegistryHive.Users
                Try
                    m_GETValue = 0
                    cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
                Catch ex As Exception
                End Try
            End If
        End Set
    End Property
    '' **********************************************************************************************************************************
    '' ****************************************************** General *******************************************************************
    '' **********************************************************************************************************************************

    '' +++++++++++++ IE PlugInMSWord BrowserIntegration ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ IE PlugInMSWord BrowserIntegration ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set/Delete the Value for IE MSWord PlugIn BrowserIntegration in 
    ''' </summary>
    ''' <value>as Boolean</value>
    ''' <remarks>
    ''' (Startseite)
    ''' Get or Set an String
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	10.08.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    ''' 
    Public Property IE_BrowserIntegration_MSWord() As Boolean
        Get
            Dim blBrowserIntegration As Boolean = True
            'read a key
            m_PATH = "Software\Classes\Word.Document.8"
            m_KEY = "BrowserFlags"
            m_HIVE = RegistryHive.LocalMachine
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
            Catch ex As Exception
                m_GETValue = Nothing
            End Try
            If Not m_GETValue Is Nothing AndAlso blBrowserIntegration = True Then
                blBrowserIntegration = False
            End If
            Return blBrowserIntegration
        End Get
        Set(ByVal Value As Boolean)
            If Value = True Then
                'enable browser plugin for MSWord
                'delete a key
                m_PATH = "Software\Classes\Word.Document.8"
                m_KEY = "BrowserFlags"
                m_HIVE = RegistryHive.LocalMachine
                Try
                    cls_Remote.DeleteRegistryKeyValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                Catch ex As Exception
                End Try
            Else
                'disable browser plugin for MSWord
                '***************************************************
                'set a key
                m_PATH = "Software\Classes\Word.Document.8"
                m_KEY = "BrowserFlags"
                m_HIVE = RegistryHive.LocalMachine
                Try
                    m_GETValue = 8
                    cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
                Catch ex As Exception
                End Try
            End If
        End Set
    End Property
    '' **********************************************************************************************************************************
    '' ****************************************************** General *******************************************************************
    '' **********************************************************************************************************************************

    '' +++++++++++++ IE PlugInMSExcel BrowserIntegration ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ IE PlugInMSExcel BrowserIntegration ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set/Delete the Value for IE MSExcel PlugIn BrowserIntegration in 
    ''' </summary>
    ''' <value>as Boolean</value>
    ''' <remarks>
    ''' (Startseite)
    ''' Get or Set an Boolean
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	10.08.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    ''' 
    Public Property IE_BrowserIntegration_MSExcel() As Boolean
        Get
            Dim blBrowserIntegration As Boolean = True
            'read a key
            m_PATH = "Software\Classes\Excel.Sheet.8"
            m_KEY = "BrowserFlags"
            m_HIVE = RegistryHive.LocalMachine
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
            Catch ex As Exception
                m_GETValue = Nothing
            End Try
            If Not m_GETValue Is Nothing AndAlso blBrowserIntegration = True Then
                blBrowserIntegration = False
            End If
            Return blBrowserIntegration
        End Get
        Set(ByVal Value As Boolean)
            If Value = True Then
                'enable browser plugin for MSExcel
                'delete a key
                m_PATH = "Software\Classes\Excel.Sheet.8"
                m_KEY = "BrowserFlags"
                m_HIVE = RegistryHive.LocalMachine
                Try
                    cls_Remote.DeleteRegistryKeyValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                Catch ex As Exception
                End Try
            Else
                'disable browser plugin for MSExcel
                '***************************************************
                'set a key
                m_PATH = "Software\Classes\Excel.Sheet.8"
                m_KEY = "BrowserFlags"
                m_HIVE = RegistryHive.LocalMachine
                Try
                    m_GETValue = 8
                    cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
                Catch ex As Exception
                End Try
            End If
        End Set
    End Property
    '' **********************************************************************************************************************************
    '' ****************************************************** General *******************************************************************
    '' **********************************************************************************************************************************

    '' +++++++++++++ IE PlugInMSPowerPoint BrowserIntegration ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ IE PlugInMSPowerPoint BrowserIntegration ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set/Delete the Value for IE MSPowerPoint PlugIn BrowserIntegration in 
    ''' </summary>
    ''' <value>as Boolean</value>
    ''' <remarks>
    ''' (Startseite)
    ''' Get or Set an Boolean
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	10.08.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    ''' 
    Public Property IE_BrowserIntegration_MSPowerPoint() As Boolean
        Get
            Dim blBrowserIntegration As Boolean = True
            'read a key
            m_PATH = "Software\Classes\PowerPoint.Show.8"
            m_KEY = "BrowserFlags"
            m_HIVE = RegistryHive.LocalMachine
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
            Catch ex As Exception
                m_GETValue = Nothing
            End Try
            If Not m_GETValue Is Nothing AndAlso blBrowserIntegration = True Then
                blBrowserIntegration = False
            End If
            Return blBrowserIntegration
        End Get
        Set(ByVal Value As Boolean)
            If Value = True Then
                'enable browser plugin for MSPowerPoint
                'delete a key
                m_PATH = "Software\Classes\PowerPoint.Show.8"
                m_KEY = "BrowserFlags"
                m_HIVE = RegistryHive.LocalMachine
                Try
                    cls_Remote.DeleteRegistryKeyValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                Catch ex As Exception
                End Try
            Else
                'disable browser plugin for MSPowerPoint
                '***************************************************
                'set a key
                m_PATH = "Software\Classes\PowerPoint.Show.8"
                m_KEY = "BrowserFlags"
                m_HIVE = RegistryHive.LocalMachine
                Try
                    m_GETValue = 8
                    cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
                Catch ex As Exception
                End Try
            End If
        End Set
    End Property
    '' **********************************************************************************************************************************
    '' ****************************************************** General *******************************************************************
    '' **********************************************************************************************************************************

    '' +++++++++++++ IE PlugInMSVisio BrowserIntegration ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ IE PlugInMSVisio BrowserIntegration ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set/Delete the Value for IE MSVisio PlugIn BrowserIntegration in 
    ''' </summary>
    ''' <value>as Boolean</value>
    ''' <remarks>
    ''' (Startseite)
    ''' Get or Set an Boolean
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	10.08.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    ''' 
    Public Property IE_BrowserIntegration_MSVisio() As Boolean
        Get
            Dim blBrowserIntegration As Boolean = True
            'read a key
            m_PATH = "Software\Classes\Visio.Drawing.6"
            m_KEY = "BrowserFlags"
            m_HIVE = RegistryHive.LocalMachine
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
            Catch ex As Exception
                m_GETValue = Nothing
            End Try
            If Not m_GETValue Is Nothing AndAlso blBrowserIntegration = True Then
                blBrowserIntegration = False
            End If
            Return blBrowserIntegration
        End Get
        Set(ByVal Value As Boolean)
            If Value = True Then
                'enable browser plugin for MSPowerPoint
                'delete a key
                m_PATH = "Software\Classes\Visio.Drawing.6"
                m_KEY = "BrowserFlags"
                m_HIVE = RegistryHive.LocalMachine
                Try
                    cls_Remote.DeleteRegistryKeyValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                Catch ex As Exception
                End Try
            Else
                'disable browser plugin for MSPowerPoint
                '***************************************************
                'set a key
                m_PATH = "Software\Classes\Visio.Drawing.6"
                m_KEY = "BrowserFlags"
                m_HIVE = RegistryHive.LocalMachine
                Try
                    m_GETValue = 8
                    cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
                Catch ex As Exception
                End Try
            End If
        End Set
    End Property
    '' **********************************************************************************************************************************
    '' ****************************************************** General *******************************************************************
    '' **********************************************************************************************************************************

    '' +++++++++++++ IE Acrobat PDF Open After Downlod Dialog ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ IE Acrobat PDF Open After Downlod Dialog ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set/Delete the Value for IE Acrobat PDF Open After Downlod Dialog
    ''' </summary>
    ''' <value>as Boolean</value>
    ''' <remarks>
    ''' (Startseite)
    ''' Get or Set an String
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	10.08.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_OpenAfterDownloadDialog_PDF() As Boolean
        Get
            Dim blDialog As Boolean = True
            'read a key XP SP2 IE
            m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\Shell\AttachmentExecute\{0002DF01-0000-0000-C000-000000000046}"
            m_KEY = "AcroExch.Document"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.IfExist_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
            Catch ex As Exception
                m_GETValue = False
            End Try
            If m_GETValue = True AndAlso blDialog = True Then
                blDialog = False
            End If
            'read a key
            m_PATH = "AcroExch.Document"
            m_KEY = "EditFlags"
            m_HIVE = RegistryHive.ClassesRoot
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
            Catch ex As Exception
                m_GETValue = Nothing
            End Try
            If m_GETValue > 0 AndAlso blDialog = True Then
                blDialog = False
            End If
            Return blDialog
        End Get

        '
        Set(ByVal Value As Boolean)
            If Value = True Then
                'enable bAcrobat PDF Open After Downlod Dialog
                'delete a key 'XP SP2 IE Geraffel ***************************************************
                m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\Shell\AttachmentExecute\{0002DF01-0000-0000-C000-000000000046}"
                m_KEY = "AcroExch.Document"
                m_HIVE = RegistryHive.Users
                Try
                    cls_Remote.DeleteRegistryKeyValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                Catch ex As Exception
                End Try
                'end IE Geraffel
                'set a key
                m_PATH = "AcroExch.Document"
                m_KEY = "EditFlags"
                m_HIVE = RegistryHive.ClassesRoot
                Try
                    m_GETValue = 0
                    cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
                Catch ex As Exception
                End Try

            Else
                'disable bAcrobat PDF Open After Downlod Dialog
                'IE Geraffel ***************************************************
                'set a key
                m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\Shell\AttachmentExecute\{0002DF01-0000-0000-C000-000000000046}"
                m_KEY = "AcroExch.Document"
                m_HIVE = RegistryHive.Users
                Try
                    m_GETValue = 0
                    cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
                Catch ex As Exception
                End Try
                'set a key
                m_PATH = "AcroExch.Document"
                m_KEY = "EditFlags"
                m_HIVE = RegistryHive.ClassesRoot
                Try
                    m_GETValue = 65536
                    cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
                Catch ex As Exception
                End Try

            End If
        End Set
    End Property
    '' **********************************************************************************************************************************
    '' ****************************************************** General *******************************************************************
    '' **********************************************************************************************************************************

    '' +++++++++++++ IE MS Word After Downlod Dialog ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ IE MS Word After Downlod Dialog ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set/Delete the Value for IE MS Word After Downlod Dialog
    ''' </summary>
    ''' <value>as Boolean</value>
    ''' <remarks>
    ''' (Startseite)
    ''' Get or Set an String
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	10.08.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_OpenAfterDownloadDialog_DOC() As Boolean
        Get
            Dim blDialog As Boolean = True
            'read a key XP SP2 IE
            m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\Shell\AttachmentExecute\{0002DF01-0000-0000-C000-000000000046}"
            m_KEY = "Word.Document.8"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.IfExist_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
            Catch ex As Exception
                m_GETValue = False
            End Try
            If m_GETValue = True AndAlso blDialog = True Then
                blDialog = False
            End If
            'read a key
            m_PATH = "Word.Document.8"
            m_KEY = "EditFlags"
            m_HIVE = RegistryHive.ClassesRoot
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If TypeOf m_GETValue Is Byte() Then
                    m_GETValue = CType(m_GETValue, Byte())(0).ToString
                End If
            Catch ex As Exception
                m_GETValue = Nothing
            End Try
            If m_GETValue > 0 AndAlso blDialog = True Then
                blDialog = False
            End If
            Return blDialog
        End Get

        '
        Set(ByVal Value As Boolean)
            If Value = True Then
                'enable bAcrobat PDF Open After Downlod Dialog
                'delete a key 'XP SP2 IE Geraffel ***************************************************
                m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\Shell\AttachmentExecute\{0002DF01-0000-0000-C000-000000000046}"
                m_KEY = "Word.Document.8"
                m_HIVE = RegistryHive.Users
                Try
                    cls_Remote.DeleteRegistryKeyValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                Catch ex As Exception
                End Try
                'end IE Geraffel
                'set a key
                m_PATH = "Word.Document.8"
                m_KEY = "EditFlags"
                m_HIVE = RegistryHive.ClassesRoot
                Try
                    m_GETValue = 0
                    cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
                Catch ex As Exception
                End Try

            Else
                'disable bAcrobat PDF Open After Downlod Dialog
                'IE Geraffel ***************************************************
                'set a key
                m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\Shell\AttachmentExecute\{0002DF01-0000-0000-C000-000000000046}"
                m_KEY = "Word.Document.8"
                m_HIVE = RegistryHive.Users
                Try
                    m_GETValue = 0
                    cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
                Catch ex As Exception
                End Try
                'set a key
                m_PATH = "Word.Document.8"
                m_KEY = "EditFlags"
                m_HIVE = RegistryHive.ClassesRoot
                Try
                    m_GETValue = 65536
                    cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
                Catch ex As Exception
                End Try

            End If
        End Set
    End Property
    '' **********************************************************************************************************************************
    '' ****************************************************** General *******************************************************************
    '' **********************************************************************************************************************************

    '' +++++++++++++ IE MS Excel After Downlod Dialog ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ IE MS Excel After Downlod Dialog ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set/Delete the Value for IE MS Excel After Downlod Dialog
    ''' </summary>
    ''' <value>as Boolean</value>
    ''' <remarks>
    ''' (Startseite)
    ''' Get or Set an String
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	10.08.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_OpenAfterDownloadDialog_XLS() As Boolean
        Get
            Dim blDialog As Boolean = True
            'read a key XP SP2 IE
            m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\Shell\AttachmentExecute\{0002DF01-0000-0000-C000-000000000046}"
            m_KEY = "Excel.Sheet.8"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.IfExist_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
            Catch ex As Exception
                m_GETValue = False
            End Try
            If m_GETValue = True AndAlso blDialog = True Then
                blDialog = False
            End If
            'read a key
            m_PATH = "Excel.Sheet.8"
            m_KEY = "EditFlags"
            m_HIVE = RegistryHive.ClassesRoot
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If TypeOf m_GETValue Is Byte() Then
                    m_GETValue = CType(m_GETValue, Byte())(0).ToString
                End If
            Catch ex As Exception
                m_GETValue = Nothing
            End Try
            If CInt(m_GETValue) > 0 AndAlso blDialog = True Then
                blDialog = False
            End If
            Return blDialog
        End Get

        Set(ByVal Value As Boolean)
            If Value = True Then
                'enable bAcrobat PDF Open After Downlod Dialog
                'delete a key 'XP SP2 IE Geraffel ***************************************************
                m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\Shell\AttachmentExecute\{0002DF01-0000-0000-C000-000000000046}"
                m_KEY = "Excel.Sheet.8"
                m_HIVE = RegistryHive.Users
                Try
                    cls_Remote.DeleteRegistryKeyValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                Catch ex As Exception
                End Try
                'end IE Geraffel
                'set a key
                m_PATH = "Excel.Sheet.8"
                m_KEY = "EditFlags"
                m_HIVE = RegistryHive.ClassesRoot
                Try
                    m_GETValue = 0
                    cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
                Catch ex As Exception
                End Try
            Else
                'disable bAcrobat PDF Open After Downlod Dialog
                'IE Geraffel ***************************************************
                'set a key
                m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\Shell\AttachmentExecute\{0002DF01-0000-0000-C000-000000000046}"
                m_KEY = "Excel.Sheet.8"
                m_HIVE = RegistryHive.Users
                Try
                    m_GETValue = 0
                    cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
                Catch ex As Exception
                End Try
                'set a key
                m_PATH = "Excel.Sheet.8"
                m_KEY = "EditFlags"
                m_HIVE = RegistryHive.ClassesRoot
                Try
                    m_GETValue = 65536
                    cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
                Catch ex As Exception
                End Try
            End If
        End Set
    End Property
    '' **********************************************************************************************************************************
    '' ****************************************************** General *******************************************************************
    '' **********************************************************************************************************************************

    '' +++++++++++++ IE MS PowerPoint After Downlod Dialog ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ IE MS PowerPoint After Downlod Dialog ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set/Delete the Value for IE MS PowerPoint After Downlod Dialog
    ''' </summary>
    ''' <value>as Boolean</value>
    ''' <remarks>
    ''' (Startseite)
    ''' Get or Set an String
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	10.08.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_OpenAfterDownloadDialog_PPT() As Boolean
        Get
            Dim blDialog As Boolean = True
            'read a key XP SP2 IE
            m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\Shell\AttachmentExecute\{0002DF01-0000-0000-C000-000000000046}"
            m_KEY = "PowerPoint.Show.8"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.IfExist_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
            Catch ex As Exception
                m_GETValue = False
            End Try
            If m_GETValue = True AndAlso blDialog = True Then
                blDialog = False
            End If
            'read a key
            m_PATH = "PowerPoint.Show.8"
            m_KEY = "EditFlags"
            m_HIVE = RegistryHive.ClassesRoot
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If TypeOf m_GETValue Is Byte() Then
                    m_GETValue = CType(m_GETValue, Byte())(0).ToString
                End If
            Catch ex As Exception
                m_GETValue = Nothing
            End Try
            If CInt(m_GETValue) > 0 AndAlso blDialog = True Then
                blDialog = False
            End If
            Return blDialog
        End Get

        Set(ByVal Value As Boolean)
            If Value = True Then
                'enable bAcrobat PDF Open After Downlod Dialog
                'delete a key 'XP SP2 IE Geraffel ***************************************************
                m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\Shell\AttachmentExecute\{0002DF01-0000-0000-C000-000000000046}"
                m_KEY = "PowerPoint.Show.8"
                m_HIVE = RegistryHive.Users
                Try
                    cls_Remote.DeleteRegistryKeyValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                Catch ex As Exception
                End Try
                'end IE Geraffel
                'set a key
                m_PATH = "PowerPoint.Show.8"
                m_KEY = "EditFlags"
                m_HIVE = RegistryHive.ClassesRoot
                Try
                    m_GETValue = 0
                    cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
                Catch ex As Exception
                End Try
            Else
                'disable bAcrobat PDF Open After Downlod Dialog
                'IE Geraffel ***************************************************
                'set a key
                m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\Shell\AttachmentExecute\{0002DF01-0000-0000-C000-000000000046}"
                m_KEY = "PowerPoint.Show.8"
                m_HIVE = RegistryHive.Users
                Try
                    m_GETValue = 0
                    cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
                Catch ex As Exception
                End Try
                'set a key
                m_PATH = "PowerPoint.Show.8"
                m_KEY = "EditFlags"
                m_HIVE = RegistryHive.ClassesRoot
                Try
                    m_GETValue = 65536
                    cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
                Catch ex As Exception
                End Try
            End If
        End Set
    End Property
    '' **********************************************************************************************************************************
    '' ****************************************************** General *******************************************************************
    '' **********************************************************************************************************************************

    '' +++++++++++++ IE MS Visio After Downlod Dialog ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '' +++++++++++++ IE MS Visio After Downlod Dialog ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

    ''' -----------------------------------------------------------------------------
    ''' <summary>
    ''' Get and Set/Delete the Value for IE MS Visio After Downlod Dialog
    ''' </summary>
    ''' <value>as Boolean</value>
    ''' <remarks>
    ''' (Startseite)
    ''' Get or Set an String
    ''' </remarks>
    ''' <history>
    ''' 	[Administrator]	10.08.2004	Created
    ''' </history>
    ''' -----------------------------------------------------------------------------
    Public Property IE_OpenAfterDownloadDialog_VSD() As Boolean
        Get
            Dim blDialog As Boolean = True
            'read a key XP SP2 IE
            m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\Shell\AttachmentExecute\{0002DF01-0000-0000-C000-000000000046}"
            m_KEY = "Visio.Drawing.6"
            m_HIVE = RegistryHive.Users
            Try
                'Gets the Value
                m_GETValue = cls_Remote.IfExist_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
            Catch ex As Exception
                m_GETValue = False
            End Try
            If m_GETValue = True AndAlso blDialog = True Then
                blDialog = False
            End If
            'read a key
            m_PATH = "Visio.Drawing.6"
            m_KEY = "EditFlags"
            m_HIVE = RegistryHive.ClassesRoot
            Try
                'Gets the Value
                m_GETValue = cls_Remote.Read_RegValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                If TypeOf m_GETValue Is Byte() Then
                    m_GETValue = CType(m_GETValue, Byte())(0).ToString
                End If
            Catch ex As Exception
                m_GETValue = Nothing
            End Try
            If CInt(m_GETValue) > 0 AndAlso blDialog = True Then
                blDialog = False
            End If
            Return blDialog
        End Get

        Set(ByVal Value As Boolean)
            If Value = True Then
                'enable bAcrobat PDF Open After Downlod Dialog
                'delete a key 'XP SP2 IE Geraffel ***************************************************
                m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\Shell\AttachmentExecute\{0002DF01-0000-0000-C000-000000000046}"
                m_KEY = "Visio.Drawing.6"
                m_HIVE = RegistryHive.Users
                Try
                    cls_Remote.DeleteRegistryKeyValue(m_HIVE, m_PATH, m_KEY, _RemoteMachine)
                Catch ex As Exception
                End Try
                'end IE Geraffel
                'set a key
                m_PATH = "Visio.Drawing.6"
                m_KEY = "EditFlags"
                m_HIVE = RegistryHive.ClassesRoot
                Try
                    m_GETValue = 0
                    cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
                Catch ex As Exception
                End Try
            Else
                'disable bAcrobat PDF Open After Downlod Dialog
                'IE Geraffel ***************************************************
                'set a key
                m_PATH = _SIDUser & "\" & "Software\Microsoft\Windows\Shell\AttachmentExecute\{0002DF01-0000-0000-C000-000000000046}"
                m_KEY = "Visio.Drawing.6"
                m_HIVE = RegistryHive.Users
                Try
                    m_GETValue = 0
                    cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
                Catch ex As Exception
                End Try
                'set a key
                m_PATH = "Visio.Drawing.6"
                m_KEY = "EditFlags"
                m_HIVE = RegistryHive.ClassesRoot
                Try
                    m_GETValue = 65536
                    cls_Remote.WriteToRegistry(m_HIVE, m_PATH, m_KEY, _RemoteMachine, m_GETValue)
                Catch ex As Exception
                End Try
            End If
        End Set
    End Property
End Class
