Administrative Templates
  Control Panel
    Policy Setting 
      Prohibit access to the Control Panel Enabled 

  Control Panel/Display
    Policy Setting 
      Hide Appearance and Themes tab Enabled 
      Hide Desktop tab Enabled 
      Hide Screen Saver tab Enabled 
      Hide Settings tab Enabled 
      Password protect the screen saver Disabled 
      Prevent changing wallpaper Enabled 
      Remove Display in Control Panel Enabled 
      Screen Saver 

Sub ChangeEditPermissions()
'Changes the permissions of all BasicLists in the web

    Dim objApp As FrontPage.Application
    Dim objList As Object
    Dim objLists As Lists

    Set objApp = FrontPage.Application
    Set objLists = objApp.ActiveWeb.Lists

    'Cycle through each list and check for list type
    For Each objList In objLists
        'If it's a BasicList then change permissions
        If objList.Type = fpListTypeBasicList Then
            If objList.EditSecurity <> fpListEditSecurityOnlyOwn Then
                objList.EditSecurity = fpListEditSecurityOnlyOwn
                objList.ApplyChanges
            End If
        End If
    Next

End Sub