vbscriptを実行するとインシデント参照番号が取得されない

Question

vbscriptを実行すると、インシデント参照番号を取得しようとしています。スクリプトは、コード内のスクリプトチケット値でチケットを開きますが、それは次のエラーを返します。エラー：必要なオブジェクト：「oWSResponseDoc.selectSingleNode（...）」

は、私が使用していたコードは

です

' Perform the insert and check the status 
If Not wsInsertIncident.Post Then 
    WScript.Echo "Error=" & wsInsertIncident.Status 
    WScript.Echo wsInsertIncident.StatusText 
    WScript.Quit 
End If 

Dim strIncidentSysId, strIncidentNumber 
strIncidentSysId = wsInsertIncident.GetValue("sys_id") 
strIncidentNumber = wsInsertIncident.GetValue("number") 
WScript.Echo "Inserted: " & strIncidentNumber 

私はこれが過去に働いたことは知っていますが、今日はそれがありません。何が変わったのか分かりません。完全なスクリプトはここで見ることができます：

https://servicenowsoap.wordpress.com/2013/10/26/vb-script/

あなたは私を助けてくださいことはできますか？どうもありがとう！

Answer 1

インシデントを挿入する前に、SetMethod関数を使用する必要があります。これは、Web呼び出しを行うときに実行するアクションを決定するために使用されます。

これをデモインスタンスでテストし、インシデントを作成して番号を返しました。

' Specify the ticket values 
Dim wsInsertIncident : Set wsInsertIncident = New ServiceNowDirectWS 
wsInsertIncident.SetMethod "incident", "insert" 
wsInsertIncident.SetValue "short_description", "Demo WS Incident" 
wsInsertIncident.SetValue "description", "Demo WS Incident" 
wsInsertIncident.SetValue "caller_id", "Abel Tuter" 
wsInsertIncident.SetValue "category", "hardware" 
wsInsertIncident.SetValue "subcategory", "mouse" 

' Perform the insert and check the status 
If Not wsInsertIncident.Post Then 
    WScript.Echo "Error=" & wsInsertIncident.Status 
    WScript.Echo wsInsertIncident.StatusText 
    WScript.Quit 
End If 

Dim strIncidentSysId, strIncidentNumber 
strIncidentSysId = wsInsertIncident.GetValue("sys_id") 
strIncidentNumber = wsInsertIncident.GetValue("number") 
WScript.Echo "Inserted: " & strIncidentNumber 

Dim objShell : Set objShell = Wscript.CreateObject("Wscript.Shell") 
objShell.Popup "Inserted: " & strIncidentNumber,, "ServiceNow ticket!"