rodrigo_testpilot

To tentando fazer a conexão aqui, mas não vai nem com promessa:

dim objConn
set objConn = server.createobject("adodb.connection")
objConn.connectionstring = "Driver={Microsoft Access Driver (*.mdb)}; dbq=C:\Inetpub\wwwroot\Teste\banco_de_dados.mdb;Pwd="&senha&";"
objConn.open


____

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0xf4c Thread 0xe70 DBC 0x1010f94 Jet'.
/teste/cadastros.asp, line 156

____

Line 156 = objConn.open


Alguém pode me ajudar??
Tá difícil aqui....

Valeuuuuu

Tenho esse código:

<%
dim objConn
set objConn = server.createobject("adodb.connection")
objConn.connectionstring = "Driver={Microsoft Access Driver (*.mdb)}; dbq=banco_de_dados.mdb;Pwd=senha;"
objConn.open
%>

Como eu faço pra pegar a senha através de uma variavel tipo:

dim senha
senha = "123"

dai no PWD ele pega o valor que foi atribuido pra senha

Valeu galera... eu dei uma buscada e não achei isso!!

Estou com o código abaixo que está fazendo o seguinte... ele executa um comando do DOS pelo ASP... até ai está funcionando normalmente.

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

%>

Putzzzz.. to com um sério problema... e não sei por onde começar!

É o seguinte, no meu trabalho eu administro a Rede de uma empresa, que utiliza terminal burro e tudo rodando nos servidores.

Então... só que as vezes ficam presos uns arquivos *.TMP no login dos usuários...

Como posso fazer pra rodar um comando pra deletar todos os *.tmp do profile dele....

o caminho eh sempre este: \\SERVIDOR\PASTA$\LOGIN

Tenho q criar uma pagina na qual coloco o login do cara, e ao enviar deleta todos os temporários, e se possivel mostre se tinha ou naum, e a quantidade...

Alguem pode me ajudar?
Valeu