【发布时间】:2012-06-26 21:39:31
【问题描述】:
这与previous thread I started 相关,但它处理的是实际有效的方法。
我创建了一个 VBScript,ColdFusion 将执行该脚本并将传真发送到特定号码。以下是我编写的 VBScript,取自 Microsoft TechNet 站点:
Set objFaxDocument = WScript.CreateObject("FAXCOMEX.FaxDocument")
Set objFaxServer = WScript.CreateObject("FAXCOMEX.FaxServer")
Dim JobID
objFaxServer.Connect("")
objFaxDocument.Body = "C:\*PATHNAME*\testfax.pdf"
objFaxDocument.DocumentName = "My First Fax"
objFaxDocument.Priority = "2"
objFaxDocument.Recipients.Add("8885551212")
objFaxDocument.AttachFaxToReceipt = True
objFaxDocument.CoverPageType = "1"
objFaxDocument.CoverPage = "generic"
objFaxDocument.Note = "Here is the info you requested"
objFaxDocument.ReceiptAddress = "test@test.com"
objFaxDocument.Subject = "Today's fax"
objFaxDocument.Sender.Title = "Mr."
objFaxDocument.Sender.Name = "Test Man"
objFaxDocument.Sender.City = "Test City"
objFaxDocument.Sender.State = "FL"
objFaxDocument.Sender.Company = "Test Company"
objFaxDocument.Sender.Country = "USA"
objFaxDocument.Sender.Email = "test@test.com"
JobID = objFaxDocument.ConnectedSubmit(objFaxServer)
MsgBox("The Job ID is :" & JobID(0))
objFaxServer.Disconnect()
以下是我用来执行这个 vbscript 的 ColdFusion 代码:
<cfexecute name="C:\Windows\System32\cscript.exe"
arguments="C:\*SCRIPTPATH*\test.vbs">
</cfexecute>
在装有 Windows Server 2003 的机器上,这成功地将文档发送到 Windows 传真服务应用程序,并将传真正确存储在发件箱中。但是,当我在 Windows Server 2008 上尝试此操作时,它不起作用。需要注意的是,在使用相同版本的 ColdFusion (8) 时,2008 机器是 64 位的,而 2003 是 32 位的。
这可能已经在其他地方得到了回答(如果是这样,请指导我),但我在这方面遇到了最艰难的时期,而且没有多少成功的解决方案可供我找到。我知道我错过了一些东西,但我不知道是什么。有人可以帮忙吗?
【问题讨论】:
-
在服务器提示符下运行它是否有效?那么你会收到任何错误消息吗?
-
是的。我转到命令提示符,然后执行 cscript.exe,然后执行 VBS 的路径。它首先打开 pdf 文档(我需要弄清楚如何停止),然后在完成该过程且没有错误后,我会在传真服务队列中看到该文档。
标签: coldfusion vbscript 64-bit windows-server-2008 fax