Jump to content

ChrisH

Edu Supporters
  • Posts

    5,590
  • Joined

Everything posted by ChrisH

  1. You will only need T6 to do the timetable. Cover moved into the main sims.net a while ago so you may struggle with support for that.
  2. I will answer any questions you have.
  3. Excel 2003 will not support .ThemeColor as a font property no doubt. Comment the lines out by putting an apostrophe before it. This is setting a colour for the font in that range.
  4. Put the computers into each class into their own OU then apply a group policy to them with the relevant user settings. To get this to work you need to enable loopback policy processing. If you search for loopback you will find plenty of information. Oh and make the relevant folders you are redirecting to writable by the staff.
  5. I would deploy office through the MSI to those machines. Either that or find where the source path is configured in the registry and change that.
  6. You can use the office resource kit to alter the MSI to allow you to specify the server settings for outlook 2003.
  7. You need the output to be an rtf.
  8. Use a wrapper procedure that runs the other 2 procedures. Edit after reading your post again I think you want to make those lines dynamic? In that case you need to mix the html with the scripting tags and variables output from the procedure eg: Current Clock SpeedResponse.Write (intClockSpeed) I am not sure if that is the right command to echo the variable but it will be something similar.
  9. Is this like the school workforce Census then?
  10. See here File Server Resource Manager Step-by-Step Guide for Windows Server 2008
  11. I'm not sure about 2008s features but I assume there are still file filter features like in 2k3 R2 where you can specify file filters on a volume. This will stop them making them, running them or copying across. Have a search as this has come up before. http://technet.microsoft.com/en-us/library/cc771092%28WS.10%29.aspx
  12. I have had always ended up paying import when I have had stuff sent to school. Having it sent to my home address has been 50%.
  13. If you post what you want and the relevant code I will help you alter it.
  14. Here is the regex for the match. Not pretty but it works And here is the replace string. So this turns something in the format of: to Are you sure you want that extra dot???
  15. I like the bulk rename utility for this type of work.
  16. I am well overdue for a new phone. I was wanting the Milestone (Droid) because of it's keyboard but this one has also peaked my interest. I just don't like thought of shelling out at the full price and prefer it to be subsidised over time by my contract
  17. I thought most had moved away from Maestro to Visa debit what bank you with?
  18. Idd looking good.
  19. I think we have that one. If it is the same it's a very fast printer I can tell you that much. 100% reliable so far being used in the office though and not a classroom .
  20. Congrats
  21. This code probably wont work straight off as I just pasted a few of my scripts together and I am in a rush. It assumes your different startmenus are stored like: \\server\share\apps\StartMenus\ict1 \\server\share\apps\StartMenus\ict2 \\server\share\apps\StartMenus\comm It grabs the first 4 letters of the comp name to identify. There is stuff from other scripts that is not needed but it should be a start. ' Begin Variable declaration Set ObjShell = CreateObject("Shell.Application") Set WshShell = WScript.CreateObject("WScript.Shell") Set WshNetwork = CreateObject("WScript.Network") Set ObjFSO = CreateObject("Scripting.FileSystemObject") 'Begin Constant Declaration Const Robo_Options = "/e /zb /copyall /r:3 /w:1 /purge" Const Start_Menu_Source = "\\server\share\apps\StartMenus\" Const Start_Menu_Destination = "C:\StartMenus" 'Begin Object Declaration Set ObjShell = CreateObject("WScript.Shell") StrComputerName = Left(LCase(WshNetwork.ComputerName),4) Select Case (Left(StrComputerName, 4)) Case "ict1" strStartMenuPath = Start_Menu_Source & "ict1" Case "ict2" strStartMenuPath = Start_Menu_Source & "ict2" Case "comm" strStartMenuPath = Start_Menu_Source & "comm" Case Else ' WScript.Echo "No default printers added" End Select 'End printer Case Statements 'If the folder StartMenus Exists then Delete it If objFSO.FolderExists(Start_Menu_Destination) Then 'objFSO.DeleteFolder(Start_Menu_Destination) End IF 'Copy the folder StartMenus from the network share objFSO.CopyFolder strStartMenuPath,Start_Menu_Destination In a GPO redirect start menus to c:\StartMenus
  22. You can speed up macros a lot by using the following code Application.ScreenUpdating = False 'YOUR CODE Application.ScreenUpdating = True and some commenting out would have saved you abusing your enter key Sub StyleKill() Dim styT As Style Dim intRet As Integer For Each styT In ActiveWorkbook.Styles If Not styT.BuiltIn Then ' intRet = MsgBox("Delete style '" & styT.Name & "'?", vbYesNo) ' If intRet = vbYes Then styT.Delete End If Next styT End Sub
  23. Could your script not be made into straight VB? These type of converters have been discussed here before and the general consensus was that these programs seem to just compress the thing and then run it from a temp file. I assume your script is using run somewhere or something? One option would be to use autoit as that has a native compiler and there seems to be some run as examples. http://www.autoitscript.com/forum/index.php?showtopic=77936 EDIT looks like the command was renamed with different functionality if you read that thread but you could investigate the rest.
  24. The Moodle part does not give as much functionality as the proper install on the computer. There are certain sections that are unavailable. I just installed it at the request of the department.
  25. See my edit and see if that works first.
×
×
  • Create New...