Disallow running an application

Set objShell = CreateObject("WScript.Shell")

objShell.RegWrite "HKCR\Software\Microsoft\Windows\Current

Version\Policies\Explorer\DisallowRun","C:\FASM\FASMW.EXE" & "=" & "FASMW.EXE"
msgbox "completed"

' the above script will disallow running FASMW.EXE