' RemoteShot ランチャー — PowerShell本体を画面に出さず裏で起動する
' このvbsと remoteshot.ps1 は同じフォルダに置いてください
Dim sh, fso, dir, ps1
Set sh  = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
dir = fso.GetParentFolderName(WScript.ScriptFullName)
ps1 = dir & "\remoteshot.ps1"
' 0 = ウィンドウ非表示, False = 終了を待たない
sh.Run "powershell.exe -NoProfile -ExecutionPolicy Bypass -WindowStyle Hidden -File """ & ps1 & """", 0, False