pkzipc: estrarre zip con asp

[Beppesan]

Devo scompattare un file zip presente sul server con ASP.
Utilizzo il seguente codice, ma lo script va in timeout... quele potrebbe essere il problema?

Function extractZipFile(theZipExePath, theSourcePath, theDestinationPath)
    Set Shell = CreateObject("WScript.Shell")
        theCMD = theZipExePath & " -oq " &  theSourcePath & " -d " & theDestinationPath                                    
        Set oExec = Shell.Exec(theCMD)                                                                
            Do While oExec.Status = 0                                            
            Loop
        Set oExec = nothing
    Set Shell = nothing    
End Function

zipExePath = "C:\Programmi\PKWARE\PKZIPC\pkzipc.exe"
sourcePath = fileroot & "_materiale/x importazione/zipCaricato/Export20080401105717.zip"
destinationPath = fileroot & "_materiale/x importazione/new/"

Call extractZipFile(zipExePath, sourcePath, destinationPath)