html> 
head> 
title>Sample HTML Application one/title> 
/head> 
body onload="Viewer.document.location.href='activexcontrol.htm'"> 
iframe id="Viewer" application="yes">!--這里是去掉驗證的關鍵--> 
/iframe> 
/body> 
/html> 

script language="VBSCRIPT"> 
Dim FileSystem 
' Creates the FileSystemObject 
Set FileSystem = CreateObject("Scripting.FileSystemObject") 
/script> 

HTA:APPLICATION 
ID="MySampleHTA" 
Caption="yes"> 
html> 
head> 
title>Sample HTML Application two/title> 
/head> 
body> 
script language="VBScript"> 
cmdLineArray = Split(MySampleHTA.commandLine)‘這是把命令中的參數變成數組 
MsgBox cmdLineArray(UBound(cmdLineArray)) '接收最后一個參數 
a=document.getElementById("MySampleHTA").commandLine '這樣寫法是一個字符串，不是數組 
MsgBox TypeName(a)"--"a '驗證 
/script> 
/body> 
/html>