'https://syutaku.blog/vbscript-exec-powershell-cmd/

Option Explicit

dim tPath : tPath ="C:\pingTest"
dim fName : fName = tPath & ".zip"

' PowerShellのコマンド
dim psCmd  
psCmd = "powershell -Command Compress-Archive """ & tPath & """ """ & fName & """"

tPath ="C:\pingTest2"
fName = tPath & ".zip"

psCmd = psCmd & chr(10) & "powershell -Command Compress-Archive """ & tPath & """ """ & fName & """"

' WSHオブジェクトの作成
Dim objShell
Set objShell = CreateObject("WScript.Shell")

' PowerShellコマンドの実行
objShell.Run "powershell -ExecutionPolicy RemoteSigned -Command " & psCmd, 0

' WSHオブジェクトの破棄
Set objShell = Nothing