Nelson Cruz

Meu codigo ficou assim. Dim objFSO, objTextFile Dim sRead, sReadLine, sReadAll Const ForReading = 1, ForWriting = 2, ForAppending = 8 dim ramal as single ramal=val(text1.text) Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.CreateTextFile("C:\Arquivos de programas\Tecnet\Discador_PA\Discador_PA.ini", True) objTextFile.WriteLine("") objTextFile.WriteLine ("[DISCADOR_PA]") 'objTextFile.WriteLine ("RAMAL=" & ramal) objTextFile.WriteLine ("IP_DB=10.134.83.6") 'objTextFile.WriteBlankLines(3) objTextFile.Close Set objTextFile = objFSO.OpenTextFile("C:\Arquivos de programas\Tecnet\Discador_PA\Discador_PA.ini", ForReading) sReadLine = objTextFile.ReadLine sRead = objTextFile.Read(4) sReadAll = objTextFile.ReadAll objTextFile.Close Porem deu esse erro: C:\Documents and Settings\c077237\discador_PA.vb script: Fim da instrução esperado

Pessoal tenho esse script pronto para criar um arquivo de texto. porem queria que o ramal fosse digitado pelo usuario do script. Será que vocês poderiam me ajudar? Dim objFSO, objTextFile Dim sRead, sReadLine, sReadAll Const ForReading = 1, ForWriting = 2, ForAppending = 8 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.CreateTextFile("C:\Arquivos de programas\Tecnet\Discador_PA\Discador_PA.ini", True) objTextFile.WriteLine("") objTextFile.WriteLine ("[DISCADOR_PA]") objTextFile.WriteLine ("RAMAL=") objTextFile.WriteLine ("IP_DB=10.134.83.6") 'objTextFile.WriteBlankLines(3) objTextFile.Close Set objTextFile = objFSO.OpenTextFile("C:\Arquivos de programas\Tecnet\Discador_PA\Discador_PA.ini", ForReading) sReadLine = objTextFile.ReadLine sRead = objTextFile.Read(4) sReadAll = objTextFile.ReadAll objTextFile.Close

Estou dando trabalho. Acho que vou deixar esse script para o futuro, e continuar estudando.

Entendi seu codigo, e mesmo se não tivesse dado erro, ele iria apagar a pasta vários e não as pastas que estáo dentro da pasta varios. Esse script eu vou usar para apagar os perfis que ficam dentro do documentos and settings, e que eu não sei os nomes das pastas. Para facilitar todos os perfis começão com a letra P, podemos colocar isso como parametro e mandar ele testar a data das pastas começadas com P e se for antiga o script apaga.

Amigo deu esse erro. C:\Documents and Settings\Nelson Cruz\deletaantigo.vb script: O objeto não dá suporte para a propriedade ou mét odo: 'MyFiles.name'

continua dando erro na minha pagina, ela está abrindo com isso e quando aperto na imagem nada acontece. o condigo da pagina é esse <!--#include file="common.asp" --> function MM_openBrWindow(theURL,winName,features) { window.open(theURL,winName,features); } <% Dim strQ,login_o strQ = Request.querystring("Q") IF strQ = "1" THEN strQ = strTxtAdminRequest ELSE strQ = "" END IF %> <% 'Set some variables Dim rsChatRequest2 'Chat request record sheet 'Open a new connection to the database adoCon.Open cString 'Create new SQL string StrSQL="SELECT * FROM tblActiveUsers WHERE IP='" & strIPAddress & "';" 'Create new record sheet set rsChatRequest2 =Server.CreateObject("ADODB.Recordset") 'Set cursor and locktypes rsChatRequest2.CursorType = 2 rsChatRequest2.LockType = 3 'Open row data where the logged in users IP equals the IP in the database rsChatRequest2.open StrSQL, CString 'Set rsChatRequest2.fields("ChatRequest")=0 rsChatRequest2.Update 'Close record sheet and clean up rsChatRequest2.Close Set rsChatRequest2 = Nothing set rs1 = server.createobject("ADODB.RecordSet") StrSq1="SELECT * FROM tblSettings" rs1.open StrSq1,cString,3,3 set rsp = server.createobject("ADODB.RecordSet") StrSqp="SELECT * FROM tblSettings where o_online = 1" rsp.open StrSqp,cString if rsp.EOF then %> document.write("<a href=#atendimento onclick=\"MM_openBrWindow('<%=strTxtDominio%>/chat/email.asp','chat','width=400,height=320,status=no')\"><img border=0 src=<%=strTxtDominio%>/chat/images/off.gif></a>"); <% else %> document.write("<a href=#atendimento onclick=\"MM_openBrWindow('<%=strTxtDominio%>/chat/','chat','width=400,height=320,status=no')\"><img border=0 src=<%=strTxtDominio%>/chat/images/on.gif></a>"); <% NomeOperador = rsp("OperatorName") login_o = rsp("login") end if 'if rs1.recordcount => CInt("3") then 'set rs0 = server.createobject("ADODB.RecordSet") 'StrSq0_0="SELECT TOP 1 * FROM tblSettings where o_ocupado <> 1 AND o_online = 1 order by id desc " 'rs0.open StrSq0_0,cString 'if rs0.EOF then %><!--document.write("<a href=#atendimento onclick=\"MM_openBrWindow('https://seguro.emsergipe.com/atendimento/chat/email.asp','chat','width=400,height=320,status=yes')\"><img border=0 src=https://seguro.emsergipe.com/atendimento/chat/images/off.gif></a>");--><% 'else %><!--document.write("<a href=#atendimento onclick=\"MM_openBrWindow('https://seguro.emsergipe.com/atendimento/chat/','chat','width=400,height=320,status=yes')\"><img border=0 src=https://seguro.emsergipe.com/atendimento/chat/images/on.gif></a>");--><% 'NomeOperador = rs0("OperatorName") 'login_o = rs0("login") 'end if 'end if %>

Pelo o que eu consegui entender esse WEBCALL, ele aponta para um site, que deveria ser o antigo servidor.. Como esse servidor hoje em dia está fora, não estou conseguindo usar. alguém teria uma solução para esse problema. Esse era o antigo caminho que ele aponta http://at01.webcallsuporte.com.br

Amigo, desculpe a demora. porem você conseguiu resolver meu problema. muito obrigado.

Amigo, não retorno nenhum erro, porem não apagou a pasta. O que acontece é o seguinte, esse script teria que entrar por exemplo no Documents and Settings e apagar os as pastas com usuarios que já não usar a um certo tempo. esse script funciona para apagar arquivos que não são usados a um tempo. porem esse script tem um outro erro, que se eu colocar ele para apagar doc, e tiver dois aquivos antigos com o nome doc, ele só apaga um. Só que isso não é importantente para mim, já que eu quero excluir a pasta inteira.

alguém teria um link desse sistema funcionando? estou tendo esse problema quando rodo o script function MM_openBrWindow(theURL,winName,features) { //v2.0 window.open(theURL,winName,features); } document.write("");

Desculpe reabrir essa discução depois de muitos anos. Também estou tendo esse problema, será que algum usuario do forum está usando essa ferramenta de outra forma, acho que esse caminho passado na página de admin, já está inativo. e como vou usar esse serviço em uma intranet onde os funcionários não tem acesso a internet não iria funcionar.

Amigo desculpe minha ignorancia, você sabe me responder como ficaria o codigo?

Pessoal tenho um problema cronico aqui na minha empresa, como temos muitos funcionários e não temos lugar fixo, ficamos com os micros lotados de perfis. Isso faz os micros ficarem lentos na hora de logar. Por isso resolvi fazer uma script para excluir as pastas com os perfis que já não são modificados a algum tempo, porem não estou conseguindo fazer o script apagar pasta, ele só está apagando arquivos. strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set objFSO = CreateObject("Scripting.FileSystemObject") 'Diretorio onde vamos apagar strPasta = "C:\vários" 'Tipo de arquivo arrTipos = "doc" 'Ultima modificação strData = 60 arrTipos = split(arrTipos,";") If (objFSO.FolderExists(strPasta) = True) Then Set Folder = ObjFSO.GetFolder(strPasta) Set MyFiles = Folder.files For Each tipo in arrTipos For Each MyFiles in Folder.Files If Right(myfiles.name,3) = tipo And DateDiff("d",myfiles.DateLastModified,now) > strData Then objFSO.Deletefile(strPasta & "\" & myfiles.name) End If Next Next End if wscript.quit

Amigo, obrigado. Desconbri que é um problema de configuração no servidor aqui na caixa economica mesmo. já solicitei a area responsavel a liberação. de qualquer forma muito obrigado.

Está. Tem algo estranho. porque fiz um teste com essa mesma DTS em um outro servidor meu, e ela funcionou.

Meu nobre, esse script eu rodo no SQL serve 2000 e me volta um erro. 1 task(s) failed during execution. falha na conexão do transporte com servidor. erro on line 66

Pessoal, estou com um problema, fiz uma rotinha para enviar e-mail no SQL, porem não estã funcionando, alguém pode me ajudar? '********************************************************************** ' Visual Basic ActiveX Script '************************************************************************ Function Main() 'Dim conexao, registro, cntServidor set conexao = CreateObject("ADODB.Connection") set registro = CreateObject("ADODB.Recordset") set rs_historico = CreateObject("ADODB.Recordset") cntServidor = "Network Library=dbnmpntw;SERVER=RJ7399NT004;uid=saGITEL;pwd=cef7399;driver={SQL Server};database=SIATE;" conexao.CommandTimeout = 0 conexao.Open cntServidor tSQL = "SELECT H.cod AS cod_hist, C.cod AS cod_cham, S.nome AS situacao, C.descricao AS descr_cham, RIGHT(C.logn_inc, 7) AS logn_inc, ABRIU.NOME AS nme_inc, RIGHT(C.logn_alt, 7) AS logn_alt, ALTEROU.NOME AS nme_alt, H.descricao AS resp_cham, RIGHT(C.logn_inc, 7) + '@mail.caixa' as email " tSQL = tSQL + "FROM EMPREGADOS ALTEROU " tSQL = tSQL + "RIGHT OUTER JOIN tbChamados C " tSQL = tSQL + "INNER JOIN EMPREGADOS ABRIU ON RIGHT(C.logn_inc, 7) = ABRIU.LOGIN " tSQL = tSQL + "RIGHT OUTER JOIN tbSituacao S " tSQL = tSQL + "RIGHT OUTER JOIN tbHistorico H ON S.cod_sit = H.cod_sit ON C.cod = H.codcham ON ALTEROU.LOGIN = RIGHT(H.logn_inc, 7) " tSQL = tSQL + "WHERE (H.dt_envio_email IS NULL) and (H.cod_sit in(3,4))" registro.open tSQL, conexao, 3, 3 Set objConfig = CreateObject("CDO.Configuration") With objConfig.Fields .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.correio.caixa" .Update End With ' Instantiate the CDO Message object. Set objMail = CreateObject("CDO.Message") If registro.EOF then Else Do while not registro.EOF email_destino = registro("email") '=======================Mensagem do envio de email================================ 'conteúdo da mensagem strBody = "<html><head>" & vbCrLf & vbCrLf & _ "</head><body> <b>MENSAGEM AUTOMATICA - SIATEL -CERAT/RJ</b>" & vbCrLf & _ "<br><br>NRº DO CHAMADO: " & registro("cod_cham") &"" & _ "<br><br>SITUAÇÃO: " & registro("situacao") &"" & _ "<br><br>DESCRIÇÃO: " & registro("descr_cham") & "" & _ "<br><br>RESPOSTA: " & registro("resp_cham") & "" & _ "<br><br>RESPONDIDO POR: " & registro("logn_alt") &" - " & registro("nme_alt") & "" & _ "<br><br>EQUIPE - SUPORTE TECNOLÓGICO." strBody = strBody & "</body></html>" With objMail Set .Configuration = objConfig .From = "ceratrj@mail.caixa" .To = email_destino .CC = "c079249@mail.caixa,c077237@mail.caixa,p606747@mail.caixa,p590848@mail.caixa,p605082@mail.caixa" .Subject = "MSG AUTOMATICA - SIATEL - CERAT/RJ" .HtmlBody = strBody .Send End With tSQL = "select dt_envio_email from tbhistorico where cod = " & registro("cod_hist") rs_historico.open tSQL, conexao, 3, 3 rs_historico("dt_envio_email") = now() rs_historico.update rs_historico.close registro.movenext loop End if registro.close set registro = nothing set rs_historico = nothing SET objMail = nothing Main = DTSTaskExecResult_Success End Function

Pessoal, estou tomando um banho aqui para importar um banco de dados do proprio SQL SERVE 2000. é o seguinte, peguei um bkup de um banco no meu trabalho para usar de massa de teste em casa, para fazer umas alteraçoes, só que não consigo importar o banco. uso o SQL serve 2000 no trabalho e em casa.