<٪
Dim YLJ ، YWJ ، MLPath ، Shell ، Rarcomm ، Retcode ، CMD ، Comm ، FSO
mlpath = "e:/page/mian/" 'The Path to Store Rar.exe و cmd.exe
ylj = server.mappath ("mian") و "/" 'المسار الموضوعة بعد فك ضغط الملف
ywj = server.mappath ("Mian/Apathy.rar") "ملف RAR يتم إلغاء ضغطه
تعيين shell = server.createBject ("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)
٪>
إنه لاستخدام server.createObject ("wscript.shell") لتنفيذ cmd.exe لتشغيل ملف rar.exe لإلغاء ضغط ملف RAR.