2010-07-16 20:49

/* Displays device information for the fax server atl-dc-02. */
objfaxserver = createcomobject("FaxComEx.FaxServer")
objfaxserver~connect("atl-dc-02")
coldevices = objfaxserver~getdevices()
DO objfaxdevice OVER coldevices
	SAY "ID:" objfaxdevice~id
	SAY "CSID:" objfaxdevice~csid
	SAY "Description:" objfaxdevice~description
	SAY "Device name:" objfaxdevice~devicename
	SAY "Powered off:" objfaxdevice~poweredoff
	SAY "Provider unique name:" objfaxdevice~provideruniquename
	SAY "Receive mode:" objfaxdevice~receivemode
	SAY "Receiving now:" objfaxdevice~receivingnow
	SAY "Ringing now:" objfaxdevice~ringingnow
	SAY "Rings before answer:" objfaxdevice~ringsbeforeanswer
	SAY "Send enabled:" objfaxdevice~sendenabled
	SAY "Sending now:" objfaxdevice~sendingnow
	SAY "TSID:" objfaxdevice~tsid
	SAY
END

2010-07-16 20:49