+ Post New Thread
Results 1 to 3 of 3
e-Safety Thread, E-Safety Desktop Wallpaper in School Administration; Hi All, I wondered if you could help me. We are currently reviewing our E-Safety policies at school and looking ...
  1. #1
    EvLPhenom's Avatar
    Join Date
    Apr 2006
    Location
    Sutton Colfield
    Posts
    432
    Thank Post
    21
    Thanked 40 Times in 35 Posts
    Rep Power
    23

    E-Safety Desktop Wallpaper

    Hi All,

    I wondered if you could help me. We are currently reviewing our E-Safety policies at school and looking at ideas to inform the students differently. We have come up with the idea of creating different wallpapers for our computer systems that change daily. I just wondered if you have any designs that are available for download or if you know of anywhere we could get some as I am struggling for them at the moment and I am currently lacking in creativity as its Monday.

    If anyone could point me in the right direction it would be much appreciated.

    This would all be aimed at primary school by the way.

    Thanks in advance.

    Andy

  2. #2
    bslater's Avatar
    Join Date
    Oct 2012
    Posts
    3
    Thank Post
    0
    Thanked 0 Times in 0 Posts
    Rep Power
    0
    Hello Andy,
    We do something similar but utilise screensavers and the login box (CC3). I created a couple of screensavers based on SMART from KidSmart and INSAFE. We swap them with other screensaver (xmas, remembrance day etc) via RMMC.
    The login box takes BMP's so simple messages can be changed whenever we need.
    Creating wallpapers based on e-safety sounds like a competition for the children.

    regards
    Brian

  3. #3

    Join Date
    Apr 2013
    Location
    Newcastle Upon Tyne
    Posts
    21
    Thank Post
    2
    Thanked 6 Times in 5 Posts
    Rep Power
    4
    Dont know if this may be of some help. I wrote this a while back for similar reasons. Save this off as a vbs then set this code up to run every half hour as a scheduled task. It looks for a photo YYYY-MM-DD.jpg e.g. 2014-15-05.jpg. Compares it to see if its newer than the old one then copies it over.

    This way one of our assistant heads can make the backgrounds to what they want and cue them up in advance.

    Code:
    option explicit 
    
    dim WshShell, fso, srcPath, tgtPath , file, objFileSrc, objFileTgt,strDayOfMonth,strMonth,strYear,todayFile,files,srcDir,folderIdx,tgtfile
    const OVERWRITE = true
    
    
    set WshShell = WScript.CreateObject("Wscript.Shell") 
    set fso = WScript.CreateObject("Scripting.FilesystemObject")
    
    
    strDayOfMonth = right("0" & day(date()),2)
    strMonth = right("0" & month(date()),2)
    strYear = right (year(date()),4)
    
    
    'set filename to look for to YYYY-MM-DD.jpg
    file = strYear & "-" & strMonth & "-" & strDayOfMonth & ".jpg"
    ' msgbox(file)
    
    'Path to folder locating the backgrounds
    srcPath = "\\fs01\AdminOffice\Office\Desktops\" 
    
    'Path to shared desktop background
    tgtPath = "\\hebburn\NETLOGON\"
    
    'Name of shared background image
    tgtfile = "HCPlogo.jpg"
    
    
    'search folder in srcPath for files
    set srcDir = fso.GetFolder(srcPath)
    set files = srcDir.Files
    
    
    'recursivly go through the directory and check to see if there is a file named after today if so copy it over to background
    For Each folderIdx In files
    '    msgbox(folderIdx.Name)
    	
    	if fso.FileExists(srcPath & file) then
      if not fso.FileExists(tgtPath & file) then
        'target doesn't exist, just copy
        fso.CopyFile srcPath & file, tgtPath & tgtfile
     '   wscript.echo srcPath & file & " copied to " & tgtPath & file
      else
        Set objFileSrc = fso.getFile(srcPath & file)
        Set objFileTgt = fso.getFile(tgtPath & tgtfile)
        'target exists, compare dates
        if objFileSrc.DateLastModified > objFileTgt.DateLastModified then
          fso.CopyFile srcPath & file, tgtPath & tgtfile, OVERWRITE
        '  wscript.echo srcPath & file & " copied over " & tgtPath & file
        else
        '  wscript.echo srcPath & file & " not newer then " & tgtPath & file
        end if
      end if
    else
    '  wscript.echo srcPath & file & " does not exist"
    end if
    	
    	
    Next
    
    
    
    
    set fso = Nothing
    Here is an example of one of our old ones with a thought for the week on

    2013-01-11.jpg

  4. 2 Thanks to Reverend_Dan:

    Ant (15th May 2014), TechSupp (15th May 2014)

SHARE:
+ Post New Thread

Similar Threads

  1. CC4 Desktop Wallpaper - Admin
    By rad in forum Network and Classroom Management
    Replies: 3
    Last Post: 20th October 2009, 06:05 PM
  2. Desktop Wallpaper Problem
    By gloriousglenn in forum Network and Classroom Management
    Replies: 0
    Last Post: 5th September 2008, 08:47 PM
  3. Replies: 16
    Last Post: 5th June 2008, 11:14 AM
  4. Problem loosing Active Desktop wallpaper
    By Kyle in forum Windows
    Replies: 11
    Last Post: 14th November 2007, 02:21 PM
  5. Active Desktop Wallpaper problem
    By WithoutMotive in forum Wireless Networks
    Replies: 2
    Last Post: 29th June 2006, 07:10 PM

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •