<%
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") 'файл RA
Set shell = server.createObject ("wscript.shell")
rarcomm = "e: /page/mian/cmd.exe/c" & mlpath & "rar.exe x -t -o+ -p-"
cmd = rarcomm & ywj & "" & ylj
Retcode = shell.run (cmd, 1, true)
%>
Для выполнения cmd.exe для запуска файла rar.exe для декомпрессии файла RAR для запуска файла rar.exe для распадки файла RAR.