Duke5A

Do you guys have the same issues we do with mega banks? Ones that are so stinking big that if they tank they'll take down entire swaths of the economy with them? We used to have laws on the books both preventing banks from growing this large and separating investment and commercial banking, but alas, these protections were widdled away over the years.

Global Warming or not, one thing we can all agree on is that there will be people gaming the debate on both sides to make money. In my state we just defeated a proposal last November that would have upped the state's percentage of power that is generated from renewable resources from 10% to 25% by 2020. Of course if you looked at the funding going into the ad campaign in favor of this a large portion was coming from firms that have stakes in renewable energy. The proposal would have made this law by amending the state constitution. Think of the children/environment can be strong motivational rally cries for a cause. I'm just glad we saw through this one.

You'll have to change some paths around for Windows Vista/7, but this works. You can even set folders that you don't want deleted. Call DoStuff Sub DoStuff Const LocalDocumentsFolder = "C:\Documents and Settings\" Set objFSO = createobject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(localdocumentsfolder) If MsgBox("Nuke local profiles?", vbQuestion + vbYesNo) = vbYes Then 'Do Nothing Else Exit Sub End If On Error Resume Next For Each fldr in objFolder.SubFolders If Not isexception(fldr.name) Then objFSO.DeleteFolder fldr.path, True intCount = intCount + 1 End if Next MsgBox "Operation completed. " & intCount & " local profile directories deleted." End Sub Function isException(byval foldername) select case foldername case "All Users" isException = True case "Default User" isException = True case "LocalService" isException = True case "NetworkService" isException = True case "Administrator" isException = True case "tech" isException = True case "administrator.DOMAIN" isException = True case Else isException = False End Select End Function

I used to run both side by side in my base image without issue. Eventually I pulled out the 64bit version though and nobody has missed it. Way too much of a PITA to update one install of Java, let alone two.

Computer Configuration > Policies > Administrative Templates > System > Device Installation > Specify search order for driver source locations. Set Windows Update to last.

The access points are probably stepping all over each other. Managed systems have the ability to detect neighboring access points and change channels as needed, but unmanaged is just going to sit where it's at. If they're picking up the 3com access points and one from nearby houses/wifi hotspots this could be your issue. Either way, I would pull all the 3com access points and swap them for your newly managed ones around the building to try and segregate them to one corner of the building.

You basically have two options for reading and listing: Traverse folder / execute file List folder / read data Traverse folder will allow you to navigate top level folders down to a file you have read access to. It will not show you files or folders along the way you do not have read to. List folder will give you full read. If students can list and see the files then they're going to have read.

Our filtering is handled by our ISD (our version of your LEA). Our firewall is an ancient Cisco PIX (hopefully soon ASA) and I use Squid internally for traffic logging with it authenticating against AD using Kerberos (filtering is setup as a cache peer). The traffic logs are parsed every night by SARG for viewing. All in all, it's a great setup and if filtering were passed back down to us, I'd use DG in a heartbeat.

Are other machines having issues reading this policy? If you go into RSOP.msc, right click computer configuration, select properties, and go to the error information it should give verbose error messages. Before getting midevil with it though, if no other machines in the OU exhibit any issues, I would leave the domain and rejoin it.

We had the exact same issue. Windows would look at Windows Update for drivers before checking its own local driver cache. The problem is we use authenticated web proxies to get outside and when Windows is at a login screen it doesn't have proxy settings since the GPO that assigns said proxies is under the user configuration. Rather than disabling the searching of Windows Update altogether I changed the search order and moved it to the bottom. This way it won't get in the way of plugging in keyboards and mice when sitting at a login screen, but it'll still work for when a user is logged in and plugs in an oddball printer that the system doesn't have local drivers for.

Give this a read: 802.1X Authenticated Wired Access Overview You can setup 802.1x on a wired network just like you can a wireless network. If you don't have AD credentials that match the criteria setup on your Radius server, you don't get on. You do need managed switches though that are capable of supporting this and I don't know how it would play out with Macs. Another option is to look into port security on the switches. It's basically MAC filtering like what you would find on wireless routers/access points only it's for wired ports. Either way though, you're going to be adding overhead to your managing of the network.

If you're still plugging away at this, give this a try: Const strHomeDrive = "H" Const strHomePath = "\\server\basehomeshare\" Dim strFailLog Call Main Call WriteLog Sub Main Set oContainer = GetObject("LDAP://OU=Users,DC=domain,DC=com") oContainer.Filter = Array("user") For Each User in oContainer strName = User.samaccountname If CheckPathExist(strName) = True Then User.Put "homedrive", strHomeDrive User.Put "homedirectory", strHomePath & strName User.SetInfo Else strFailLog = strName & " | " & strFailLog End If WScript.Sleep 70 Next Msgbox "Jobs Done!" End Sub Sub WriteLog strFileName = "LogFile.txt" Set objFileSys = CreateObject("Scripting.FileSystemObject") Set objFile = ObjFileSys.CreateTextFile(StrFileName) objFile.Write(strFailLog) objFile.Close End Sub Function CheckPathExist(strName) Set objFileSys = CreateObject("Scripting.FileSystemObject") blnExists = objFileSys.FolderExists(strHomePath & strName) CheckPathExist = blnExists End Function I used this to bulk change the base the home folder path a few years ago when we changed the staff home folder location. It might take some editing to make it work for you. The way it is setup it assumes you have one top level share with folders under that named according to account name. I hope this helps.

I'm wondering if hotfixes fixed your original problem, but mrxsmb10.sys was replaced again back to an older bugged version through an update or sort. I'd check the version of this file against the one included in the hotfix. This system file is basically responsible for handling SMB 1.0 traffic. Windows 2k through Server 2003 R2 used SMB 1.0. There has to be some kind of scheduled connection either going out of that server, or into it using SMB 1.0 at the crash time.

Photo Story 3 and Movie Maker 2.6.

I guess it would be nice to know when it was done processing an OU. Check your users. If you didn't see a message box in initial run then it flipped the names. If you ran it a second time then it would flip the names again. Set oContainer = GetObject("LDAP://OU=Staff,OU=Users LPS,DC=domain,DC=com") oContainer.Filter = Array("user") For Each User in oContainer on error resume next strOldSN = User.SN strOldFN = User.FirstName User.SN = strOldFN User.FirstName = strOldSN User.FullName = strOldSN & Chr(32) & strOldFN User.SetInfo wscript.sleep (100) If err.number <> 0 Then msgbox "Error: " & strOldSN end if Next Msgbox "Work is done!"

Set oContainer = GetObject("LDAP://OU=Staff,OU=Users LPS,DC=domain,DC=com") oContainer.Filter = Array("user") For Each User in oContainer on error resume next strOldSN = User.SN strOldFN = User.FirstName User.SN = strOldFN User.FirstName = strOldSN User.FullName = strOldSN & Chr(32) & strOldFN User.SetInfo wscript.sleep (100) If err.number <> 0 Then msgbox "Error: " & strOldSN end if Next Change the LDAP path to match the OU you want to run it in. You need to isolate the users though that have their names flipped (you would have to do this regardless of what scripted solution you use). I hope this helps.

You could give this a try: VB Script to snoop DHCP logs - Blogs - EduGeek.net The only issue I would see with using ping is if the host you're tying to monitor doesn't respond to ICMP requests. It would be best to parse the DHCP server logs.

A forum post got me to thinking about a script to parse DHCP logs to notify someone when a particular MAC checks in with the server. You can run this script as a reoccurring task on the DHCP server and when it finds a match for the desired MAC it will send an email regarding the activity. This script will also keep a log of its own to prevent multiple email messages for the same log entry it finds. I've run this in a production environment with an internally hosted Exchange server and it works. You may need to debug a little depending on your environment. The On Error Resume Next line in the email function is to prevent the script from hanging if there is an error with the mail server. If that were to happen without it there instances of wscript.exe would keep spawning and never exit each time the scheduled task would fire. Call Main Sub Main 'MAC to find strFindMAC = "xxxxxxxxxxxx" Set objFSO = CreateObject("Scripting.FileSystemObject") Const ForReading = 1 Const ForWriting = 1 'Determine log name based on day of week strLogPath = "c:\windows\system32\dhcp\" strWeekDay = weekdayname(weekday(date)) strFullLogPath = strLogPath & "DhcpSrvLog-" & Left(strWeekday,3) & ".log" 'Check to see if log exists If objFSO.FileExists(strFullLogPath) Then 'Do Nothing Else WScript.Quit End If 'Open DHCP log file for reading Set objDHCPLogFile = objFSO.OpenTextFile(strFullLogPath, ForReading) 'Copy file contents into string strDHCPLogFile = objDHCPLogFile.ReadAll objDHCPLogFile.Close 'Break into individual lines arrLines = Split(strDHCPLogFile,vbCrLf) 'Loop through the array and build another array of lines that contain the MAC For Each strLine in arrLines If InStr(strLine, strFindMAC) Then intCount = intCount + 1 ReDim Preserve arrFound(intCount) arrFound(intCount) = strLine End If Next 'If no matches are found then abort the script If intCount = 0 Then WScript.Quit End If 'Get the last line of matching MAC log entries strLastLine = arrFound(intCount) 'Split the log entry on commas and dump to array arrLastLine = Split(strLastLine, Chr(44)) 'Format message strDate = arrLastLine(1) strTime = arrLastLine(2) strAction = arrLastLine(3) strIPAddress = arrLastLine(4) strHostName = arrLastLine(5) strMessage = "MAC address " & strFindMAC & " has checked into the DHCP server on " & strDate & " at " & strTime & "." & Chr(13) _ & strIPAddress & " was " & strAction & "ed" & " to hostname " & strHostName & "." 'This next block of code will read/write a log for the script itself. This will prevent the script from sending multiple 'emails for the same DHCP log entry. 'Check to see if script log exists If objFSO.FileExists("DHCPScriptLog.txt") Then 'Read log and get the time Set objScriptLogFile = objFSO.OpenTextFile("DHCPScriptLog.txt", ForReading) strLastTime = objScriptLogFile.ReadAll objScriptLogFile.Close 'If the last time matches the time pulled from the DHCP log then quit the script If strLastTime = strTime Then WScript.Quit End If End If 'Write the log file Set objScriptLogFile = objFSO.CreateTextFile("DHCPScriptLog.txt", ForWriting) objScriptLogFile.Write strTime objScriptLogFile.Close 'Call the email function to send the message Email(strMessage) End Sub Function Email(strMessage) On Error Resume Next Set objMessage = CreateObject("CDO.Message") objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.domain.com" objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objMessage.Configuration.Fields.Update objMessage.Subject = "DHCP Log Script" objMessage.From = "[email protected]" objMessage.To = "[email protected]" objMessage.TextBody = strMessage objMessage.Send End Function

What flavor of Windows 8 came with them? I remember one of the terms of EES licensing was the clients had to come with a previous license of Windows that was at least Pro.

Speaking of 500 series boards and those annoying RS232 cables: Smart USB-FRU | Smartboard Serial To Usb cable | Smart Board USB-FRU - I've still got a fleet of 500 series boards and we use the above cables to plug them in USB. Don't have to screw around with drivers either as they're already present in the Smartboard software install.

I didn't know you had to pay either. I use their service and still doesn't cost me anything, but I might be grandfathered in or something. I've had an account with them for almost a decade. That sucks too since most home routers have DynDNS support built right in.

Through GPO? Not that I've ever heard. This is something that needs to be handled by a proxy or filtering appliance.

Give this a read: VB script for creating student drop boxes - Blogs - EduGeek.net I was asked to do pretty much the thing same over the summer. I hope this helps.

What about in the icap settings at the top: icap_send_client_username on The only way for it to be able to include the username would be to prompt for authorization and this is further up the chain than your bypass acl.

Yeah, no doubt! This kind of heavy handed approach to handling employees is no different than the corporate cube farm; all work and no play. There is something to be said for balancing employee moral. You reach a point productivity will suffer because your staff loathes their job. Aside from all this, if you can't trust a teacher to manage their time with Facebook, how can you trust them in regards to other time wasters they do have access to? We've had Facebook, eBay, Craigslist, and other sites open to staff now (we do keep extensive logs though) for two years and have yet to have an issue.