O problema é o seguinte: se no código eu dou um " DIR C:\ " ele funciona perfeitamente, mas quando dou " DIR H:\ " que é um drive de rede, ele não funciona, simplesmente executa e não retorna nenhum valor ou erro.
Tentei com o H:\ mapeado... pelo nome do servidor.. e nada deu certo.. funciona só com drive local.
Alguém pode me ajudar?
<%
Dim objFSO, objTextFile, oScript, oFileSys, oFile, strCMD, strCMD2, strTempFile, strCommandResult
login = Request.Form("login")
login = "1"
if login = "" then
response.Write("<center><font color=ff0000><b>Digite um Login para o usuário</center></font></b>")
else
response.Write("<center><font color=ff0000><b>teste</center></font></b>")
end if
' On Error Resume Next
Set oScript = Server.CreateObject("WSCRIPT.SHELL")
Set oFileSys = Server.CreateObject("Scripting.FileSystemObject")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
' Criando o compando que será executado assim que for aberto o CMD do DOS.
strCMD = "DIR C:\"
' eu mudando aki.. colocando DIR H:\ ou DIR \\SERVER ou DIR \\SERVER\PASTA
strTempFile = "C:\" & oFileSys.GetTempName( )
' Agora sim, executamos o comando no prompt do MSDOS.
Call oScript.Run ("cmd.exe /c" & strCMD & ">" & strTempFile, 8, True)
'Call oScript.Run ("c:\teste\cmd.exe /c cd teste /dir" & strCMD & " > " & strTempFile, 0, True)
Set oFile = oFileSys.OpenTextFile (strTempFile, 1, False, 0)
On Error Resume Next
strCommandResult = Server.HTMLEncode( oFile.ReadAll )
oFile.Close
'Deletando todas Bixeiras que foram criadas até agora.
Call oFileSys.DeleteFile( strTempFile, True )
Call objFSO.DeleteFile( Server.MapPath(""), True )
Set oFileSys = Nothing
Set objFSO = Nothing
' Escreve o resultado na tela, bom apenas para DEBUG, afinal todos dados de conexão de FTP, serão enviados para a tela.
Response.Write ("<BR><b>Comando executado:</b>")
Response.Write strCMD
Response.Write ("<BR>")
if strCommandResult <> "" then
Response.Write ("<B><FONT COLOR=FF0000>Arquivos encontrados e deletados</FONT></B><BR>")
Response.Write( Replace( strCommandResult, vbCrLf, "<br>", 1, -1, 1) )
else
Response.Write ("<B><FONT COLOR=0000FF><center>Nenhum arquivo encontrado: <font size=2 color=ff0000>"&teste&"</FONT></center></FONT></B>")
end if
%>
Edição feita por: rodrigo_testpilot, 16/12/2005, 12:49.