Automating SBS 2000 Shared Fax

We are currently trying to setup an automated faxing system for a
client who uses the Shared Fax service on Small Business Server 2000.

Is there any way of running a VB app on the server to automatically
send multiple faxes each night?

Printing direct to the printer would require user input to type the
number in so this we cannot use this method.

Using the COM objects such as

Dim oServer As New FAXCOMLib.FaxServer
oServer.Connect ("localhost")

just returns the error

Run-time error '-2147467259 (80004005)':
Method 'Connect' of object 'IFaxServer' failed

Is there anyway to get this working?

Thanks

.

Loading