1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45: 46: 47: 48: 49: 50: 51: 52: 53: 54: 55: 56: 57: 58:
di successo 1) allora MsgBox zip.LastErrorText WScript.Quit Concluder se successo = zip.OpenZip (ziplocation) Se (<> di successo 1) allora MsgBox zip.LastErrorText WScript.Quit Concluder se 'Fissare la parola d'accesso stata necessaria per aprire la chiusura lampo di. 'Questa parola d'accesso deve abbinare la parola d'accesso usata quando la chiusura lampo 'è stato generato. zip.SetPassword “Ech0p@ss„ 'Restituisce il numero delle lime e degli indici aperti la chiusura lampo di. unzipCount = chiusura lampo. Aprire la chiusura lampo di (“c:\extractedfiles ") Se (unzipCount < 0) allora MsgBox zip.LastErrorText Altrimenti wscript.sleep (9000) Concluder se Concludere il sommergibile