1
複数のsvcファイルを持つWCF WebServiceを作成しました。私は、コードの下に使用するVBScriptからSVCファイル内のメソッドを呼び出します。VBSファイルからWCF Webサービス(HTTPS下)を呼び出す際に問題が発生しました
ScriptTimeOut = 6000000
Dim soapServer, soapMessage
soapServer = "https://example.com/marketyardwebservice/SchedulerClasses/MailIntimations.svc"
soapMessage = "<s:Envelope xmlns:s=" & GetQuotedUrl("http://schemas.xmlsoap.org/soap/envelope/") & ">" & _
"<s:body>" & _
"<AuctionWinnerSendMail xmlns=" & GetQuotedUrl("http://tempuri.org/") & ">" & _
""
soapMessage = Replace(soapMessage, "'", chr(34))
Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")
xmlhttp.SetOption 2, xmlhttp.GetOption(2)
Dim lResolve,lConnect,lSend,lReceive
lResolve = 5 * 1000
lConnect = 60 * 1000
lSend = 600 * 1000
lReceive = 600 * 1000
xmlhttp.setTimeouts lResolve, lConnect, lSend, lReceive
xmlhttp.open "POST", soapServer, False
xmlhttp.setRequestHeader "Man", POST & " " & soapServer & " HTTP/1.1"
xmlhttp.setRequestHeader "SOAPAction", "http://tempuri.org/IMailIntimations/AuctionWinnerSendMail"
xmlhttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
xmlhttp.send(soapMessage)
Function GetQuotedUrl(ByVal value)
GetQuotedUrl = Chr(34) & value & Chr(34)
End Function
HTTPSが有効でない場合、上記のスクリプトが正常に実行されます。しかし、HTTPSを有効にするとすぐに、vbscriptの実行時に "クライアント認証を完了するために証明書が必要です"というエラーが表示されます。
どうすればこの問題を解決できるか、誰でも助けてください。 ありがとうございます
ありがとう非常に間違いは今来ていません。 – Behzaad
あなたは私の答えを気に入っているとは思わない? :-) – spodger