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.

Whens the iis7 guide coming for it. I have installed it but all i am getting on the page is an image of a exclamation mark. the error Active Server Pages error 'ASP 0113' Script timed out /Default.asp The maximum amount of time for a script to execute was exceeded. You can change this limit by specifying a new value for the property Server.ScriptTimeout or by changing the value in the IIS administration tools. I have changed the time out now get this Active Server Pages error 'ASP 0131' Disallowed Parent Path /admin/Default.asp, line 1 The Include file '..\incs\db_connect.asp' cannot contain '..' to indicate the parent directory.

All ready done 1tb san

Well it came on monday. Today i just finished all the servers Migrated our email, webserver, print server, a backup DC and a linux box. All working great. Everyone really should look at virtualizing options as its so easy to set up and get working.

Its the end of the financial year and fund are tight as they are! getting 4k out the pot was a push. 6months ago out file servers died so we replaced them with ReadyNAS 2100 Business Edition's and a terrabyte of storage on each. Which i have just noticed can support iSCSI SAN In the end i went with this spec and it gets delivered on monday; DL380 G6 2U Rack Server 2 x Intel E5500 series Quad Core Xeon CPU 3 x Hot Plug 300Gb SAS Slim HDD 16Gb RAM P410i/256Mb RAID Controller 2 x Hot Plug Power Supplies for Redundancy Dual Gigabit NIC DVD-RW 3 Year Next Business Day Warranty £3083.00 Then all our licenses for the servers & CALS at around £1400 to update to server 2008.

Will be doing fresh builds but as we dont have licences for 2008, we were going to do that all at the same time new server, 2003 enterprise. and 400 cals.

We have 3 hardware boxes atm Web Server Print Server Mail Server I am preposing to buy a server that can run esxi so i can virtualize these 3 servers.

What would be the best raid option? Im thinking raid 1 would be best. with 2 x 300gb and 2 x 146gb discs.

they are 15k disc Seagate ST3300656SS

It will be web,print and mail. The mail server at present has a 90GB disk and we have 50GB free. So disc space isn't really an issue.

Just looking for a server so i can get esxi running so print,web,mail can go on to it. Intel S5000VSA dual Xeon processor SAS board (capable of supporting up to 16Gb RAM) 2 x Xeon E5430 (2GHz, 2 x 6Mb cache) 2 x Seagate SAS ST3300656SS drives 300Gb 16GB Kingston RAM DVD rewriter £2100 Will be running server 2008 with ESXI Would this be a good spec server?