Windows batch or VB script : list out files older than 2 mins & move out of spool folder

Sorry about that.  It is hosted on my Domino box at an ISP but I have had a few dodgy connections this morning too so looks like a general issue there, my server says it is fine but losing connections to outside world a bit.

Yes you could use >=0.5, what it does is take the difference between now and (in that case) the created date of the file and multiplies it by 60 minutes and 24 hours, the result starts out as fractions of a day, i. 12 hours = 0.5 so... multiply it by 60 * 24 (which is where the 1440 the other guy used came in) and it is the no. of minutes, multiply by 60*60*24 and it is the number of seconds.

Sorry I don't have time to put the bits of scripts together for you at the moment but will pickup when I can if no-one else already has.

If you want the emailing / service changes and file changes you might aswell do it all in VBScript.  It is actually quite logical.  The other option is we do it from batch but have to call VBScript to do some of the bits anyway.

To your questions....

Q1:  >> If DateDiff("n", oFile.DateLastModified, Now()) > 2/1440
Can see that you used 2/1440 for 2 minutes;  if it's files older
than 50secs, how is this coded?

See above.  If you use 50/(1440*60)or 50/86400 then that would be seconds (86400 secs in a day, 1440 mins in a day)

Q2:  'DateLastModified' is used.  If we wanted to base on date/time
of creation, what's the variable to use ?

Just use the  property DateCreated instead as in my script above.

Q3: after moving files (those older than 2 mins & lesser than 2 mins
out), can you insert something into your script to issue Windows
commands to restart the spooler, ie    net stop spooler     net start spooler

You could use the code from your other VBScript - I have quickly edited it below, though not tested it yet, or use wscript.shell (google should give you example) to run net stop / net start commands.

REM Bits to stop and start spooler service and send email if not started right

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Service where DisplayName = 'Print Spooler'")

For Each objItem in colItems
   objItem.StopService()
   objItem.StartService()
   If objItem.status <>"OK" or objItem.state <>"Running" then
      Set objEmail = CreateObject("CDO.Message")
      objEmail.From = "Email Address"
      objEmail.To = "Email Address"
      objEmail.Subject = "Print Spooler Service"
      objEmail.Textbody = objItem.DisplayName & " State: " & objItem.State & VbCrLf
      objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
      objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp"
      objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
      objEmail.Configuration.Fields.Update
      objEmail.Send

   end if
next

Select all Open in new window

Q4:
Lastly, someone gave me a script before (which could email to
notify if spooler has a problem).  Are you able to incorporate
the portion on emailing out to notify our operators if files
older than (say 1 minute) is found?  Below is the script (which
doesn't quite meet what I needed but it does work in sending
email) :

Sounds to me like you need to define a bit better what is wanted, depends what you are trying to do but this sort of things sounds logical to me:

Check if spooler stopped, if so make a note but Start spooler and wait 30 -60 seconds to see give spooled files time to start clearing
Check if any files over 5 minutes old.  If so Stop service, move them to another folder and make a note of them, start spooler.

If any files were found over 5 minutes old then Stop & Start spooler, check if has started ok, make a note if not.

If any issues found above then send an email.

Is your printing really causing you so many problems, things are SO much better in most places these days in later OS and newer printer drivers in my experience.

Good luck with it anyway, can't believe how much I just typed, was only passing!

Steve