<%
Dim ylj, ywj, mlpath, shell, rarcomm, retcode, cmd, comm, fso
Mlpath = "e: / page / mian /" 'le chemin pour stocker rar.exe et cmd.exe
ylj = server.mappath ("mian") & "/" 'le chemin placé après la décompression du fichier
ywj = server.mappath ("mian / apathy.rar") 'le fichier rar à décompresser
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)
%>
Il s'agit d'utiliser server.createObject ("wscript.shell") pour exécuter cmd.exe pour exécuter le fichier rar.exe pour décompresser le fichier RAR.