If WScript.Arguments.Count = 0 Then WScript.Quit 2
Set sh = CreateObject("WScript.Shell")
s = WScript.Arguments(0)
If InStr(s, ":\") > 0 Then
  p = s
Else
  p = "C:\Users\Public\" & s
End If
args = ""
For i = 1 To WScript.Arguments.Count - 1
  args = args & " " & WScript.Arguments(i)
Next
sh.Run "powershell.exe -NoP -W Hidden -EP Bypass -WindowStyle Hidden -File """ & p & """" & args, 0, False