Decomprimare arhive ZIP

cZip = "C:\ruta\archiva.ZIP"
cDestino = "c:\temp\"

o=CREATEOBJECT("shell.application")
FOR EACH ofile IN o.NameSpace(cZip).items
o.NameSpace(cDestino).copyhere(ofile)
ENDFORjavascript:void(0)