Question

这与previous thread I started有关，但它会处理实际有效的方法。

我创建了一个ColdFusion执行的VBScript，并将传真发送到特定的号码。以下是我编写的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位。

这可能已在其他地方得到解答（如果是这样请指导我），但我遇到了最困难的时间，而且我找不到很多成功的解决方案。我知道我错过了什么，但我不知道是什么。有人可以帮忙吗？

Answer 1

这很难回答，因为你没有量化“不起作用”。它以什么方式不起作用？屏幕上有错误吗？任何地方的日志文件都有错误吗？是否会调用VBS，但是它会失败（它可能会被调用的方式变得迷定）？

那就是说，我怀疑CF运行的服务帐户没有访问或执行VBS的权限，或VBS使用的其他资源。

如果您以CF用户身份登录，是否可以从命令行执行该语句？

通过ColdFusion＆amp;发送传真VBScript Windows Server 2008

1 个答案: