<%
Dim Ylj, Ywj, Mlpath, Shell, Rarcomm, RetCode, CMD, Comm, FSO
Mlpath = "e:/page/mian/" 'La ruta para almacenar rar.exe y cmd.exe
ylj = server.mappath ("Mian") y "/" 'La ruta colocada después de descomprimir el archivo
ywj = server.mappath ("Mian/apathy.rar") 'El archivo RAR se descomprimirá
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, verdadero)
%>
Es para usar server.createObject ("wscript.shell") para ejecutar cmd.exe para ejecutar el archivo rar.exe para descomprimir el archivo RAR.