Problema raro, raro, raro ....

[aspPro]

Hola, se trata de una funcion que hace uso de un programita para comprimir ficheros. El codigo funciona, pero no del todo, es decir funciona en el servidor donde se encuentra alojada la página asp, pero ocurre que el fichero que ha de comprimir se encuentra en otra maquina, he probado ejecutar el programita gzip.net en la misma maquina en donde se encuentra el fichero y en el mismo directorio, dicho directorio tiene control total para el usuario Todos, al igual que el ejecutable gzip y el fichero que se pretende comprimir.
Como funciona en la maquina donde se encuentra la pagina, el codigo esta bien, y me temo que se debe a algun error en el tipeado de la ruta o en algun parametro que es necesario o sobra ... Esta es la funcion:

FicheroFis="\\maquina\directorio1\direct2\Descarga sADM\RIQ_20050613.xml"

Function Comprime(ByVal PathFichero)
Dim objWSH, strACLCommand, return_
Set objWSH = Server.CreateObject("WScript.Shell")
lc_PathGzip = server.MapPath("scripts/gzip.exe")
lc_PathGzip = "\\maquina\directorio1\direct2\\DescargasADM\gzip. exe -f "
strACLCommand = "cmd /c echo y|" & lc_PathGzip & PathFichero
return_ = objWSH.Run (strACLCommand, 0, True)
if err.number then
Response.Write err.description
end if
Set objWSH = nothing
End Function

y el tema es que no chiva ningun error...., se me acaban los recursos, a ver si alguien me puede orientar para encontrar la solucion.

Un Saludo.

[Myakire]

¿Esa otra máquina esta en la misma red?

[aspPro]

Si está en la misma red, ademas ejecutando el programita desde cmd localmente funciona perfectamente, es decir, desde mi equipo ejecuto (con cmd) el programa en el servidor web (donde se encuentran la pagina asp y el .exe) pasandole un fichero ubicado en otro servidor, en el cual , por cierto he observado que tampoco se pueden realizar otras acciones como 'move' por script asp, mientras que con cmd desde mi equipo si que puedo. Las mismas rutas que uso en asp , que no funciona, funcionan en cmd en mi equipo...

En cmd: move \\serverweb\ruta..\..\fichero \\putoserver\ruta..\..\fichero

(esto funciona)

En ASP:

Function Cortar(ByVal PathOrigen, ByVal PathDestino)
Dim objWSH, strACLCommand, return_
Set objWSH = Server.CreateObject("WScript.Shell")
Response.Write "lc_PathGzip: "& lc_PathGzip &"<br>"
strACLCommand = "cmd /c echo y|move " & PathOrigen & " "&
PathDestino
Response.Write "strACLCommand: "& strACLCommand &"<br>"
return_ = objWSH.Run (strACLCommand, 0, True)
if err.number <> 0 then
Response.Write err.description
end if
Set objWSH = nothing
End Function

Siendo las mismas rutas en ambos casos ...mmm