box_l

@ sam_brown. I see what you did there..

I would use preferences for XP. Just make sure you have the clientside preferences installed on XP

Also make sure to remove any .ins files left in the policy folders in sysvol as these seem to take "preference" over "preferences". Even if you cannot see Internet explorer maintenance, these files are stiil there.

Thanks for the reply. I do have a logging script that runs at shutdown, I'll move them to a different ou tomorrow and see if it makes a difference. BoX

I have these in one of my schools, no complaints and not as pricey as some others. Ergotron Products>Charging Carts & Modules

Hi, Sorry to ressurect an old thread, but this just cropped up for me. Did anyone ever find out what the issue was? BoX

ENFJ Me too

Try this, I wrote it a while back and its a bit messy really, but it works for XP. I hope it helps you on your path, ;-) BoX Dim FSO Dim strComputer, objNetwork, objWMIService Dim colItems, objItem Dim objFileSystem, objOutputFile Dim strOutputFile Dim strDirectory Dim objFSO Const NETSETUP_ACCT_DELETE = 2 Const OverwriteExisting = True Const LocalDocumentsFolder = "C:\Documents and Settings\" 'local administrator user/pass to leave Domain and for auto logon. ' Edit these to suit your domain strUser = "LocalAdministrator" strPassword = "*********" strAdmin = "DomainAdministrator" strAdminPass = "*********" Set objShell = CreateObject("Wscript.Shell") 'Set objFSO = CreateObject("Scripting.FileSystemObject") 'set objFolder = objFSO.GetFolder(localdocumentsfolder) ' generate JoinDomain script strOutputFile = "c:\joindomain.vbs" Set objFileSystem = CreateObject("Scripting.fileSystemObject") Set objOutputFile = objFileSystem.CreateTextFile(strOutputFile, TRUE) ' Get Domain name strComputer = "." Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery ("Select * from Win32_ComputerSystem") For Each objItem in colItems strDomain = objItem.domain 'write contents to the file 'this file is run by runonce at logon and the self deletes objOutputFile.WriteLine("DIM objFSO") objOutputFile.WriteLine("Const JOIN_DOMAIN = 1") objOutputFile.WriteLine("Const ACCT_CREATE = 2") objOutputFile.WriteLine("Const ACCT_DELETE = 4") objOutputFile.WriteLine("Const WIN9X_UPGRADE = 16") objOutputFile.WriteLine("Const DOMAIN_JOIN_IF_JOINED = 32") objOutputFile.WriteLine("Const JOIN_UNSECURE = 64") objOutputFile.WriteLine("Const MACHINE_PASSWORD_PASSED = 128") objOutputFile.WriteLine("Const DEFERRED_SPN_SET = 256") objOutputFile.WriteLine("Const INSTALL_INVOCATION = 262144") objOutputFile.WriteLine("strDomain = " & Chr(34) & strDomain & Chr(34) & "") 'objOutputFile.WriteLine("Set objShell = CreateObject("Wscript.Shell")") objOutputFile.WriteLine("Set objShell = CreateObject(" & Chr(34) & "Wscript.Shell" & Chr(34) & ")") 'add jondomain.vbs to runonce in the registry ' set auto logon 'objOutputFile.WriteLine("path2 = " & Chr(34) & "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\winlogon" & Chr(34) & ) 'objOutputFile.WriteLine("objShell.RegWrite path2 & " & Chr(34) & "\DefaultDomainName" & Chr(34) & "," & Chr(34) & strDomain & Chr(34) & "," & Chr(34) & "REG_SZ" & Chr(34) & ) 'account with joindomian permissions objOutputFile.WriteLine("strPassword = " & Chr(34) & strAdminPass & Chr(34) & "") objOutputFile.WriteLine("strUser = " & Chr(34) & strAdmin & Chr(34) & "") objOutputFile.WriteLine("Set objFSO = CreateObject(" & Chr(34) & "Scripting.FileSystemObject" & Chr(34) & ")") objOutputFile.WriteLine("Set objNetwork = CreateObject(" & Chr(34) & "WScript.Network" & Chr(34) & ")") objOutputFile.WriteLine("strComputer = objNetwork.ComputerName") objOutputFile.WriteLine("Set objComputer = _") objOutputFile.WriteLine(" GetObject(" & Chr(34) & "winmgmts:{impersonationLevel=Impersonate}!\\" & Chr(34) & " & _") objOutputFile.WriteLine(" strComputer & " & Chr(34) & "\root\cimv2:Win32_ComputerSystem.Name='" & Chr(34) & " _") objOutputFile.WriteLine(" & strComputer & " & Chr(34) & "'" & Chr(34) & ")") objOutputFile.WriteLine("ReturnValue = objComputer.JoinDomainOrWorkGroup(strDomain, _") objOutputFile.WriteLine(" strPassword, _") objOutputFile.WriteLine(" strDomain & " & Chr(34) & "\" & Chr(34) & " & strUser, _") objOutputFile.WriteLine(" NULL, _") objOutputFile.WriteLine(" JOIN_DOMAIN + ACCT_CREATE ,True)") objOutputFile.WriteLine("") objOutputFile.WriteLine("strComputer = " & Chr(34) & "." & Chr(34) & "") objOutputFile.WriteLine("Set objWMIService = GetObject(" & Chr(34) & "winmgmts:" & Chr(34) & " _") objOutputFile.WriteLine(" & " & Chr(34) & "{impersonationLevel=impersonate,(Shutdown)}!\\" & Chr(34) & " & _") objOutputFile.WriteLine(" strComputer & " & Chr(34) & "\root\cimv2" & Chr(34) & ")") objOutputFile.WriteLine("") objOutputFile.WriteLine("Set colOperatingSystems = objWMIService.ExecQuery _") objOutputFile.WriteLine(" (" & Chr(34) & "Select * from Win32_OperatingSystem" & Chr(34) & ")") objOutputFile.WriteLine("") objOutputFile.WriteLine("For Each objOperatingSystem in colOperatingSystems") objOutputFile.WriteLine(" objOperatingSystem.Reboot()") objOutputFile.WriteLine("'Delete Self") objOutputFile.WriteLine("objFSO.DeleteFile WScript.ScriptFullName") objOutputFile.WriteLine("Set objFSO = Nothing") objOutputFile.WriteLine("Next") 'close file objOutputFile.Close 'add jondomain.vbs to runonce in the registry path = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunOnce\joinDomain" objShell.RegWrite path, "c:\joindomain.vbs", "REG_SZ" ' set auto logon path2 = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\winlogon" objShell.RegWrite path2 & "\AutoAdminLogon", "1", "REG_DWORD" objShell.RegWrite path2 & "\DefaultUserName", strUser, "REG_SZ" objShell.RegWrite path2 & "\DefaultPassword", strPassword, "REG_SZ" 'objShell.RegWrite path2 & "\DefaultDomainName, local, "REG_SZ" WScript.Sleep(12000) 'call delete profiles function delprof 'Wait for profiles to be deleted WScript.Sleep(300000) 'Leave Domain Set objNetwork = CreateObject("WScript.Network") strComputer = objNetwork.ComputerName Set objComputer = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\" & _ strComputer & "\root\cimv2:Win32_ComputerSystem.Name='" & strComputer & "'") strDomain = objComputer.Domain intReturn = objComputer.UnjoinDomainOrWorkgroup _ (strPassword, strDomain & "\" & strUser, NETSETUP_ACCT_DELETE ,True) 'reboot strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate,(Shutdown)}!\\" & _ strComputer & "\root\cimv2") Set colOperatingSystems = objWMIService.ExecQuery _ ("Select * from Win32_OperatingSystem") For Each objOperatingSystem in colOperatingSystems objOperatingSystem.Reboot() Next Next 'function to delete profiles Function Delprof() On Error Resume Next Dim obtainfolder Dim Pathfinder Dim strPath Set fso = CreateObject("Scripting.FileSystemObject") strPath = "C:\Documents and Settings\" userexcludelist = "Administrator,All Users,Default User,localservice,networkservice" Set f = fso.GetFolder(strPath) ' Loop through all subfolders For Each fldrItem in f.SubFolders fldrName = fldrItem.name If Right(strPath,1) <> "\" Then Pathfinder = strPath & "\" & fldrName Else Pathfinder = strPath & fldrName End If If InStr(1, userexcludelist, fldrName, 1) Then Else set obtainfolder = fso.GetFolder(Pathfinder) obtainfolder.Delete true End If Next ' Clean up objects Set fso = Nothing Set fc = Nothing End Function

I never found or created a good one, however I did use Cameyo App Library And this works just fine on a wired network, I have not tried a classfull of laptops tho' BoX

TMG is already unavaliable for licencing.

Also check cache settings on the users share. Xp seems to ignore this bur 7 does not. BoX

Glad to help.

onebynine

Beef up your UPS - Hack a Day

Could you not move the power injector to the cabinet end? Maybe this is not practical in your case?

Bit of an old thread, but I thought I might resurrect as I have xibo running as a screensaver on windows 7. (not tested XP) Screenlauncher from bartdart.com -- freeware for you works for me. You need to ctrl-alt-del to get back to a login. BoX

dir /s /a-d /b /on-s >> ./File_Listing.txt BoX

I know you are a long way off but if you need to contact me direct about configuring a sonicwall pm me for my email. I have setup quite a few of these now. BoX

I was the originator of that other thread, and did not like the way InTouch worked. However, I did have it working and ended up creating a script for ISA 2000 so that if we hat to do any other schools we could easily replicate the settings. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' This program is Coyyright (c) 2001 Microsoft Corporation. ' All rights reserved. ' THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF ' ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO ' THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A ' PARTICULAR PURPOSE. ' IN NO EVENT SHALL MICROSOFT AND/OR ITS RESPECTIVE SUPPLIERS BE ' LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY ' DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, ' WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ' ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE ' OF THIS CODE OR INFORMATION. ' ' This script only functions with Standalone ISA Servers ' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' This script imports policy elements, access policies, publishing and routing rules for Sims InTouch to the target array. Const ERROR_ALREADY_EXISTS = 183 Sub CheckError() On Error Resume Next If (Err.Number <> 0) And (Err.Number <> ERROR_ALREADY_EXISTS) Then MsgBox "An error has occured:"& vbCrLf & Err.Description & Err.Number WScript.Quit Err.Number End If End Sub On Error Resume Next Set ISA = CreateObject("FPC.Root") ISA.Refresh Set ISAArray = ISA.Arrays.GetContainingArray Set Elements = ISAArray.PolicyElements Set APolicy = ISAArray.ArrayPolicy Set Publishing = ISAArray.Publishing Set RoutingRules = ISAArray.NetworkConfiguration.RoutingRules '------------------------------------------------------- Set ProtocolRules = APolicy.ProtocolRules Set NewRule = ProtocolRules.Add ("** Allow Sims In-Touch in**") CheckError NewRule.Description = "" NewRule.Enabled = True NewRule.Action = 0 NewRule.SetSchedule (" ") NewRule.ProtocolSelectionMethod = 1 NewRule.SpecifiedProtocols.Add "** Sims_In-Touch_VPN**", "", 0 NewRule.AppliesToMethod = 0 ProtocolRules.Save CheckError '------------------------------------------------------- Set Protocols = Elements.Protocoldefinitions Set NewDefinition = Protocols.AddUDP ("** Sims_In-Touch_VPN**",3,1194) CheckError NewDefinition.Description = "" 'NewDefinition.SecondaryConnections.AddUDP 2,1194,1194 Protocols.Save CheckError '------------------------------------------------------- Set PacketFilters = APolicy.IpPacketFilters Set NewPFilter = PacketFilters.Add ("** Allow Sims In-Touch VPN **", 1) CheckError NewPFilter.Description = "" NewPFilter.Enabled = True NewPFilter.FilterType = 1 NewPFilter.AllServers = True NewPFilter.ServerName = "" NewPFilter.ICMPCodeNumber = 0 NewPFilter.ICMPCodeOption = 1 NewPFilter.ICMPTypeNumber = 0 NewPFilter.ICMPTypeOption = 1 NewPFilter.LocalPortNumber = 1194 NewPFilter.LocalPortType = 1 NewPFilter.LogMatchingPackets = False NewPFilter.PacketDirection = 3 NewPFilter.ProtocolNumber = 17 NewPFilter.RemotePortNumber = 1194 NewPFilter.RemotePortType = 2 NewPFilter.UDPPacketDirection = 5 NewPFilter.SetLocalHost 1, "", "255.255.255.255" NewPFilter.SetRemoteHost 2, "213.129.90.253", "255.255.255.255" '--- [color="#FF0000"]Remote host is Capita server, you may need to change this if their address has changed![/color] Set NewPFilter = PacketFilters.Add ("** Allow Sims In-Touch DHCP Client **", 1) CheckError NewPFilter.Description = "" NewPFilter.Enabled = True NewPFilter.FilterType = 1 NewPFilter.AllServers = True NewPFilter.ServerName = "" NewPFilter.ICMPCodeNumber = 0 NewPFilter.ICMPCodeOption = 1 NewPFilter.ICMPTypeNumber = 0 NewPFilter.ICMPTypeOption = 1 NewPFilter.LocalPortNumber = 68 NewPFilter.LocalPortType = 1 NewPFilter.LogMatchingPackets = False NewPFilter.PacketDirection = 3 NewPFilter.ProtocolNumber = 17 NewPFilter.RemotePortNumber = 67 NewPFilter.RemotePortType = 2 NewPFilter.UDPPacketDirection = 5 NewPFilter.SetLocalHost 1, "", "" NewPFilter.SetRemoteHost 2, "213.129.90.253", "255.255.255.255" '--- [color="#FF0000"]Remote host is Capita server, you may need to change this if their address has changed![/color] Set NewPFilter = PacketFilters.Add ("** Allow Sims In-Touch HTTP out port 1110 **", 1) CheckError NewPFilter.Description = "" NewPFilter.Enabled = True NewPFilter.FilterType = 1 NewPFilter.AllServers = True NewPFilter.ServerName = "" NewPFilter.ICMPCodeNumber = 0 NewPFilter.ICMPCodeOption = 1 NewPFilter.ICMPTypeNumber = 0 NewPFilter.ICMPTypeOption = 1 NewPFilter.LocalPortNumber = 0 NewPFilter.LocalPortType = 1 NewPFilter.LogMatchingPackets = False NewPFilter.PacketDirection = 3 NewPFilter.ProtocolNumber = 6 NewPFilter.RemotePortNumber = 1110 NewPFilter.RemotePortType = 2 NewPFilter.UDPPacketDirection = 3 NewPFilter.SetLocalHost 1, "", "255.255.255.255" NewPFilter.SetRemoteHost 1, "", "" PacketFilters.Save CheckError '------------------------------------------------------- MsgBox "ImportISASettings finished succesfully. You should restart your ISA services." You may need to make some changes, or just plain use the info for you version of ISA. I was in contact with Capita alot trying to get this to work. To start with they only specified that it was port 1194 that needed to be open, but there is so much more! They seemed quite suprised that a fire wall would be so .. well.. secure. The school also had a single server solution, and as such, had IIS on the ISA server and was also running the intranet from there. The capita INTouch services ran from IIS and they were bound to the VPN adapter whose address was assigned by DHCP from Capita's servers. On a server reboot this would cause an issue, as the VPN would sometimes fail to get an IP, which in turn would prevent IIS from starting, so preventing the intranet from being avaliable. In this school the intranet is the home page and evryone would then complain that the "internet" was not working. After 3 months of this the school gave up on InTouch. I sincerely hope you do not have a similar setup. Have fun, BoX

This works brilliantly, proxyswitch - Proxy Switch is a simple application to switch the system proxy settings in Windows on the fly. - Google Project Hosting. It works on the fly, no need to restart the browser at all. BoX

SYSMAN_MK Sorry for the delay, today is actually the first day I have been back to the school in question. I have just spoken with the head teacher and she is very pleased with your work. There may be a couple of tiny tweaks, (font etc), but if you send me the .svg I can do the editing if need be. She does not know which font to use yet. I have also been working through some inkscape tutorials so that I have another string to my bow. Thanks for all your hard work. BoX

This happened to me too a few years back, i have learnt my lesson, kids do not want the healthy option! nephillim, I thought that when they said trick or treat, if you say trick, it is them that plays the trick on you, not you playing a trick on them. BoX

You are a star, thank you. I will check with the school, but it looks great to me. I think the diamonds need rotating 90 degrees tho' BoX

Hi, I have been asked by one of my schools if I can get their school logo updated. I have tried in inkscape, but it seems i dont have the skills. They need the text Walford Primary School circle around the image with A small diamond at approx 9 o'clock and 3 o'clock The thing that looks like a road is in fact a river with 3 golden fishes swimming in it! Please could you try and keep a bit of the naievety as it was designed in a school competition. Thanks in advance. BoX

If you have an android phone you can use for school, try this. Inventory Droid It looks very cheap compared to all the big names out there. It can save all the details to a networked pc in the school too. BoX