ChrisP

on error resume next Dim objNetwork, compName Set objNetwork = CreateObject("WScript.Network") compName = lCase(left(objNetwork.ComputerName,3)) if compName = "lap" then compname = lCase(left(objNetwork.ComputerName,7)) Select Case compName Case "lib" nukePrinters objNetwork.AddWindowsPrinterConnection "\\printserver1\Library HP CP2020" objNetwork.SetDefaultPrinter "\\printserver1\Library HP CP2020" Case "sp-" objNetwork.AddWindowsPrinterConnection "\\printserver2\Kyocera TASKalfa 250ci" objNetwork.SetDefaultPrinter "\\printserver2\Kyocera TASKalfa 250ci" Case "lap-ent","lap_ent" nukePrinters objNetwork.AddWindowsPrinterConnection "\\daisy\e1" objNetwork.AddWindowsPrinterConnection "\\printserver1\e2-2600" objNetwork.AddWindowsPrinterConnection "\\printserver1\e3-cp2020" objNetwork.SetDefaultPrinter "\\printserver1\e3-CP2020" Case "lap-hum","lap_hum" nukePrinters Case "lap-mfl","lap_mfl" nukePrinters End Select function nukePrinters strComputer = "." Set WshNetwork = WScript.CreateObject("WScript.Network") Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colInstalledPrinters = objWMIService.ExecQuery("Select * from Win32_Printer") For Each objPrinter in colInstalledPrinters if InStr(objPrinter.Name, "\\") > 0 then WshNetwork.RemovePrinterConnection objPrinter.Name end if Next end function

36 to 50 down and about 5 up

thanks!

Pricing is $400 per year for 100 users, and $2 per year for each additional user. OUCH!

It's the potential use of the technology thats the interesting thing. Homebrew motion cature... WOW Sports and Performance Analysis... Virtual Music Fitness Training This to me is one of the main (consumer) technology developments so far this century.

We have just recently had clickview present to us, and my impression was that with a ERA licence you can use (onsite) any Free to Air transmition recieved in the UK as long as it is un-edited. So why not record radio1 for the day and chop all the songs up from the playlist, then in theroy you would be legal. It is also my understanding (maybe wrongly) that you would require a ERA Plus licence to broadcast said content outside of the school perimiter. From their website http://www.era.org.uk Discuss

<% on error resume next Dim objNet Set objNet = CreateObject("WScript.NetWork") session("user") = objNet.UserName %>

Free DWG Viewer

if all else fails, remap the print screen key in registry. You can use a free app like Sharpkeys if you dont want to look up keycodes and do the regedit yourself.

Staff and students have this problem EVERYDAY since ICT Solutions turned on HTML compression, it seems to screw the javascript files speradically, then you have a corrupt Javascript file in your local cache. do you see the little yellow error triangle in the bottom left of IE? Try CTRL + F5 to force a refresh, if its the same problem we have it will sort it.

Careful, I almost pmsl. A support call for us to dell usually goes like this... [me] Hi we have a optiplex with a 3yr on site warranty, the powerpack just went bang, smoke and a bad smell is emanating from said powerpack, we need a engineer to replace it. [dell] ok. i understand but i have a call sheet to work from. [me] er ok. [dell] is there a power light on the front that lights up green when you power on? [me] NO. the powerpack just blew. [dell] if you dont have a green light is the PC plugged into the mains? [me] give me a break, we have ONSITE warranty, after 20yrs working on PCs i can identify a blown PSU. Please send an engineer. [dell] well we dont know if it's the powerpack or the motherboard. [me] Look, youre wasting my time now. i cant tell if it's screwed the motherboard, i am sure the engineer can replace it if it has gone. [dell] the engineer will only have a powerpack with him, unless we can ascertain if the motherboard has blown. [me] how are you going to do that then. [dell] have you got another PC YOU could swap the powerpack over with? [me] you must be joking, i'm not going to take a PC out of production and waste an hour of my technicians time replacing it, thats your job, thats why i paid for the warranty. [dell] If i sent you a replacement powerpack, can you fit it yourself? [me] just send it

thats correct When one of my technicians started he delproffed a laptop and blitzed a profile with 2 gigs worth of photos and documents. his next lesson was on file recovery.

hi, just a couple of observations.. 1. delprof.exe is a very useful for sticking in batches ( got some handy switches /c: (remote computer) /d: (days inactive) etc.) 2. remember NEVER to run it on a laptop. lol 3. you can compound your case statements... select case foldername case "All Users", "Default User", "LocalService", "NetworkService", "Administrator" isException = True case Else isException = False End Select 4. to make it a bit more robust for a production environment it may be a good idea to rename the folder first, then delete. WHY? Ever tried to delete a profile and ntuser.dat was locked? then you had to restart to delete it? with the script as it is (and delprof for that matter) it would result in a half deleted (corrupt) profile. if you had a rename element in the script the rename function would fail and not proceed to delete the profile. Ergo the profile still works and when the PC is next rebooted the script should work as expected

Such a shame this project is dead now, with no sign of open source. The community has lost a truly fantastic peice of software. Lanview

I'm in the Beta for quake live...(IMO it's crap).