<%
Dim YLJ, YWJ, MLPATH, Shell, Rarcomm, Retcode, CMD, Comm, FSO
Mlpath = "e:/page/mian/" 'O caminho para armazenar rar.exe e cmd.exe
ylj = server.mappath ("mian") & "
ywj = server.mappath ("mian/apathy.rar") 'o arquivo rar a ser descomprimido
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, verdadeiro)
%>
É para usar o Server.CreateObject ("wscript.shell") para executar o cmd.exe para executar o arquivo rar.exe para descomprimir o arquivo rar.