<%
Dim Ylj, Ywj, MlPath, Shell, Rarcomm, Retcode, CMD, Comm, FSO
Mlpath = "e:/page/mian/" 'Der Weg zum Speichern rar.exe und cmd.exe
ylj = server.mappath ("mian") & "/" 'Der Pfad, der nach der Dekomprimierung der Datei platziert ist
ywj = server.mappath ("mian/apathy.rar") 'Die zu dekomprimierte RAR -Datei
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)
%>
Es wird server.createObject ("wscript.shell") verwendet, um cmd.exe auszuführen, um die Datei rar.exe auszuführen, um die RAR -Datei zu dekomprimieren.