VBScript how to join WScript.Arguments?

Question

I am trying to join the arguments to a string to be passed to another script. The following:

WScript.Echo(Join(WScript.Arguments))

gives me an error:

Error: Wrong number of arguments or invalid property assignment
Code: 800A01C2

What is wrong with that syntax?

Ansgar Wiechers · Accepted Answer · 2013-08-02 07:16:22Z

8

WshArgument objects are not arrays, so you can't use Join() on them. What you can do is something like this:

ReDim arr(WScript.Arguments.Count-1)
For i = 0 To WScript.Arguments.Count-1
  arr(i) = WScript.Arguments(i)
Next

WScript.Echo Join(arr)

answered Aug 2, 2013 at 7:16

Ansgar Wiechers

202k27 gold badges286 silver badges363 bronze badges

Sign up to request clarification or add additional context in comments.

3 Comments

Roland Illig Over a year ago

This answer doesn't work when some of the arguments had been given with quotes, e.g. "C:\Program Files\".

Ansgar Wiechers Over a year ago

@RolandIllig The answer works perfectly fine for the problem described in the question. Of course it may not work for your particular problem, but then again, I wasn't answering your question in the first place.

trlkly Over a year ago

@AnsgarWiechers If your Answer does not work if some of the arguments have been given with quotes, then it does not "work[] perfectly fine for the problem described in the question." Nothing in the Question says that none of the arguments to be concatenated will be surrounded by quotation marks, or that it is okay to omit them in them in the concatenation if they are included. Your Answer thus fails in some use cases that fit the criteria described in the Question.

n3rd4i · Accepted Answer · 2015-09-23 07:14:38Z

3

Another solution can be done with ArrayList object from the system:

Set oAL = CreateObject("System.Collections.ArrayList")
For Each oItem In Wscript.Arguments: oAL.Add oItem: Next
WScript.Echo Join(oAL.ToArray, " ")

answered Sep 23, 2015 at 7:14

n3rd4i

1931 silver badge4 bronze badges

Comments

RDR · Accepted Answer · 2019-11-13 23:26:53Z

2

            ReDim arr(WScript.Arguments.Count-1)
            For i = 0 To WScript.Arguments.Count-1
              arr(i) = """"+WScript.Arguments(i)+""""
            Next
            WScript.Echo Join(arr)

this will add quotes for each argument, you can then remove it in the batch file with %~1 and so on.

answered Nov 13, 2019 at 23:26

RDR

1711 silver badge9 bronze badges

Comments

Safwan · Accepted Answer · 2022-04-18 20:57:45Z

0

Here is the function that I use. It will return all the arguments whether they contain quotes or not in a string that you can pass to another script.

Function GetArguments()

 Dim Args, Arg

 If WSH.Arguments.Count > 0 Then
  For Each Arg In WSH.Arguments
   Args = Args & """" & Arg & """ "
  Next
  Args = " """"" & Trim(Args) & """"""
 End If

 GetArguments = Args

End Function

answered Apr 18, 2022 at 20:57

Safwan

3645 silver badges12 bronze badges

Collectives™ on Stack Overflow

VBScript how to join WScript.Arguments?

4 Answers 4

3 Comments

Comments

Comments

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

4 Answers 4

3 Comments

Comments

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related