VBS 스크립트 전달 인수?


0

안녕하세요, VBS에이 스크립트가있는 여러분 :

    On Error Resume Next

If WScript.Arguments.Count < 2 Then
     WScript.Echo "This script requires arguments."
     WScript.Quit
End If

Dim sURL, sAuth, sRequestType
sUrl = "http://192.168.10.6:8080/rest/servicedeskapi/request"
sAuth = "YWRtafW5pc3dRyYXRvcjdddpQdW50bs0dUMyE="
sRequestType = "POST"

Dim sArg1, sArg2, sArg3, sBody

sBody = "{""serviceDeskId"":2,""requestTypeId"":30,""requestFieldValues"":{""summary"":""sArg1"",""description"":""sArg2""}}"

sResponse = HTTPPost(sURL, sBody)
WScript.Echo sResponse

Function HTTPPost(sURL, sRequest)
  Set oHTTP = CreateObject("MSXML2.ServerXMLHTTP")
  oHTTP.open sRequestType, sURL, false
  oHTTP.setRequestHeader "Content-Type", "application/json"
  oHTTP.setRequestHeader "Content-Length", Len(sRequest)
  oHTTP.setRequestHeader "Authorization", "Basic " & sAuth
  oHTTP.send sRequest
  HTTPPost = oHTTP.responseText
End Function

명령 줄 "sArg1, sArg2 및 sArg3"에 전달 된 변수가 변수 대신 정확한 텍스트로 전달 될 것으로 예상합니다. 과거에이 작업을 수행했지만 기억해야 할 일이 기억 나지 않습니다. 그것.

csript.exe c : \ folder \ script.vbs testsarg1 testsarg2 testsarg3

아무것도 잘못 보입니까? 나는 인수 주위에 ""를 가지고 놀아 보았지만 도움이되지 않는 것 같습니다.

많은 감사

답변:


0

선언 한 변수에 명령 줄 인수를 어디에 할당합니까?

Dim sArg1, sArg2, sArg3, sBody

변수를 검색하고 할당해야합니다.

Dim sArg1, sArg2, sArg3, sBody
sArg1 = Wscript.Arguments.Item(0)
sArg2 = Wscript.Arguments.Item(1)
sArg3 = Wscript.Arguments.Item(2)
wscript.Echo "sArg1 = " + sArg1 + "; sArg2 = " + sArg2 + "; sArg3 = " + sArg3

원하지 않으면 먼저 선언 할 필요조차 없습니다.


고마워, 변수를 3x "로 감싼 후에
고쳤습니다
당사 사이트를 사용함과 동시에 당사의 쿠키 정책개인정보 보호정책을 읽고 이해하였음을 인정하는 것으로 간주합니다.
Licensed under cc by-sa 3.0 with attribution required.