You are here:
ActiveXperts.com > ActiveXperts Network Monitor > WindowsManagement > Scripts > Applications > Server > Fax Server
Quicklinks
You can use any of the VBScript programs below in ActiveXperts Network Monitor. Click here for an explanation about how to include scripts in ActiveXperts Network Monitor.
Set objFaxServer = CreateObject("FaxComEx.FaxServer")
objFaxServer.Connect "atl-dc-02"
Set objFaxLoggingOptions = objFaxServer.LoggingOptions
Set objFaxActivityLogging = objFaxLoggingOptions.ActivityLogging
Wscript.Echo "Database path: " & _
objFaxActivityLogging.DatabasePath
Wscript.Echo "Log incoming: " & _
objFaxActivityLogging.LogIncoming
Wscript.Echo "Log outgoing: " & _
objFaxActivityLogging.LogOutgoing
Set objFaxServer = CreateObject("FaxComEx.FaxServer")
objFaxServer.Connect "atl-dc-02"
Set colDevices = objFaxServer.GetDevices()
For Each objFaxDevice in colDevices
Wscript.Echo "ID: " & objFaxDevice.ID
Wscript.Echo "CSID: " & objFaxDevice.CSID
Wscript.Echo "Description: " & objFaxDevice.Description
Wscript.Echo "Device name: " & objFaxDevice.DeviceName
Wscript.Echo "Powered off: " & objFaxDevice.PoweredOff
Wscript.Echo "Provider unique name: " & _
objFaxDevice.ProviderUniqueName
Wscript.Echo "Receive mode: " & objFaxDevice.ReceiveMode
Wscript.Echo "Receiving now: " & objFaxDevice.ReceivingNow
Wscript.Echo "Ringing now: " & objFaxDevice.RingingNow
Wscript.Echo "Rings before answer: " & _
objFaxDevice.RingsBeforeAnswer
Wscript.Echo "Send enabled: " & objFaxDevice.SendEnabled
Wscript.Echo "Sending now: " & objFaxDevice.SendingNow
Wscript.Echo "TSID: " & objFaxDevice.TSID
Next
Set objFaxServer = CreateObject("FaxComEx.FaxServer")
objFaxServer.Connect "atl-dc-02"
Set objDeviceProviders = objFaxServer.GetDeviceProviders
For Each objFaxDeviceProvider in objDeviceProviders
Wscript.Echo "Debug: " & objFaxDeviceProvider.Debug
Wscript.Echo "Friendly name: " & objFaxDeviceProvider.FriendlyName
Wscript.Echo "Image name: " & objFaxDeviceProvider.ImageName
Wscript.Echo "Initialization error code: " & _
objFaxDeviceProvider.InitErrorCode
Wscript.Echo "Major build: " & objFaxDeviceProvider.MajorBuild
Wscript.Echo "Minor build: " & objFaxDeviceProvider.MinorBuild
Wscript.Echo "Major version: " & objFaxDeviceProvider.MajorVersion
Wscript.Echo "Minor version: " & objFaxDeviceProvider.MinorVersion
Wscript.Echo "Status: " & objFaxDeviceProvider.Status
Wscript.Echo "TAPI provider name: " & objFaxDeviceProvider.TAPIProviderName
Wscript.Echo "Unique name: " & objFaxDeviceProvider.UniqueName
Next
Set objFaxServer = CreateObject("FaxComEx.FaxServer")
objFaxServer.Connect "atl-dc-02"
Set objFaxLoggingOptions = objFaxServer.LoggingOptions
Set objFaxEventLogging = objFaxLoggingOptions.EventLogging
Wscript.Echo "General events level: " & _
objFaxEventLogging.GeneralEventsLevel
Wscript.Echo "Inbound events level: " & _
objFaxEventLogging.InboundEventsLevel
Wscript.Echo "Initialization events level: " & _
objFaxEventLogging.InitEventsLevel
Wscript.Echo "Outbound events level: " & _
objFaxEventLogging.OutboundEventsLevel
Set objFaxServer = CreateObject("FaxComEx.FaxServer")
objFaxServer.Connect "atl-dc-02"
Set objFolder = objFaxServer.Folders
Set objIncomingArchive = objFolder.IncomingArchive
Wscript.Echo "Age limit: " & objIncomingArchive.AgeLimit
Wscript.Echo "Archive folder: " & objIncomingArchive.ArchiveFolder
Wscript.Echo "High quota watermark: " & objIncomingArchive.HighQuotaWatermark
Wscript.Echo "Low quota watermark: " & objIncomingArchive.LowQuotaWatermark
Wscript.Echo "Size low: " & objIncomingArchive.SizeLow
Wscript.Echo "Size high: " & objIncomingArchive.SizeHigh
Wscript.Echo "Size quota warning: " & objIncomingArchive.SizeQuotaWarning
Wscript.Echo "Use archive: " & objIncomingArchive.UseArchive
Set objFaxServer = CreateObject("FaxComEx.FaxServer")
objFaxServer.Connect "atl-dc-02"
Wscript.Echo "API version: " & objFaxServer.APIVersion
Wscript.Echo "Major build: " & objFaxServer.MajorBuild
Wscript.Echo "Minor build: " & objFaxServer.MinorBuild
Wscript.Echo "Major version: " & objFaxServer.MajorVersion
Wscript.Echo "Minor version: " & objFaxServer.MinorVersion
Wscript.Echo "Server name: " & objFaxServer.ServerName
Set objFaxServer = CreateObject("FaxComEx.FaxServer")
objFaxServer.Connect "atl-dc-02"
Set objFolder = objFaxServer.Folders
Set objIncomingQueue = objFolder.IncomingQueue
Wscript.Echo "Blocked: " & objIncomingQueue.Blocked
Set objFaxServer = CreateObject("FaxComEx.FaxServer")
objFaxServer.Connect "atl-dc-02"
Set objFolder = objFaxServer.Folders
Set objOutgoingArchive = objFolder.OutgoingArchive
Wscript.Echo "Age limikt: " & objOutgoingArchive.AgeLimit
Wscript.Echo "Archive folder: " & objOutgoingArchive.ArchiveFolder
Wscript.Echo "High quota watermark: " & objOutgoingArchive.HighQuotaWatermark
Wscript.Echo "Low quota watermark: " & objOutgoingArchive.LowQuotaWatermark
Wscript.Echo "Size low: " & objOutgoingArchive.SizeLow
Wscript.Echo "Size high: " & objOutgoingArchive.SizeHigh
Wscript.Echo "Size quota warning: " & objOutgoingArchive.SizeQuotaWarning
Wscript.Echo "Use archive: " & objOutgoingArchive.UseArchive
Set objFaxServer = CreateObject("FaxComEx.FaxServer")
objFaxServer.Connect "atl-dc-02"
Set objFolder = objFaxServer.Folders
Set objOutgoingQueue = objFolder.OutgoingQueue
Wscript.Echo "Age limit: " & objOutgoingQueue.AgeLimit
Wscript.Echo "Allow personal cover pages: " & _
objOutgoingQueue.AllowPersonalCoverPages
Wscript.Echo "Blocked: " & objOutgoingQueue.Blocked
Wscript.Echo "Branding: " & objOutgoingQueue.Branding
Wscript.Echo "Discount rate end: " & objOutgoingQueue.DiscountRateEnd
Wscript.Echo "Discount rate start: " & objOutgoingQueue.DiscountRateStart
Wscript.Echo "Paused: " & objOutgoingQueue.Paused
Wscript.Echo "Retries: " & objOutgoingQueue.Retries
Wscript.Echo "Retry delay: " & objOutgoingQueue.RetryDelay
Wscript.Echo "Use Device TSID: " & objOutgoingQueue.UseDeviceTSID
Set objFaxServer = CreateObject("FaxComEx.FaxServer")
objFaxServer.Connect "atl-dc-02"
Set objReceiptOptions = objFaxServer.ReceiptOptions
Wscript.Echo "Allowed receipts: " & _
objReceiptOptions.AllowedReceipts
Wscript.Echo "Authentication type: " & _
objReceiptOptions.AuthenticationType
Wscript.Echo "SMTP password: " & objReceiptOptions.SMTPPassword
Wscript.Echo "SMTP port: " & objReceiptOptions.SMTPPort
Wscript.Echo "SMTP sender: " & objReceiptOptions.SMTPSender
Wscript.Echo "SMTP server: " & objReceiptOptions.SMTPServer
Wscript.Echo "SMTP user: " & objReceiptOptions.SMTPUser
Wscript.Echo "Use for inbound routing: " & _
objReceiptOptions.UseForInboundRouting
Set objFaxServer = CreateObject("FaxComEx.FaxServer")
objFaxServer.Connect "atl-dc-02"
Set objSecurity = objFaxServer.Security
Wscript.Echo "Security descriptor: " & objSecurity.Descriptor
Wscript.Echo "Granted rights: " & objSecurity.GrantedRights
Wscript.Echo "Information type: " & objSecurity.InformationType
Set objFaxServer = CreateObject("FaxComEx.FaxServer")
objFaxServer.Connect "atl-dc-02"
Set objfaxActivity = objFaxServer.Activity
Wscript.Echo "Incoming messages: " & objFaxActivity.IncomingMessages
Wscript.Echo "Outgoing messages: " & objFaxActivity.OutgoingMessages
Wscript.Echo "Queued messages: " & objFaxActivity.QueuedMessages
Wscript.Echo "Routing messages: " & objFaxActivity.RoutingMessages