What It Does
It's a Visual Basic Script that lets System Administrators notify users of an upcoming event or change and how many days are left until the change. After it has hit zero days left, it deletes itself. This can be changed so it gives a second message before it deletes itself or launches other programs if required.
How To Use It
Place in start-up folder on Windows machines after modifying the message box and the
eTime variable to what you want.
sTime = Date()
eTime = "10/10/2010"
call datediffToWords(sTime, eTime)
Function datediffToWords(d1, d2)
report = ""
days = DateDiff("d",d1,d2)
report = days & " Day(s)"
datediffToWords = report
Msgbox "Message "& datediffToWords,4160,"Title"
If datediffToWords = "0" & " Day(s)" Then
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFSO = Nothing
To use in a web page, remove the
messagebox and replace it with
document.write and remove the
- 29th June, 2010: Initial post