20 lines
484 B
Text
20 lines
484 B
Text
Option Explicit
|
|
|
|
Dim shell
|
|
Dim command
|
|
Dim i
|
|
Dim exitCode
|
|
|
|
Set shell = CreateObject("WScript.Shell")
|
|
command = QuoteArg(shell.ExpandEnvironmentStrings("%SystemRoot%\System32\WindowsPowerShell\v1.0\powershell.exe"))
|
|
|
|
For i = 0 To WScript.Arguments.Count - 1
|
|
command = command & " " & QuoteArg(CStr(WScript.Arguments(i)))
|
|
Next
|
|
|
|
exitCode = shell.Run(command, 0, True)
|
|
WScript.Quit exitCode
|
|
|
|
Function QuoteArg(value)
|
|
QuoteArg = """" & Replace(value, """", """""") & """"
|
|
End Function
|