Actually, Calendar Sharing is quite easy. Simply set up an anonymous FTP server (can be on the same box) with read/write support. Then create a contact within Outlook with the free/busy information (Tools/Options/Calendar Options/Free-Busy Options/Publish at My Location in Outlook 2003) of "ftp://ipaddress/username.vfb" without the quotes. In the Search part of Free/Busy, set it to "ftp://ipaddress/%username%.vfb" without the quotes again. If you want to create a small script for everyone to have the same contact info, here's a simple VB script you can use below: Anyways, when the user goes to invite a person to a meeting, they invite them from the contacts list, and it'll pull up their schedules. It won't show what they are doing, but it will show that they are busy during that time. Hopefully I'm not rambling on too much, but if you have any features that you need, feel free to ask as there's probably a solution for it.

Anyways, here's the script below. Just edit to your own needs and save it to a .vbs file extension and run it on the windows client (can be thrown into a startup script if need be) Warning! it will not give you any kind of indicator that it ran sucessfully and such and does not check for the existance of exact users. So in other words, if you run this script 10 times, you'll have 10 contacts with the same information.
***************************************************
' Script To Create an Outlook Contact
' This script will uses COM Automation to access
' the Outlook Object Model in order to create a new
' Contact item.
'
'
' Note that the CreateObject call uses the generic
' reference, "Outlook.Application" with no version
' number. This assures that the script won't break
' just because the client machine doesn't contain
' the correct version of MS Outlook. The script
' will break, however, if no version of Outlook is
' found on the client machine
'
' ***************************************************
Dim objOutlook
Dim itmContact
Dim strMsg
Const olContactItem = 2
Set objOutlook = CreateObject("Outlook.application")
Set itmContact = objOutlook.CreateItem(olContactItem)
itmContact.FullName = "Full Name"
itmContact.EMail1Address = "username@domainname.com"
itmcontact.InternetFreeBusyAddress = "ftp://ipaddress/username.vfb"
itmContact.FileAs = "Full Name"
itmContact.BusinessTelephoneNumber = "Phone Number"
itmContact.Save
'Clean up
Set itmContact = Nothing