16,554
社区成员
发帖
与我相关
我的任务
分享
Dim objFaxServer As New FAXCOMEXLib.FaxServer 'Fax server object
Dim objFaxActivity As FAXCOMEXLib.IFaxActivity 'Fax activity Object
Dim collFaxDevices As FAXCOMEXLib.FaxDevices 'Fax devices object
Dim intTotJobCnt As Integer 'Job and device count
Dim objBalFileWritter As StreamWriter 'object to write text
'connect to the fax server.
objFaxServer.Connect("fax-server1")
'work out how many jobs are on the server by adding up the outgoing and queued
objFaxActivity = objFaxServer.Activity
'Refresh the activity object
objFaxActivity.Refresh()
'get the current numbers
intTotJobCnt = objFaxActivity.OutgoingMessages + objFaxActivity.QueuedMessages
'now write it out to the bal file along with the no of modems on this server
collFaxDevices = objFaxServer.GetDevices
'open the file for writing and put the message into it on a new line
objBalFileWritter = File.AppendText("c:num_jobs.log")
objBalFileWritter.WriteLine("Time:" & Now())
objBalFileWritter.WriteLine("Modems:" & collFaxDevices.Count)
objBalFileWritter.WriteLine("Total Faxes:" & intTotJobCnt)
objBalFileWritter.WriteLine("Outgoing: " & objFaxActivity.OutgoingMessages)
objBalFileWritter.WriteLine("Queued: " & objFaxActivity.QueuedMessages)
objBalFileWritter.WriteLine("Incoming: " & objFaxActivity.IncomingMessages)
objBalFileWritter.Close()