Pesquisar na Comunidade

Boa tarde. Dentro de um procedimento Public Sub Main , estou trabalhando com Array para preencher informações padronizadas em emails. Ao executar o client de email, ele executa o script com esse procedimento preenchendo algumas informações como Para:, Cc:, Assunto:, Assinatura de Email:, Etc. Na assinatura, estou tentando carregar uma imagem: Dentro do procedimento, criei uma variável e atribuí o valor carregando o arquivo bmp; Dim X Set X = loadpicture("c:\ass\assinatura.bmp") o chamar o client de email, no local da assinatura ao invés de carregar a imagem ele preenche com números aleatórios. O que pode ser? Tipos incompatíveis ? Ou trabalhando com Array não posso carregar imagens?

Bom dia a todos, Estou desenvolvendo uma página com um Form que é enviado a um link eterno, a questão é gravar os dados desse Form em um banco de dados usando VBScript antes que seja enviado. Não manjo muito de Javascript mas o código está assim por enquanto: Página do formulário: <form action="cadastro.asp" method="post" id="id-do-form" name="nome-do-form" class="validate" target="_blank" novalidate OnSubmit="return Valida(this)"> Código na mesma página: <script language="javascript"> function Valida(form){ <% ' Session("nomereal") = Request.Form("FNAME") Session("email") = Request.Form("EMAIL") Session("nome") = Request.Form("USUARIO") Session("senha") = Request.Form("SENHA") Session("confirme_senha") = Request.Form("CONFIRMESENHA") %> { document.getElementById("id-do--form").action = "link externo pra onde será enviado o form"; // Setting form action to "success.php" page document.getElementById("id-do-form").submit(); // Submitting form } }; end function </script> Agradeço toda ajuda.

Bom dia, Estou utilizando um programa chamado Indusoft para criar programas supervisórios, e é a minha primeira experiência no mundo de VBScript. Eu até tenho uma certa experiência em banco de dados de access e conhecia a linguagem de VB, mas a interação entre os dois, confesso que estou tendo problemas. Vocês conhecem alguma apostila ou manual ensinando melhor essa interação? Principalmente nos comandos de Inserir, Apagar e Consultar.... Para inserir, eu até que estou conseguindo um pouco usando o $DBInsert, mas principalmente realizar a consulta tá fogo, e não acho nenhuma ajuda na internet, porque tudo relaciona a SQL e eu queria usar diretamente o Access nos programas...

Olá a todos, consulto-os sobre como fazer executar um script sempre que determinadas teclas do teclado forem pressionadas. Exemplo: ao pressionar Ctrl + c gostaria que executasse um determinado vbscript que tenho para coletar e analisar dados da área de transferência. Agradeço desde já quem puder ajudar!

Boa noite! VBscript não é a minha praia, mas utilizo uma parte de VBScript junto com o AutoHotKey para consultar um Login no AD e retornar os dados como, nome, e-mail, cidade e etc sobre o login em questão. Acontece que quando o login foi digitado errado ou não foi digitado o login, apresenta "ERROR" e assim fecha o AutoHotKey. Preciso da ajuda de vocês para apresentar uma mensage box, informando que, caso o login não foi encontrado ou não foi digitado, apresente a janela de mensagem dizendo "Usuário / login, não encontrado no AD" Print abaixo referente ao login estar em branco, quando o usuário esquece de informar ou digitar o login para consulta no AD: Outro print abaixo o erro de quando o usuário digitou de forma errada ou o AD não encontrou o Login informado: Estou usando o seguinte codigo para consulta no AD: objRootDSE := ComObjGet("LDAP://rootDSE") strDomain := objRootDSE.Get("defaultNamingContext") strADPath := "LDAP://" . strDomain objDomain := ComObjGet(strADPath) objConnection := ComObjCreate("ADODB.Connection") objConnection.Open("Provider=ADsDSOObject") objCommand := ComObjCreate("ADODB.Command") objCommand.ActiveConnection := objConnection CommandText := "<" . strADPath . ">" . ";(&(objectClass=User)(&(sAMAccountName=" id_usr ")))" . ";sAMAccountName,l,cn,company,title,manager,department,mail;subtree" objCommand.CommandText := CommandText objRecordSet := objCommand.Execute objRecordSet.MoveFirst Login := objRecordSet.Fields("sAMAccountName").Value SiteCidade := objRecordSet.Fields("l").Value NomeReorientado := objRecordSet.Fields("cn").value SiteEmpresa := objRecordSet.Fields("company").Value Cargo := objRecordSet.Fields("title").Value Redepartmento := objRecordSet.Fields("department").Value Remail := objRecordSet.Fields("mail").Value Manager := objRecordSet.Fields("manager").ValueDesde já agradeço pela ajuda de todos, muito obrigado!

Ola pessoal, Sou novo no forum, muito prazer. Estou automatizando um processo de download de um arquivo que fica em um website. Para isso eu faco o login, escolho o link que esta em uma tabela e por fim faco o download clicando em um botao. O que gostaria de saber é, quando carrego o objeto atraves da funcao Navigate na pagina de login e vou para proxima pagina, como faco para que meu objeto obtenha as propriedades da nova pagina. por exemplo Call objIE.Navigate(www.qualquerlogin.com.br) objIE.Document.all.sp_login_form.userId.Value = "tttttt" objIE.Document.all.sp_login_form.groupId.Value = "eeeee" objIE.Document.all.sp_login_form.passwd.Value = "sssss" Call objIE.Document.all.loginButton.click ' aqui ele dara o submit e ira mudar de pagina. 'a partir daqui estou em outra pagina que requeriu autenticacao para entrar. Como carregar meu objIE para manipular o proximo website? Desde já agradeco a atencao.

Boa tarde! Estou precisando montar uma apostila com alguns temas relacionados a redes. alguém tem material para me passar? Sobre redes preciso: 1. Noções de desenvolvimento de scripts 2. Fundamentos de scripts utilizando Vbscript para: bloqueios; personalização; acessos; restrições; monitoramento; backup 3. Fundamentos de scripts utilizando Power Shell ou Shell Script para: bloqueios; personalização; acessos; restrições; monitoramento; backup Grata

Tenho um script (VBScript) que deveria ler a ultima linha de um TXT e somente depois ler a Primeira linha para criar um atalho com o valor da primeira linha mas ocorre que quando o executo ele retorna o seguinte erro:"Final do Arquivo Ultrapassado" "Código: 800A003E". Pelo que vi pesquisando na internet meu código está lendo a última linha do arquivo de texto mas e depois não retorna para a primeira. Meu script deveria fazer o seguinte: 1)capturar o valor numérico na ultima linha do "teste.txt" 2)verificar se o valor lido é maior que o número da linha que será lida. 3)Se o valor for maior, Criar um atalho com nome igual ao conteúdo da linha que foi Lida. "teste.txt": Pasta 1 Pasta 2 2 "Criar atalho.vbs" Option Explicit DIM fso, objFSO, objTextFile, i, strLine, objShell, objLink, strEndLine, Response Set fso = CreateObject("Scripting.FileSystemObject") If (fso.FileExists("teste.txt")) Then Const ForReading = 1 Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.OpenTextFile("teste.txt", ForReading) '-------------------------------------------------------------- Do Until objTextFile.AtEndOfStream strEndLine = objTextFile.ReadLine Loop If strEndLine > 0 Then '-------------------------------------------------------------- For i = 1 to 0 objTextFile.ReadLine Next strLine = objTextFile.ReadLine Set objShell = CreateObject("WScript.Shell") Set objLink = objShell.CreateShortcut(strLine &".lnk") objLink.TargetPath = "%WINDIR%\system32\wscript.exe" objLink.Arguments = "//e:VBScript programa.exe" objLink.IconLocation = "%WINDIR%\system32\imageres.dll, 4" objLink.Description = strLine objLink.Save objTextFile.Close '------------------------------------------------------------ else End If '------------------------------------------------------------ else End If WScript.Quit()