flexyjerkov
Members-
Posts
223 -
Joined
-
Last visited
Content Type
Forums
News
20th
EduGeek EDIT Conference
Blogs
Everything posted by flexyjerkov
-
I'm using DW CS4 I think. As far as having it physically uploaded I've not uploaded it yet due to it not working as planned and sadly its on my home laptop. The code itself i'm writing in code view and really only using DW to preview it. It seems to be whenever a is used I get space appearing outside the div tags. I can use fine but to be honest that's just sloppy and I want to be able to format properly on each line.
-
I need help guys, I've been out of the whole web design circuit for the past few years and I've got into the habit of web design using tables for formatting. Now i'm using stylesheets and div tags and just need someone to give me some help on formatting. What i'm after is: Wrapper (990px wide) ---------- Header (Fixed height) ---------- Links (Fixed height) ---------- Page Section Heading (Fixed height) ---------- Expandable Text Area (Main area for content) ---------- Page Section Footer (Fixed height) Could someone please knock something up for me or at least give me some advice on how to do this as my current attempts have failed when trying to enter multiple "returns" on the Expandable text area. (The image background only duplicates within the tag and creates a gap on the top and bottom as soon as a is visible.) Hope that makes sense...
-
Need help... Started using mandatory profiles again to remove a known issue we're having. I've now noticed that on the odd occasion the profiles fail to load and gives the student a default environment to destroy. Is there a way I can auto log off a failed profile load.
-
Two useful programs i've written in vb.net
flexyjerkov replied to flexyjerkov's topic in General Chat
vb.net code for the MAC Address Searcher, The other application is easy enough to write yourself to havn't bothered with code. PS there might be problems with running the away one in resolutions other than 1280x1024 as I only set the popups form size to be 1280x1024 but that can be ammended. form1.vb Requires objects: timer: name: timer enabled: false intival: 1000 textbox: name: txt_domain text: domain.name Button: name: btn_run text: run Button: name btn_quit text: quit Progress bar: name: bar Check boxes: chk_remove and chk_replace Label: lbl_addresses Imports System Imports System.Threading Public Class Main Const intForReading = 1 Const intForWriting = 2 Const intForAppending = 8 Dim objFSO = CreateObject("Scripting.FileSystemObject") Dim objFileSystem = CreateObject("Scripting.fileSystemObject") Dim inputdata, colitems, localaddress, localmacaddress, objcommand, objwmiservice, objinputfile, objfile, strInput, esttime, timeseconds Dim objitem, strrootdomain, strquery, stroutputfile, strdistinguishedname, strdata, strattributes, objrecordset, strComputer Dim loadbarvalue, loadbarcount, maccount As Integer Dim t As Thread Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub CodeRun() On Error Resume Next 'Delete & Create Lists & Start Value objFSO.DeleteFile("PCList.txt") objfile = objFSO.CreateTextFile("PCList.txt") objfile = objFSO.OpenTextFile("pclist.txt", 2, True) objfile.Writeline("Test") objfile.close() objfile = objFSO.OpenTextFile("MacAddresses.csv", 2, True) objfile.Writeline("MAC ADDRESS List") objfile.Close() If chk_replace.Checked = True Then objFSO.DeleteFile("Macaddresses.csv") objfile = objFSO.CreateTextFile("Macaddresses.csv") objfile.Writeline("MAC ADDRESS List") objfile.Close() Else If objFSO.FileExists("macaddresses.csv") Then Else objfile = objFSO.CreateTextFile("Macaddresses.csv") End If End If loadbarcount = 0 loadbarvalue = 0 maccount = 0 timeseconds = 0 'Active Directory Code strrootdomain = txt_domain.Text objcommand = CreateObject("ADODB.Command") Dim objConnection = CreateObject("ADODB.Connection") objConnection.Provider = "ADsDSOObject" objConnection.Open = "Active Directory Provider" objcommand.ActiveConnection = objConnection 'Retrieve attributes. strattributes = "sAMAccountName,distinguishedName" strquery = " & ">;(ObjectCategory=computer);" & strattributes & ";subtree" objcommand.CommandText = strquery objrecordset = objcommand.Execute objfile = objFSO.OpenTextFile("pclist.txt", 2, True) Do Until objrecordset.EOF strComputer = objrecordset.Fields("sAMAccountName") strdistinguishedname = objrecordset.Fields("distinguishedName") objfile.Writeline(strComputer) objrecordset.MoveNext() loadbarcount = loadbarcount + 1 Loop objfile.Close() System.Threading.Thread.Sleep(1000) bar.Maximum = loadbarcount 'Mac Address Searchin stroutputfile = "PCLIST.txt" objinputfile = objFileSystem.OpenTextFile(stroutputfile, intForReading) 'read everything in an array inputdata = Split(objinputfile.ReadAll, vbNewLine) For Each strdata In inputdata strComputer = strdata localmacaddress = "" objitem.macaddress = "" colitems = "" objwmiservice = "" colitems = "" 'Check Computers Mac Address strComputer = Replace(strComputer, "$", "", 1, -1, vbTextCompare) objwmiservice = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") colitems = objwmiservice.ExecQuery _ ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True") objfile = objFSO.OpenTextFile("MacAddresses.csv", 8, True) For Each objitem In colitems localmacaddress = objitem.macaddress Next 'Convert Mac Address And Write To File If Exists If localmacaddress = "" Then Else maccount = maccount + 1 If chk_remove.Checked = True Then localmacaddress = Replace(localmacaddress, ":", "", 1, -1, vbTextCompare) objfile.Writeline(localmacaddress) End If End If objfile.close() loadbarvalue = loadbarvalue + 1 Next timer.Enabled = False MsgBox("List Generated: MacAddresses.csv" & vbCrLf & "Mac Addresses Found: " & maccount) btn_run.Text = "Run" txt_domain.Enabled = True chk_remove.Enabled = True chk_replace.Enabled = True objfile.Close() objfile = objFSO.OpenTextFile("macaddresses.csv", 1, True) objfile.Close() objfile = objFSO.OpenTextFile("pclist.txt", 1, True) objfile.close() End Sub Private Sub timer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles timer.Tick bar.Value = loadbarvalue esttime = DateAdd("s", timeseconds, #12:00:00 AM#) lbl_addresses.Text = ("MAC Addresses Found: " & maccount & vbCrLf & "AD Records Found: " & loadbarcount & vbCrLf & "Time Elapsed: " & esttime) timeseconds = timeseconds + 1 End Sub Private Sub btn_run_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_run.Click If btn_run.Text = "Run" Then If txt_domain.Text = "DOMAIN.NAME" Then MsgBox("Enter Domain Name", vbCritical, "Error") ElseIf txt_domain.Text = "" Then MsgBox("Enter Domain Name", vbCritical, "Error") Else timer.Enabled = True txt_domain.Enabled = False t = New Thread(AddressOf Me.CodeRun) t.Start() chk_remove.Enabled = False chk_replace.Enabled = False End If btn_run.Text = "Stop" Else timer.Enabled = False t.Abort() btn_run.Text = "Run" txt_domain.Enabled = True MsgBox("List Generated: MacAddresses.csv" & vbCrLf & "Mac Addresses Found: " & maccount) chk_remove.Enabled = True chk_replace.Enabled = True objfile.Close() objfile = objFSO.OpenTextFile("macaddresses.csv", 1, True) objfile.Close() objfile = objFSO.OpenTextFile("pclist.txt", 1, True) objfile.close() End If End Sub Private Sub btn_quit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_quit.Click t = New Thread(AddressOf Me.CodeRun) t.Abort() Me.Close() End Sub End Class -
Start with something, IT Support require all staff laptops to be handed in for a reinitialisation to prevent the laptops from being deactivated which can not be reversed. Any member of staff which doesn't hand in their laptops will be issued with a fixed penalty of £350.00 to buy a new laptop. During this process we'll also be cleaning the laptops and updating. Complete BS I know, but least people might think twice about ignoring it.
-
Two useful programs i've written in vb.net
flexyjerkov replied to flexyjerkov's topic in General Chat
I guess your right there, and tbh its all down to trust and thats with any software. -
Two useful programs i've written in vb.net
flexyjerkov replied to flexyjerkov's topic in General Chat
Sure chr1s but I think on here the general idea is that if someones unsure then antivirus can be used. Here we scan we Sophos and I have no intentions on screwing my rep on here. -
Couldn't think of a title to use but basicly i've written two applications. The first is Away From Office which allows you to set yourself to away which will leave a full screen message on your screen telling anyone who may stuble into your office that your away/how long for and where. It also allows you to log how much out of office time you've clocked that day... Wrote it purely to help others in the office to find me when I went walkabouts. Might be bugs but it works fine for me. The second application is used to find MAC addresses of all workstations on a domain, providing the workstations are switched on. This can be handy if you want to use WakeOnLan which is the purpose that I created it for. Anyway both attatched... Might be buggy but I can sort that. Requires .net framework 3 I think...
-
I'm in the process of building a custom interface and a custom portal for the school and have built an application to replace the windows shell... Only big problem is... Getting the running applications to display somewhere as of the removal of the windows shell. As well as that i'd like to force the program to always run on the back, essentially pinned to desktop... Is this all possible?
-
I've made additions to the code now to automatically delete an old user session if someone else logs into that same machine. For us when users are always in the computer rooms it'll ensure that even if a user forgets to log out and hits the power switch, the next user will clear their old session for them. Code Below: Logon.vbs '== Limit User Logins '== Written by: James Gzowski (2010) '== Logon Script '== This script consists of two parts, Logon.vbs & Logoff.vbs '== The script is designed to prevent multiple logons on a network from different workstations '== This will not work for Terminal Servers where each user will login on the same server. '== Users NEED to logoff through the proper process otherwise the script will still assume they are logged in. '== If this happens, then the next user to log into their workstation will clear their session 'Set Objects Set oShell = CreateObject( "WScript.Shell" ) Set objFSO = CreateObject("Scripting.FileSystemObject") SET WshShell = createObject("WScript.shell") Const intForReading = 1 Const intForWriting = 2 Const intForAppending = 8 ServerShare = "\\ServerNAME\UserLogins$\" 'Requires Users Full Read/Write Access OldSession = "" CurrentWorkstation = "" 'Get Username & Workstation UserID=oShell.ExpandEnvironmentStrings("%UserName%") WorkstationID=oShell.ExpandEnvironmentStrings("%ComputerName%") 'Check Whether Workstation Has Old Login Session and clear If objFSO.FileExists( ServerShare & WorkstationID & ".txt") Then Set objFile = objFSO.OpenTextFile(ServerShare & WorkstationID & ".txt", intForReading, False) Oldsession = objFile.ReadLine objFile.Close If objFSO.FileExists( Oldsession & ".txt" ) Then objFSO.DeleteFile(ServerShare & Oldsession & ".txt") End if End if 'Check If Users Logged In If objFSO.FileExists ( ServerShare & UserID & ".txt") then Set objFile = objFSO.OpenTextFile(ServerShare & UserID & ".txt", intForReading, False) CurrentWorkstation = objFile.ReadLine objFile.Close 'Report Failed Login To LoginsDenied.log If objFSO.FileExists (ServerShare & "LoginsDenied.log") then SET ObjFile = objFSO.OpenTextFile(ServerShare & "LoginsDenied.log", intForAppending, True) ObjFile.Writeline ("Date: " & Date & ", Time: " & Time & ", Workstation: " & WorkstationID & ", Username: " & UserID) else Set objFile = objFSO.CreateTextFile(ServerShare & "LoginsDenied.log") ObjFile.Writeline ("Date: " & Date & ", Time: " & Time & ", Workstation: " & WorkstationID & ", Username: " & UserID) End If ObjFile.Close 'Shutdown Process' shutdown = "shutdown /l" WshShell.Popup _ "You are already logged onto: " & CurrentWorkstation & "." & vbcrlf & _ "If this is not you please contact the network office." & vbcrlf & vbcrlf & _ "This event has be logged to track possible account misuse." & vbcrlf & vbcrlf & _ "You will now be logged off",20,"Multiple User Login Detected: " & UserID,16 WshShell.Run(shutdown) SET WshShell = Nothing Else 'Create Text Files Set objFile = objFSO.CreateTextFile(ServerShare & WorkstationID & ".txt") ObjFile.Write(UserID) ObjFile.Close Set objFile = objFSO.CreateTextFile(ServerShare & UserID & ".txt") ObjFile.Write(WorkstationID) ObjFile.Close 'Report Accepted Login To LoginsAllowed.log If objFSO.FileExists (ServerShare & "LoginsAllowed.log") then SET ObjFile = objFSO.OpenTextFile(ServerShare & "LoginsAllowed.log", 8, True) ObjFile.Writeline ("Date: " & Date & ", Time: " & Time & ", Workstation: " & WorkstationID & ", Username: " & UserID) else Set objFile = objFSO.CreateTextFile(ServerShare & "LoginsAllowed.log") ObjFile.Writeline ("Date: " & Date & ", Time: " & Time & ", Workstation: " & WorkstationID & ", Username: " & UserID) End If ObjFile.Close End If Logoff.vbs 'Set Objects Set oShell = CreateObject( "WScript.Shell" ) Set objFSO = CreateObject("Scripting.FileSystemObject") SET WshShell = createObject("WScript.shell") Const intForReading = 1 Const intForWriting = 2 Const intForAppending = 8 ServerShare = "\\ServerName\UserLogins$\" 'Requires Users Full Read/Write Access CurrentSession = "" 'Get Username & Workstation UserID=oShell.ExpandEnvironmentStrings("%UserName%") WorkstationID=oShell.ExpandEnvironmentStrings("%ComputerName%") 'Check If Login Session Is Correct To Workstation & User' If objFSO.FileExists (ServerShare & UserID & ".txt") Then Set objFile = objFSO.OpenTextFile(ServerShare & UserID & ".txt", intForReading, False) ' Read the first line if the file is not empty CurrentSession = objFile.ReadLine objFile.Close If CurrentSession = WorkstationID then objFSO.DeleteFile(ServerShare & WorkstationID & ".txt") objFSO.DeleteFile(ServerShare & UserID & ".txt") End if End If Again, comment opinions if you wish. Also Librarian, we dont use roaming profiles here due to the file sizes and login times.
-
In my instance the share is a hidden share. + I dont allow network browsing other than our mapped drives. As for the file if a forced reboot... Users can relog on the same workstation, this will kill their old session but force a logout as of the old active one. I also get sessions to clear at both lunch time and evening. Kids do learn to logoff over time. + Keeping logs allows me to track the little ***** who thief mice etc... + Kids have no idea on what scripts run which makes life easier. One idea woud be to check for multiple records in which a Workstation has within the files and delete the oldest. Also the logoff script doesnt run until the child has actually clicked logoff or shutdown on the machine which would prevent them tricking the machine that they've logged off. Also the typical users who try to avoid single login are the ones who have banned internet access.
-
Thought I'd share my work with those out there, It's two simple vbs scripts which prevents multiple user logins. It will also log all failed attempts into a log file labled LoginsDenied.log. This can be useful for those who keep trying to bypass the system by using friends accounts. Reason I wrote this script was due to finding out LimitLogin was not supported on 2008 server and due to problems I had running it back on 2003. Login.vbs '== Limit User Logins '== Written by: James Gzowski (2010) '== Logon Script '== This script consists of two parts, Logon.vbs & Logoff.vbs '== The script is designed to prevent multiple logons on a network from different workstations '== This will not work for Terminal Servers where each user will login on the same server. '== Users NEED to logoff through the proper process otherwise the script will still assume they are logged in. '== If this happens, the user can either relog into the workstation or request their session files are deleted '== from the ServerShare, these files will be named: _.txt and .txt. 'Set Objects Set oShell = CreateObject( "WScript.Shell" ) Set objFSO = CreateObject("Scripting.FileSystemObject") SET WshShell = createObject("WScript.shell") ServerShare = "\\SERVERPATH\SHARE" 'Requires Users Full Read/Write Access 'Get Username & Workstation UserID=oShell.ExpandEnvironmentStrings("%UserName%") WorkstationID=oShell.ExpandEnvironmentStrings("%ComputerName%") 'Check If Users Logged In' If objFSO.FileExists ( ServerShare & UserID & ".txt") then 'Report Failed Login To LoginsDenied.log If objFSO.FileExists (ServerShare & "LoginsDenied.log") then SET ObjFile = objFSO.OpenTextFile(ServerShare & "LoginsDenied.log", 8, True) ObjFile.Writeline ("Date: " & Date & " | Time: " & Time & " | Workstation: " & WorkstationID & " | Username: " & UserID) else Set objFile = objFSO.CreateTextFile(ServerShare & "LoginsDenied.log") ObjFile.Writeline ("Date: " & Date & " | Time: " & Time & " | Workstation: " & WorkstationID & " | Username: " & UserID) End If ObjFile.Close 'Shutdown Process' shutdown = "shutdown /l" WshShell.Popup _ "You are already logged into another workstation." & vbcrlf & _ "If this is not you please contact the network office." & vbcrlf & vbcrlf & _ "This event has be logged to track possible account misuse." & vbcrlf & vbcrlf & _ "You will now be logged off",20,"Multiple User Login Detected: " & UserID,16 WshShell.Run(shutdown) SET WshShell = Nothing Else 'Create Text Files Set objFile = objFSO.CreateTextFile(ServerShare & UserID & "-" & WorkstationID & ".txt") Set objFile = objFSO.CreateTextFile(ServerShare & UserID & ".txt") ObjFile.Write(WorkstationID & " at " & Time) ObjFile.Close 'Report Accepted Login To LoginsAllowed.log If objFSO.FileExists (ServerShare & "LoginsAllowed.log") then SET ObjFile = objFSO.OpenTextFile(ServerShare & "LoginsAllowed.log", 8, True) ObjFile.Writeline ("Date: " & Date & " | Time: " & Time & " | Workstation: " & WorkstationID & " | Username: " & UserID) else Set objFile = objFSO.CreateTextFile(ServerShare & "LoginsAllowed.log") ObjFile.Writeline ("Date: " & Date & " | Time: " & Time & " | Workstation: " & WorkstationID & " | Username: " & UserID) End If ObjFile.Close End If Logoff.vbs '== Limit User Logins '== Written by: James Gzowski (2010) '== Logoff Script '== This script consists of two parts, Logon.vbs & Logoff.vbs '== The script is designed to prevent multiple logons on a network from different workstations '== This will not work for Terminal Servers where each user will login on the same server. '== Users NEED to logoff through the proper process otherwise the script will still assume they are logged in. '== If this happens, the user can either relog into the workstation or request their session files are deleted '== from the ServerShare, these files will be named: _.txt and .txt. 'Set Objects Set oShell = CreateObject( "WScript.Shell" ) Set objFSO = CreateObject("Scripting.FileSystemObject") ServerShare = "\\SERVERPATH\SHARE" 'Requires Users Full Read/Write Access 'Get Username & Workstation UserID=oShell.ExpandEnvironmentStrings("%UserName%") WorkstationID=oShell.ExpandEnvironmentStrings("%ComputerName%") 'Check If Login Session Is Correct To Workstation & User' If objFSO.FileExists (ServerShare & UserID & "-" & WorkstationID & ".txt") then 'Delete Session File On Logout objFSO.DeleteFile(ServerShare & UserID & "-" & WorkstationID & ".txt") objFSO.DeleteFile(ServerShare & UserID & ".txt") End If
-
At the moment out school is in the progress of moving over to moodle which i've spent months working on and now comes the time I want to let moodle see our internal resources drive which is avaliable to view for students and all staff as a course so to speak... I still want the functionality that they can click their R: drive to access it while on the school network, but while at home it'll be nice if they can log into moodle and still gain access to all the school resources... One way of doing this is to move all the resources into the moodledata dir where the course is held and then re map the drive letter for R: to the new location. The issue with that is that the moodle server has only got 500gb of space unless the disk size on the SAN is increased. On top of that, i can see it taking a while to copy that quantity of data over. The reason for this planning is because at the moment as with all schools, they store stuff all over the damn place... I want to centralise it so all they have to do is upload to one part of the school . Any advice?
-
I know of overclockers/kustompcs and scan but does anyone know of any good sites for performance PC cases. Am looking for a new Lian Li case and am scanning around the interwebs for the cheapest ?
-
Thats where i started on but the XML file in that example is very basic and doesnt contain a string as such.
-
I want to output some XML into a table into 3 columns and loops through all the values in the string. XML i plan to output. Allowed URLS *2simpleclipart.com *abpischools.org.uk I want to copy all the values going through the DomainNameStrings. Anyone able to give some quick help.
-
Been having problems just lately on our wireless network for users connecting through our Guest access SSID. The problem is that the users can connect to the wireless but after logging in on the web login they get 404'd on any web page that they try to access. This 404 comes up instantly and doesn't seem to attempt to resolve the addresses. Any help?
-
Having problems with uploading files through moodle, This used to work fine with no problem and still works with very small files. Though when trying to upload a file above say 20mb I get a 404 File not found error from IIS. As i said this used to work and the 404 is linking to a page that does exist. I've set max_upload etc in PHP and through moodle to be 1024MB so that isnt the problem. I was once able to upload 100's of MB at a time in zips. Anyone seen this problem or have any idea on how to solve it?
-
I am looking to force a shutdown on all workstations when the user log off as what often happens is that they log out and expect someone else to do it. The schedule task to run shutdown -s -t 0 doesnt seem to run while the workstations are in a standby state until woken up which doesnt help late in the evening. I've tried running shutdown.exe -s -t 0 on logoff scripts through group policy with no success. Anyone know of a way i can achieve this after the workstation has logged off. I know staff will complain but considering we're supposed to be an ECO school it doesnt show. Pls help D:
-
Right i've many questions to get through . Firstly we've got 6 imacs in our school and one server which I took a crash course on yesterday. I've set up software restrictions on the "Workgroup Manager" but having problems with RDP. Everytime it starts I get a restriction for the microsoft AU daemon? (Need fix on that) Secondly i'd like to be able to deploy a wallpaper to all of the macs which is forced on every user when they log in. Thirdly i'd like to map the home drive when the user logs on to their windows share. We also have remote desktop to deploying software out. Also... Can i restrict what is displayed on the finder bar at the top as I do not wish to allow students to view system folders etc... Please help I'm a complete newb when it comes to macs... P.S is it possible to link to AD user groups through Workgroup Manager as I dont seem to be getting any luck applying settings on a per user group basis.
-
Hey everyone, got into work this morning to again attempt to fix an on going problem with installing MediaWiki on a new 2008 built server with IIS7 and PHP. Every time i try get to a page in which i have to submit data or login to a form i get a Error 500. Permissions are set to Everyone (full acess) and IIS_IUSR (full access) and still having the same problems. Can someone please help Software builds: IIS7 PHP 5.2.9-2 MySQL Server 5.1.34-Community MediaWiki 1.14.0 Server 2008 - All updates
-
took my direct access just over a year and half ago. Only difference from what i rememeber is on a dac you take your test on a 500cc instead of 125c and are given slightly more space to preform your U turn in the test. Test itself is quite easy, i find the trying to loose your examiner in the traffic is your best way to an easy pass. Luckly when i took mine the examiner was in a car he had no chance keeping up in busy traffic. Only thing i can imagine you can easily fail on is "Signaling, checking mirrors and not putting your foot down in a U turn(instant fail)"... the A2 restricted will let you ride up to 33bhp, usually 250cc. If you want a 600cc you either wait 2 years until your A2 is unrestricted or take your dac which will entitle you to ride whatever you choose or buy a 600cc anyway and get it restricted to 33bhp but that would just be silly...
-
Myself i would recommend passing your test if not done so already and get yourself a proper bike. I ride a VFR750 to work and back every day in rain and sun and to be honest I dont really get all that wet. Not much storage on it mind without panniers and top box. Used to ride a moped two and from work and to be honest the only difference is that i felt more vunerable on the road as cars seem to think because your on a moped its ok to cut you up and overtake at stupid points. > my baby http://bikersoracle.com/vfr/forum/attachment.php?attachmentid=53253&d=1208987352
-
thats not an ideal solution though, we've got audio and video cabling in place from projector and speakers, we just want something that sits inbetween the speakers/projector and pc/laptop so it can be done with one simple button
