chrisseiter
(Chris Seiter (LBFF))
1
Description
My very first script submission. This small VBScript will create a calendar event in Outlook for the “SysAdmin Day” for 2012. Use it as a login script or slip it in throughout the year in an update and get a reminder on everyone’s calendar! For the next year just change the .start attribute date.
Source Code
Const olAppointmentItem = 1
set objoutlook = createobject("outlook.application")
set objAppointment = objoutlook.createitem(olAppointmentItem)
objAppointment.Start = "7/27/2012"
objAppointment.Subject = "System's Administrator Day"
objAppointment.Body = "http://www.sysadminday.com"
objAppointment.AllDayEvent = True
objAppointment.ReminderMinutesBeforeStart = 15
objAppointment.ReminderSet = True
objAppointment.Save
22 Spice ups
lol…that’s pretty good and not so in-their-face about it 
john6020
(John6020)
4
Nice one to play with - thank you!
Awesome. Great first script.
If you guys can create one for Google Apps I’d be much appreciative of it.
reth1nk
(reth1nk)
8
Love it. Altered it for a few important things I thought people should have in their calendar. thanks.
dsentelle
(David1618)
11
That’s excellent. Too bad if I deployed it I would get all of my users calling and asking if they had a virus.
tonystahl
(lhatsynot)
12
How about one for GroupWise? 
Cool script. It was silent. But we need a way for it to run only once.
really cool way to advertise myself…thx
bmcnamara
(Barry McNamara)
16
A great way to get some acknowledgment for all our hard work
I just posted a modified version of this script which will first check to make sure we’re not creating duplicate entries in a user’s calendar. This should make it a bit more useful as a login script. http://community.spiceworks.com/scripts/show/1520-sysadmin-day-calendar-item-creation-script-de-duped-for-use-as-login-script
Thanks for the code to make sure it doesn’t already exist! -though, i would like to point out that one of my users couldn’t log on to Citrix with the modified Script. windows app log reported that outlook was closed because it hung…