lanciare pkzip da asp

[mosquito70]

ciao a tutti,
è possibile lanciare da asp, una shell che esegua il pkzip.exe di n-file?

Le pagine risiedono su un nostro server, equipaggiato con Windows NT e chiaramente con l'eseguibile pkzip.exe installato

Grazie a tutti

ps. non sono riuscito a trovare nulla sul forum...

[Mems]

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:\Program Files\pkzip\zip.exe"
sourcePath = "C:\temp\file.zip"
destinationPath = "C:\temp\uncompressed\"

Call extractZipFile(zipExePath, sourcePath, destinationPath)

[mosquito70]

Originariamente inviato da Mems

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:\Program Files\pkzip\zip.exe"
sourcePath = "C:\temp\file.zip"
destinationPath = "C:\temp\uncompressed\"

Call extractZipFile(zipExePath, sourcePath, destinationPath)

Come al solito, preciso e chiarissimo

Grazie mille
Paolo

[mosquito70]

Originariamente inviato da Mems

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:\Program Files\pkzip\zip.exe"
sourcePath = "C:\temp\file.zip"
destinationPath = "C:\temp\uncompressed\"

Call extractZipFile(zipExePath, sourcePath, destinationPath)

Come anticipato nel titolo,
mi da un errore di questo tipo

WshShell.Exec error '80070005' 

Accesso negato. 

/repobollavviprodfilehtml.asp, line 638

dove nel file indicato ho inserito questo codice (la riga 638 è indicata in neretto)

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:\xxxxx\exe\pkzip.exe"
sourcePath = "c:\xxxxx\docuavvi\file\file_fax\file0001.zip"
destinationPath = "c:\xxxxx\docuavvi\file\file_fax\"

Qualche consiglio?

Grazie

[Mems]

L'internet Guest Account (nomeMacchina/IUSR_nomeMacchina) non ha accesso in MODIFICA sulla cartella dove sta l'eseguibile pkzip oppure su quella dove decomprimere lo zip.

[mosquito70]

Originariamente inviato da Mems
L'internet Guest Account (nomeMacchina/IUSR_nomeMacchina) non ha accesso in MODIFICA sulla cartella dove sta l'eseguibile pkzip oppure su quella dove decomprimere lo zip.

Ehm... come faccio ad identificare "internet Guest Account (nomeMacchina/IUSR_nomeMacchina)

Per il momento lavoro in locale...

Grazie e sorry per la banalità della domanda...

[Mems]

nomeComputer/IUSR_nomeComputer
al posto di nomeComputer metti il nome del tuo computer
La procedura è quella FAMOSA per dare i permessi in MODIFICA alle cartelle del sito.

[mosquito70]

Originariamente inviato da Mems
nomeComputer/IUSR_nomeComputer
al posto di nomeComputer metti il nome del tuo computer
La procedura è quella FAMOSA per dare i permessi in MODIFICA alle cartelle del sito.

Ho cambiato i permessi alle dir (erano in sola lettura). Credo che sia questo il problemino vero?

Provo e vi faccio sapere.
Grazie comunque

[Mems]

Originariamente inviato da mosquito70
Ho cambiato i permessi alle dir (erano in sola lettura). Credo che sia questo il problemino vero?

Provo e vi faccio sapere.
Grazie comunque

Con quale procedura hai cambiato i permessi?

[mosquito70]

Originariamente inviato da Mems
Con quale procedura hai cambiato i permessi?

"tasto destro" e ho cambiato i permessi.