通過ColdFusion和VBScript發送傳真Windows Server 2008

這與previous thread I started有關，但它涉及實際工作的方法。通過ColdFusion和VBScript發送傳真Windows Server 2008

我已經創建了一個VBScript，ColdFusion會執行並將傳真發送到特定的號碼。以下是VBScript的我寫的，從微軟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 = "[email protected]" 

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 = "[email protected]" 
JobID = objFaxDocument.ConnectedSubmit(objFaxServer) 
MsgBox("The Job ID is :" & JobID(0)) 

objFaxServer.Disconnect()

以下是ColdFusion的代碼，我用它來執行此VBScript中：

<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位。

這可能已經在其他地方得到了解答（如果是這樣，請指導我），但是我已經度過了最艱難的時期，並且我沒有找到很多成功的解決方案。我知道我錯過了一些東西，但我不知道是什麼。任何人都可以幫忙嗎？

來源

2012-06-26 user1100412

當你在服務器上的提示符下運行它時它工作嗎？你會收到任何錯誤消息嗎？ –

是的。我進入命令提示符，然後執行cscript.exe，然後執行VBS的路徑。它首先打開PDF文檔（我需要弄清楚如何停止），然後一旦完成該過程而沒有錯誤，我會在傳真服務隊列中看到該文檔。 – user1100412

這很難回答，正是因爲你沒有量化「不起作用」。它以什麼方式不起作用？屏幕上是否有錯誤？日誌文件中是否有錯誤？ VBS是否被調用，但是它會失敗嗎（它可能是被調用的一個變種）？

這就是說，我懷疑這是CF運行的服務帳戶沒有權限訪問或執行VBS或VBS使用的其他資源。

如果您以CF用戶的身份登錄，是否可以從命令行執行該語句？

來源

2012-06-29 07:08:32

通過ColdFusion和VBScript發送傳真Windows Server 2008

回答

相關問題