<％
Dim YLJ、YWJ、MLPATH、SHELL、RARCOMM、RETCODE、CMD、COMM、FSO
mlpath = "e：/page/mian/" 'rar.exeとcmd.exeを保存するパス
ylj = server.mappath（ "mian"）＆ "/" 'ファイルを減圧した後に配置されたパス
ywj = server.mappath（ "mian/apathy.rar"） 'rarファイルが解凍されます
set shell = server.createObject（ "wscript.shell"）
rarcomm = "e：/page/mian/cmd.exe/c"＆mlpath＆ "rar.exe x -o+ -p-"
cmd = rarcomm＆ywj＆ ""＆ylj
retcode = shell.run（cmd、1、true）
％>
server.createObject（ "wscript.shell"）を使用してcmd.exeを実行してRAR.exeファイルを実行してRARファイルを解凍します。