I am now using a combination of tools. At the forefront I use a piece of software which allows the teacher to "turn off" Internet Explorer per room or per PC very easily. Literally just a couple of mouse clicks. It also places a small window at the top of the screen saying who is logged in and what web page they last visited.
what pieces of software do you use to do this Espada ? If you can post back with each name of software along with the softwares website ( url )
Thanks
What you really want for this is Netmanager from Precedence Technologies. They had added this function in the last six months & once it is set up it works with a couple of clicks. http://www.precedence.co.uk/
It is bespoke, I coded it myself. The client code is here:Originally Posted by gecko
I will post the control code shortly, as I said this is bespoke so you will need to tweak it. At the moment the control is through a hidden folder on the shared area but could easily be done through the registry. This means even if they shut down and restart, it will continue to take effect.Code:#cs ---------------------------------------------------------------------------- AutoIt Version: 3.2.2.0 Author: Mark Wilson Script Function: Checks for whether IE is open when it shouldn't be and also displays the username at the top of the screen. #ce ---------------------------------------------------------------------------- #Include <Constants.au3> #include <GUIConstants.au3> #include <File.au3> #include <IE.au3> #include <Array.au3> Opt("WinTitleMatchMode", 2) Opt("TrayMenuMode",1) Global $ProxyAbuse = False Dim $File[1] $Block = False TraySetIcon("green.ico") $IPTrim = 9 $FileLocation = "S:\BlockIE\" $LogFileLocation = "U:\" $NewWindowTitle = "" $OldWindowTitle = "" $IP = @IPAddress1 $PCNumber = StringRight(@ComputerName, 2) $LastOctet = StringTrimLeft($IP, $IPTrim) _DisplayUserName() Select Case $LastOctet < 64 $room = "ICT1" Case $LastOctet <128 & $LastOctet > 63 $room = "ICT2" EndSelect $InstructionFile = ($FileLocation & $room & ".txt") If FileExists ($LogFileLocation&"ProxyAbuse") Then _ProxyAbuseWindow() While 1 Sleep(250) If WinExists("Internet Explorer") Then _FileReadToArray($InstructionFile,$File) While 1 If $ProxyAbuse = True Then _ProxyAbuseWindow() ExitLoop EndIf If StringRight($File[$PCNumber],5) = "Block" Then TraySetIcon("red.ico") ProcessClose("IEXPLORE.EXE") ElseIf $File[$PCNumber] = StringRight("EndIt", 5) Then Exit Else $NewWindowTitle = WinGetTitle("") If $NewWindowTitle <> $OldWindowTitle Then $File = ($LogFileLocation&@Year&@MON&@MDAY&".log") IF FileExists($File) = 0 Then _FileCreate($File) FileSetAttrib($File, "+H") EndIf $OldWindowTitle = $NewWindowTitle $HWND = WinGetHandle($NewWindowTitle) $oIE = _IEAttach ($HWND,"HWND") $URL = _IEPropertyGet ($oIE, "locationurl") WinSetTitle("User:","",("User: "&@UserName&" Last Page: "&$URL&" at "&@HOUR&":"&@MIN)) _FileWriteLog($File,',"'& @UserName & '","'& @ComputerName &'","'& $NewWindowTitle & '","' & $URL &'"') ;Check for proxy abuse If StringRegExp($URL,"proxy") = 1 Then _proxyAbuseDetected($URL) EndIf EndIf EndIf ExitLoop WEnd FileClose($File) EndIf _ResetUserNamePosition() WEnd Func _proxyAbuseDetected($URL) $ProxyFile = ($LogFileLocation&"ProxyAbuse") _FileCreate($ProxyFile) FileSetAttrib($ProxyFile, "+H") _FileWriteLog($ProxyFile, $URL) _ProxyAbuseWindow() EndFunc Func _ProxyAbuseWindow() TraySetState (4) WinClose ("Internet Explorer") MsgBox (0, "Possible Proxy Abuse", "Your Internet access has been restricted due to possible proxy abuse. Please speak to a network technician") $ProxyAbuse = True EndFunc Func _DisplayUserName() $UserNameWindow = GUICreate(("User: "&@UserName),400,20,437,0,$WS_VISIBLE, $WS_EX_TOOLWINDOW) WinSetOnTop("User: ","",1) EndFunc Func _ResetUserNamePosition() WinMove("User:","", 437, 0) EndFunc
Here is the control code this bit is very flaky but it does the job just. If you use it you will want to improve it.
Code:#include <GUIConstants.au3> #include <GuiTreeView.au3> ;Opt("TrayMenuMode",1) ; Script Start - Add your code below here $SettingsLocation = "S:\BlockIE\" $SettingsFile = "Global.txt" $ReadSettings = FileOpen(($SettingsLocation & $SettingsFile), 0) $SettingsLineOne = FileReadLine($ReadSettings) $SettingsLineTwo = FileReadLine($ReadSettings) $NumberOfRooms = StringLeft($SettingsLineOne,2) $LastUpdated = 9999 $LastUpdatedRoom = 9999 $TotalComputers = 0 $CurrenSelection = 9999 Dim $RoomTreeItems [$NumberOfRooms] Dim $ComputersPerRoom [$NumberOfRooms] Dim $SaveRoom [$NumberOfRooms] $RoomNames = StringSplit($SettingsLineTwo,"|") $LeftCount = 2 $RightCount = (($NumberOfRooms * 2) - 2) For $a = 1 to $NumberOfRooms $ComputersPerRoom[$a-1] = StringTrimLeft(StringTrimRight($SettingsLineOne, $RightCount),$LeftCount) $LeftCount = $LeftCount + 2 $RightCount = $RightCount - 2 ;MsgBox (0, $a, $ComputersPerRoom[$a-1]) Next Dim $ComputerTreeItems[150] ; Create GUI $MainGui = GUICreate("Control Internet Access", 400, 600) $Tree = GUICtrlCreateTreeView(10, 10, 190, 550) For $a = 1 To $NumberOfRooms $RoomTreeItems[$a-1] = GUICtrlCreateTreeViewItem($RoomNames[$a], $Tree) For $b = $TotalComputers to ($TotalComputers + $ComputersPerRoom[$a-1])-1 $ComputerTreeItems[$b] = GUICtrlCreateTreeViewItem($RoomNames[$a]& "-" &(($b-$TotalComputers)+1), $RoomTreeItems[$a-1]) Next $TotalComputers = $TotalComputers + $ComputersPerRoom[$a-1] Next Dim $ComputerStatus [$TotalComputers] For $a = 0 to $TotalComputers - 1 $ComputerStatus[$a] = "Allow" Next $Group = GUICtrlCreateGroup ("Action", 210, 60, 140, 90) $BlockRadio = GUICtrlCreateRadio ("Block", 220, 75, 50, 20) $AllowRadio = GUICtrlCreateRadio ("Allow", 220, 95, 60, 20) $SetButton = GUICtrlCreateButton ("Set", 260, 115, 60) GUICtrlSetState ($SetButton, $GUI_Hide) $SetRoomButton = GUICtrlCreateButton ("Set Room", 260, 115, 60) GUICtrlSetState ($SetRoomButton, $GUI_Hide) GUICtrlCreateGroup ("",-99,-99,1,1) $SaveButton = GUICtrlCreateButton("Save Changes", 255, 550, 90) GUICtrlSetState ($SaveButton, $GUI_DISABLE) $SaveLabel = GUICtrlCreateLabel ("Changes will not be applied until they are saved.", 210, 150,180, 40) GUICtrlSetState ($SaveLabel, $GUI_Hide) $SaveGroup = GUICtrlCreateGroup("Room to Save Changes to.", 210, 210, 180, ($NumberOfRooms+2) * 20) For $a = 0 To $NumberOfRooms-1 $SaveRoom[$a] = GUICtrlCreateRadio($RoomNames[$a+1], 220, (230 + ($a*20))) Next GUICtrlCreateGroup ("",-99,-99,1,1) GUISetState(@SW_SHOW, $MainGui) ; Event Handler While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE Exit ;Case $msg = $GUI_EVENT_MINIMIZE ; GUISetState(@SW_HIDE, $MainGui) Case $msg = $SetButton ;If $LastUpdated < 9999 Then ;MsgBox(0, "Clicked", $LastUpdated) Select Case BitAnd(GUICtrlRead($AllowRadio),$GUI_CHECKED) $ComputerStatus[$LastUpdated] = "Allow" Case BitAnd(GUICtrlRead($BlockRadio),$GUI_CHECKED) $ComputerStatus[$LastUpdated] = "Block" ;MsgBox(0, "Clicked", "Blocked") EndSelect GUICtrlSetState ($SaveButton, $GUI_ENABLE) GUICtrlSetState ($SaveLabel, $GUI_Show) ;EndIf Case $msg = $SetRoomButton $ComputerCount = 0 $LastUpdated = 9999 For $a = 0 to $NumberOfRooms If $a = $LastUpdatedRoom Then For $b = $ComputerCount To ($ComputersPerRoom[$a]+$ComputerCount-1) Select Case BitAnd(GUICtrlRead($AllowRadio),$GUI_CHECKED) $ComputerStatus[$b] = "Allow" Case BitAnd(GUICtrlRead($BlockRadio),$GUI_CHECKED) $ComputerStatus[$b] = "Block" ;MsgBox(0, "Clicked", "Blocked") EndSelect Next ExitLoop Else $ComputerCount = $ComputerCount + $ComputersPerRoom[$a] EndIf Next GUICtrlSetState ($SaveButton, $GUI_ENABLE) GUICtrlSetState ($SaveLabel, $GUI_Show) Case $msg = $SaveButton GUICtrlSetState ($SaveButton, $GUI_DISABLE) GUICtrlSetState ($SaveLabel, $GUI_Hide) _SaveChanges() EndSelect For $c = 0 to $NumberOfRooms-1 If $msg = $RoomTreeItems[$c] Then ;ExitLoop GUICtrlSetData($Group, (_GUICtrlTreeViewGetText($Tree, $RoomTreeItems[$c])& " Set Room")) GUICtrlSetState ($SetButton, $GUI_Hide) GUICtrlSetState ($SetRoomButton, $GUI_Show) $LastUpdatedRoom = $c GUICtrlSetState ($AllowRadio, $GUI_UNCHECKED) GUICtrlSetState ($BlockRadio, $GUI_UNCHECKED) ;MsgBox(0, "Clicked", "You Clicked a room") EndIf Next For $d = 0 To $TotalComputers - 1 If $msg = $ComputerTreeItems[$d] Then ;If _GUICtrlTreeViewGetState($Tree, $ComputerTreeItems[$d]) = 2 Then If $LastUpdated <> $d Then ;MsgBox(0, "Clicked", GUICtrlGetHandle ( $ComputerTreeItems[$d] )) GUICtrlSetData($Group, _GUICtrlTreeViewGetText($Tree, $ComputerTreeItems[$d])) If $ComputerStatus[$d] = "Allow" Then GUICtrlSetState ($AllowRadio, $GUI_CHECKED) Else GUICtrlSetState ($BlockRadio, $GUI_CHECKED) EndIf $LastUpdated = $d GUICtrlSetState ($SetRoomButton, $GUI_Hide) GUICtrlSetState ($SetButton, $GUI_Show) EndIf ExitLoop EndIf Next WEnd Func _SaveChanges() $StartPoint = 0 For $a = 0 to $NumberOfRooms-1 If BitAnd(GUICtrlRead($SaveRoom[$a]),$GUI_CHECKED) Then $File = FileOpen(($SettingsLocation & $RoomNames[$a+1]&".txt"), 2) For $b = 0 to ($ComputersPerRoom[$a]-1) If $b < 9 Then FileWriteLine ($File, ("0"&$b+1&":"&$ComputerStatus[$b+$StartPoint])) Else FileWriteLine ($File, ($b+1&":"&$ComputerStatus[$b+$StartPoint])) EndIf Next FileClose($File) EndIf $StartPoint = $StartPoint + $ComputersPerRoom[$a] Next EndFunc
There should be a global.txt file for the control software which tells it how many computers there are and what the rooms are called. It should take the following format:
04 = Number of ICT roomsCode:0431322030 ICT1|ICT2|ICT3|ICT4
the remainder of the digits 31, 32, 20, 30 say how many machines are in each room.
The second line is just the room names.
I will try to support people with this but it is a very busy time at the moment with exams - remember I am primarily a teacher.
I have a copy of a very small piece of software called Greenhouse it's freeware and was written by a tech at a local highschool ages ago, it was last updated for CC3 and works fine with our vanilla 2k3/XP setup (with a couple fiddles). The app is only about 80k it simply runs at logon and checks a text file for room numbers (all PC's need to be named according to room e.g. IT1_001) if the room is in the list it sets the proxy address if it's not then the proxy address is blanked. It works pretty well as long as you can prevent the students from being able to alter the proxy address.
Unfortunatly it isn't hosted anywhere for download but at only 20kb i'm sure it could but hosted somewhere for viewing.
@Cookie_Monster
Hello Alistair.
If it's that small then you can upload it on EduGeek as an attachement.
First you said it was 80k then 20k???
this software is awsome it has so many benefits and it is free (donating helps keep it going)That looks interesting - taking a look now.Not actually true. Check out LanView 3 from MST Software. It has its own Internet Access Manager built in which you can use to disable access to single computers, whole rooms or just certain users. You can also set an over-ride for certain systems or users so that staff can still access the Internet.
And just to cap it all off, it's completely free!
(And no, I don't get commision from them! :P )
e.g. trylookingatpornnow.youlittlechavscrotes.gov.ukJust a vague whisper of a thought of an idea...
are you all on AD?
If so, why not have a GPO for each ICT room, and when they want a rooms' internet access shut off for a lesson, just change the proxy to anything other than what is should be....
e.g. trylookingatpornnow.youlittlechavscrotes.gov.uk
obviously you'd need to know about this before the chav scrotes log on in order to apply to the proxy settings, but i know we've had more than a few instances of staff asking for a whole room to be denied access to the internet for one such lesson a week.... hmmm... there must be a more clever way...
HTH
Adam
wicked! :hello1:
It's 20k when zipped.
One benefit of this is it doesn't require a client install it all runs from a network share, it's not as advanced as LANview but take no time to setup. GPO's are a bit to slow when a teacher rings and says we want the internet now in IT1 for example.
We use Talmos Classroom manager which ties in with ISA Server 2004. It works fantastic but has a few little niggles such as when restricitng to 1 particular site, if images come from another source such as images.bbc.co.uk you have to give permission to that as well.
http://www.talmos.net/products-talmo...oom-filter.htm
I think they have split the application out now into Classroom manager, which handles disabling accounts/changing password etc and Classroom Filter which does the internet part. Azzurri is a good company and the Techy boys (Neil and Simon) really know their stuff.
To disable the internet in one room (or per workstation) you can write a basic VB script to change the IP of the proxy server/router. I've had this working for 12 months now and so far (touch wood) noones managed to get onto the internet without having it enabled.
I'm trying to force a batch of users that we have setup for exams to use a fake proxy via GPO so that their internet access is disabled, but they still have access to the intranet. However, they can still get out to the outside world with no issues at all, as if the policy never took place.
We currently set a default gateway via DHCP, could it be related to that?
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
