Danlewis3

We use an ISA server, all the script does is makes a html page so all members of staff can see whom is banned from the internet

another for spice works

We have a group in AD where all the users go where there internet has been disabled. a script i use to make a html page so anyone can see the users in the group. Set on a task on the server that polls it every 15 mins and recreates the html document. Dim objGroup, objUser, objFSO, objFile, strDomain, strGroup, Domain, Group strDomain = "DOMAIN NAME" strGroup = "Ban Internet" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.CreateTextFile("\\192.168.16.28\c$\inetpub\Internet Ban \index.html") Set objGroup = GetObject("WinNT://" & strDomain & "/" & strGroup & ",group") objFile.WriteLine "" objFile.WriteLine " " objFile.WriteLine " " objFile.WriteLine " " objFile.WriteLine "" objFile.WriteLine " " objFile.Write" Internet Ban List" objFile.WriteLine " If you have any issues with this email [email protected] The ban is for a week unless stated otherwise. " For Each objuser In objGroup.Members objFile.WriteLine objuser.Name & " - " & objuser.Fullname & " - " & objUser.description & " " Next objFile.WriteLine " Created on" objfile.writeline (FormatDateTime(date(),vblongdate)) objfile.write (time()) objfile.writeLine " This is refreshed every 15mins" objfile.writeline "" objFile.WriteLine "" objFile.WriteLine "" objFile.Close Set objFile = Nothing Set objFSO = Nothing Set objUser = Nothing Set objGroup = Nothing

Well it all depends on the emails. If they are using work email address it may get blocked. Put it on the website in a strange location. And make sure the robots.txt does not cache it. Then the only way people will be able to find the bulitin is if they are given the link directly.

I personally wouldnt give the option of the attachment. I would upload it all to the school website and link it via the email.

a script i have cutdown. Messy yes! Public menutype, obj, WshNetwork, fs, adsDomainGroups Set obj = CreateObject("WScript.Shell") Set WshNetwork = CreateObject("WScript.Network") domain = WshNetwork.UserDomain Set adsDomainGroups = GetObject("WinNT://" & domain) Set fs = CreateObject("Scripting.FileSystemObject") regkey = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\" ' If an error occurs in the script, the script carries on to the next section. Comment out to Fault find. On Error Resume Next ' Reads the room registry key room = obj.regread("HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName\room") ' Reads the room key and if it = "SERVER" stops the script running. Put the word "SERVER" in all servers room keys If room = UCase ("SERVER") Then Msgbox "This is the " & room & "." & vbTab & "Stopping the script" & vbCr & "Right click the script and select edit" WScript.quit Else End If ' Sets / collects fixed setings UserName = UCase(WshNetwork.UserName) server = "\\wbnas01" 'Change to match the users server homeserver = "\\wbnas01" printserver = "\\Print-server" officeversion = "2003" 'Change to match the users office version home = "N:" ' Put the users home drive letter here. ' Enumerates printer connections and deletes them Set oPrinters = WshNetwork.EnumPrinterConnections For Counter = 0 to oPrinters.Count - 1 IF mid(oPrinters.Item(Counter + 1), 1, 2) = "\\" Then PrinterPath = oPrinters.Item(Counter + 1) WshNetwork.RemovePrinterConnection PrinterPath, True, True End If Next 'Match's rooms to printers If room = "ROOM 7" Then PrinterPath1 = printserver & "\suite 7 Multifunctional" Wshnetwork.addwindowsprinterconnection Printerpath1 Wshnetwork.setdefaultprinter printserver & "\suite 7 Multifunctional" ElseIf room = "ROOM 8" Then PrinterPath1 = printserver & "\suite 8 Multifunctional" Wshnetwork.addwindowsprinterconnection Printerpath1 Wshnetwork.setdefaultprinter printserver & "\suite 8 Multifunctional" ElseIf room = "ROOM 9" Then PrinterPath1 = printserver & "\suite 9 Multifunctional" Wshnetwork.addwindowsprinterconnection Printerpath1 Wshnetwork.setdefaultprinter printserver & "\suite 9 Multifunctional" ElseIf room = "ROOMSB6" Then PrinterPath1 = printserver & "\6thForm MultiFunctional" Wshnetwork.addwindowsprinterconnection Printerpath1 Wshnetwork.setdefaultprinter printserver & "\6thForm MultiFunctional" ElseIf room = "ROOMSM6" Then PrinterPath1 = printserver & "\6thForm MultiFunctional" Wshnetwork.addwindowsprinterconnection Printerpath1 Wshnetwork.setdefaultprinter printserver & "\6thForm MultiFunctional" ElseIf room = "ROOMSR6" Then PrinterPath1 = printserver & "\6thForm MultiFunctional" Wshnetwork.addwindowsprinterconnection Printerpath1 Wshnetwork.setdefaultprinter printserver & "\6thForm MultiFunctional" ElseIf room = "ROOMSF6" Then PrinterPath1 = printserver & "\6thForm MultiFunctional" Wshnetwork.addwindowsprinterconnection Printerpath1 Wshnetwork.setdefaultprinter printserver & "\6thForm MultiFunctional" ElseIf room = "ROOM 10" Then PrinterPath1 = printserver & "\Suite 10 MultiFunctional" Wshnetwork.addwindowsprinterconnection Printerpath1 Wshnetwork.setdefaultprinter printserver & "\Suite 10 MultiFunctional" ElseIf room = "ROOM D5" Then PrinterPath1 = printserver & "\Design BizHub 253" Wshnetwork.addwindowsprinterconnection Printerpath1 Wshnetwork.setdefaultprinter printserver & "\Design BizHub 253" ElseIf room = "Design04" Then PrinterPath1 = printserver & "\mfdkmc253design" Wshnetwork.addwindowsprinterconnection Printerpath1 Wshnetwork.setdefaultprinter printserver & "\mfdkmc253design" ElseIf room = "LAB 8" Then PrinterPath1 = printserver & "\Lab 8 Multifunctional" Wshnetwork.addwindowsprinterconnection Printerpath1 Wshnetwork.setdefaultprinter server & "\Lab 8 Multifunctional" ElseIf room = "LIBRARY" Then PrinterPath1 = printserver & "\Library Bizhub 250" Wshnetwork.addwindowsprinterconnection Printerpath1 Wshnetwork.setdefaultprinter printserver & "\Library Bizhub 250" ElseIf room = "ROOM24F" Then PrinterPath1 = printserver & "\room24hp1015" PrinterDriver1 = "HP LaserJet 1200 Series PCL 6" Wshnetwork.addwindowsprinterconnection Printerpath1, Printerdriver1 Wshnetwork.setdefaultprinter server & "\room24hp1015" Else End If

Dell Optiplex 745 Pentium D - 2800 3GB RAM 8600 nvidia graphics card with 1GB ram 120GB hard Drive Have keyboard + mouse 15" Monitor £200 + Delivery

Add it how? shares or iscsi?

i would rather have one on a scheduled task like you can with the above then if any one needs a computer suite leaving on longer you can change the task quicker than changing a group policy.

Good shutdown script dependent on the ou you pick OPTION EXPLICIT DIM cn,cmd,rs DIM objRoot DIM strRoot, strFilter, strScope ' ******************************************************************* ' * Setup ' ******************************************************************* ' Specify OU of computers you want to shutdown strRoot = "OU=IT Suites,dc=mine,dc=com" ' Default filter for computer objects ' You might want to use a different filter. By operating system for example: ' (&(objectCategory=Computer)(operatingSystem=Windows XP*)) strFilter = "(objectCategory=Computer)" ' Search child organizational units. Use "onelevel" to search only the specified OU. strScope = "subtree" ' ******************************************************************* SET cmd = CREATEOBJECT("ADODB.Command") SET cn = CREATEOBJECT("ADODB.Connection") SET rs = CREATEOBJECT("ADODB.Recordset") cn.open "Provider=ADsDSOObject;" cmd.activeconnection = cn cmd.commandtext = ";" & strFilter & ";" & _ "name;" & strScope '**** Bypass 1000 record limitation **** cmd.properties("page size")=1000 SET rs = cmd.EXECUTE WHILE rs.eof <> TRUE AND rs.bof <> TRUE wscript.echo "Shutting Down " & rs("name") & "..." ShutDownComputer(rs("name")) rs.movenext WEND cn.close ' Subroutine to shutdown a computer PRIVATE SUB ShutDownComputer(BYVAL strComputer) DIM strShutDown,objShell ' -s = shutdown, -t 60 = 60 second timeout, -f = force programs to close strShutdown = "shutdown.exe -s -t 60 -f -m \\" & strComputer SET objShell = CREATEOBJECT("WScript.Shell") objShell.Run strShutdown, 0, FALSE END SUB

And the rest, as you need new CALS too. for our network of 700 computers it came to about 2.5k for upgrading to 2008r2

Get your new server install server 2008 add it to the domain run forest prep on the server 2003 install active directory on the server 2008 get them to sync go to sites and services and make the 2008 the schema master and PDC disable dhcp on server 2003 and set it up on new server disable dns and you can create it on 2008 server.

My virtulisation cost nas box 2 1tb boxes 2k server 3.5k server 2008 and cals 2.5k the server has 6virtual servers running on it.

Get server install 2008 premote to pdc and schema master, swap dns and dhcp to the 2008 server. get standard edition r2 and you will need new cals too.

pcounter is a very good option.