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).

Am i missing the point? Whats wrong with the RealAlternative codec?

it's just a PC, use it for whatever you want.... WSUS, VMWARE, FILESERVER, WEBSERVER, PRINTSERVER, Etc. Etc. Etc

Photoshop > batch processing. You can even make a dropper icon for the desktop

Here is what i use for adding from an excel file. It may be of some use, not much needs changing... Four columns used in the excel sheet are: username,password,lastname,firstname Dim objRootLDAP, objContainer, objUser, objShell Dim objExcel, objSpread, intRow, strUser, strOU, strSheet Dim strCN, strSam, strFirst, strLast, strPWD HomeServer = "datastore2" strGroup = "students" strOU = "OU=EHS," ' Note the comma strSheet = "Z:\!!-Scripts\2009\newusr\src.xls" Set objRootLDAP = GetObject("LDAP://rootDSE") Set objContainer = GetObject("LDAP://" & strOU & objRootLDAP.Get("defaultNamingContext")) strDNSDomain = objRootLDAP.Get("DefaultNamingContext") Set objExcel = CreateObject("Excel.Application") Set objSpread = objExcel.Workbooks.Open(strSheet) intRow = 1 'Row 1 often contains headings Do Until objExcel.Cells(intRow,1).Value = "" strSam = Trim(objExcel.Cells(intRow, 1).Value) strPWD = Trim(objExcel.Cells(intRow, 2).Value) strLast = Trim(objExcel.Cells(intRow, 3).Value) strFirst = Trim(objExcel.Cells(intRow, 4).Value) strCN = strFirst & " " & strLast Set objUser = objContainer.Create("User", "cn=" & strCN) objUser.sAMAccountName = strSam objUser.displayName = strCN objUser.description = strSam objUser.givenName = strFirst objUser.sn = strLast objUser.HomeDrive = "Z:" objUser.HomeDirectory = "\\"&HomeServer&"\"&strSam&"$" objUser.SetInfo objUser.userAccountControl = 512 ' objUser.pwdLastSet = 0 objUser.SetPassword strPWD objUser.SetInfo intRow = intRow + 1 Set objGroup = GetObject("LDAP://cn="&strGroup&",cn=users,"&strDNSDomain) objGroup.Add objUser.AdsPath

Anyone think of a creative way of grabbing the CSV from another server other than the printserver? I have 2 printservers and i want to server this application from a seperate iis box i use. At the moment i have to have 2 seperate .asp files pointing to two seperate folders. I am having to use a batch file to copy/update the CSVs to the webserver.

Babel Fish Babylon InterTran Ling.pl Majstro Dictionary

You know your showing your age when you call someone a lamer

God i hate ICT Solutions, everything i need for work i end up having to download myself at home. Shame on you ICT Solutions, Shame on you. ICAP Error (icap_error) An error occurred while performing an ICAP operation: Maximum total files in archive exceeded; File: WebHelpDesk-9.1.17.exe; Sub File: No file name available; Vendor: Sophos, Plc.; Engine error code: 0; Engine version: 2.82.1; Pattern version: 4.37E.585848.2626536651; Pattern date: 2009/01/20 10:06:00 There could be a network problem, the ICAP service may be misconfigured, or the ICAP server may have reported an error. For assistance, contact your network support team.

will this work with more that one domain? We have 3 on this site, if so how will it link with AD ?

We have just taken on a hosted SLG in November. and i'm not that impressed tbh. VPN link to SIMS seems to go down every two weeks here. Remember that SLG is basically only good for marksheets and profiles... even these modules are feature limited.