Pesquisar na Comunidade

tenho o seguinte: (botão calcular) Private Sub Calcular_Click() 'reconhecimeto de elementos a = N1 b = N2 c = N3 d = N4 e = N5 f = N6 g = N7 h = N8 i = N9 j = N10 k = N11 l = N12 m = N13 N = N14 o = N15 p = N16 q = N17 r = N18 s = N19 t = N20 u = N21 v = N22 w = N23 X = N24 Y = N25 Z = N26 aa = N27 ab = N28 ac = N29 ad = N30 ae = N31 af = N32 ag = N33 ah = N34 ai = N35 aj = N36 'calculo Respostas = End Sub As textbox pequenas estão nomeadas de 'N1 a N36' e a textbox maior está nomeada de 'Resultados'. em cada textbox o usuario irá colocar um número seguido de ' - ' então, ao pressionar o botão 'Calcular!' o comando deverá listar na textbox 'Resultados' varias sequencias definidas já na programação por exemplo: foram preenchidas as TextBox 'N1 a N6' com os seguintes números N1=1 N2=2 N3=3 N4=4 N5=5 N6=6 Em reposta de pressionar o botão 'Calcular!' a TextBox 'Resultaos' irá exibir com exatidão: 'inicio da exibição -1-2-3-4-5-6 (original) -6-1-5-2-4-3 -3-6-4-1-2-5 -5-3-2-6-1-4 -4-5-1-3-6-2 -2-4-6-5-3-1 -1-2-3-4-5-6 (volta para o primeiro) 'fim da exibição As formulas seriam: linha1} -a-b-c-d-e-f (original) linha2} -f-a-e-b-d-c linha3} -c-f-d-a-b-e linha4} -e-c-b-f-a-d linha5} -d-e-a-c-f-b linha6} -b-d-f-e-c-a linha7} -a-b-c-d-e-f (volta para o primeiro) segue imagem: por favor ajudem!

então pessoal, eu preciso de um comando .vbs que abra a aba de selecao de arquivos do windows explorer, e, quando eu escolha o arquivo desejado, o mesmo me retorne um log.txt, preenchido com o nome completo do caminho escolhido. Abcs.

Bom dia pessoal, Seguinte, tenho um serviço aqui em meu ambiente que roda em algumas máquinas, porém este serviço não pode ficar duplicado ( não podem ter 2 serviços ativos ao mesmo tempo ) gostaria de saber se é possível redigir um script que verifique se tem 2 serviços ativos ou mais, desative os 2 ou mais e ative somente 1 ? Agradeço desde já a atenção.

Estou tentando executar um arquivo .vbs em minha maquina para que ele possa inserir URL's na lista de exceções do java, segue código: (erro que está retornando : Linha 1 Caractere: 9 erro : instrução esperada) mkdir C:\WINDOWS\Sun\Java\Deployment\ echo deployment.user.security.exception.sites=C\:/WINDOWS/Sun/Java/Deployment/exception.sites>>C:\WINDOWS\Sun\Java\Deployment\deployment.properties echo deployment.browser.vm.iexplorer.locked >>C:\WINDOWS\Sun\Java\Deployment\deployment.properties echo deployment.browser.vm.iexplorer=true >>C:\WINDOWS\Sun\Java\Deployment\deployment.properties echo deployment.browser.vm.mozilla.locked >>C:\WINDOWS\Sun\Java\Deployment\deployment.properties echo deployment.browser.vm.mozilla=true >>C:\WINDOWS\Sun\Java\Deployment\deployment.properties echo deployment.expiration.check.enabled=false >>C:\WINDOWS\Sun\Java\Deployment\deployment.properties echo deployment.security.level=HIGH >>C:\WINDOWS\Sun\Java\Deployment\deployment.properties echo deployment.system.config=file\:C\:/WINDOWS/Sun/Java/Deployment/deployment.properties >>C:\WINDOWS\Sun\Java\Deployment\deployment.config echo deployment.system.config.mandatory=true >>C:\WINDOWS\Sun\Java\Deployment\deployment.config echo https://(INSIRA SUA URL AQUI)>C:\WINDOWS\Sun\Java\Deployment\exception.sites

Utilizo esse script para apagar arquivos et FSo = CreateObject("Scripting.FileSystemObject") set folder = FSO.getFolder ("C:\teste\") for each file in folder.files if (dateDiff("d", file.datecreated, now) >1) then File.delete end if next Queria incrementar para ele gerar um arquivo de log .txt contendo o horário que o script foi executado e os arquivos que ele excluiu Alguém pode ajudar?

Bom dia, Sou novato na área. E gostaria de ajuda com um script relativamente simples set objShell = CreateObject("Shell.Application") Dim URL Dim Execute Dim SrtLandesk URL = "http://"StrLandesk":4343" SrtLandesk=InputBox("Digite o ip da estação") objShell.ShellExecute "chrome.exe", URL, "", "", 1 Preciso criar uma rotina que abra um determinado sistema via Browse através da porta 4343, informando apenas o numero ip da estação Ex: https:\\192.168.0.1:4343 Bem, o que eu to querendo fazer é o seguinte: Ler a informação do IP através da variável StrLandesk, e jogar no endereço especificado, de forma que ele abra no Google Crhome. O que acontece é que o script retorna erro ao inserir a variavel "srtlandesk", na URL. Se eu colocar só o endereço completo sem o "StrLandesk" ele roda normalmente. mais eu preciso que o script leia o IP digitado e jogue dentro do link. Obrigado!

Olá pessoal eu tenho o seguinte código de .BAT ------------------------------------------------------------------------------ echo Escolha o número correspondente ao que precisa echo. echo 1 - Verificação de usuário utilizando a máquina echo. set /p opcao= Digite a opcao desejada: echo. if %opcao% equ 1 goto VU ----------------------------------------------------------------------- Tem mais opções no código mas minha dúvida é apenas em uma que quero fazer. Ok agora minha dúvida. Quando o cara digitar a opção 1 eu queria que lógo em seguida fosse pedido para digitar o IP porém após ele digitar o IP e apertar o enter eu precisaria jogar o IP que ele digitou dentro de uma linha de comando. EX wmic /node:"IP" computersystem get username Detalhe, estou executando em uma .bat tudo pelo cmd, provavelmente terei q ir para o vbs mas não tem problema;

Ola a todos, Gostaria de saber se tem como, saber a versão do office que esta instalado no PC? Tipo quero saber se e office 2010 - 2013 - 2016 - 2007 Estou fazendo um levantamento de equipamentos, pegando o Hostname, Usuário, Versão do Windows, Serial Number do PC e a versão do office e salvar em um txt em uma pasta na rede. Mas só esta faltando descobrir a versão do Office, se alguém souber eu posto depois o scripts completo.

Senhores(as), Preciso de uma vbs que faça a leitura do conteúdo de um arquivo *.log colocando no corpo de um email, em seguida faça o envio. Não sou expert em vbs, mas consegui desenvolver duas, a primeira faz a leitura do conteúdo de um arquivo .log mostrando em uma janela, e a segunda zipa o arquivo.log e faz o envio por e-mail. Qualquer ajuda é bem vinda. VBS 1 { REM – I create FSO object. Set FSO = WScript.CreateObject("Scripting.FileSystemObject") REM – I Create OTF object . REM – It will containall lines of the C:\FileName.Txt file. Set OTF = FSO.OpenTextFile("C:\script\lab\arquivo.log", 1, True, 0) REM –I run the loop on the OTF object to read all lines of the file. Do While OTF.AtEndOfStream = False REM – The OTF.ReadLine statement reads the current REM – line and move the cursor to the next line. Current_Line= OTF.ReadLine REM – Show the current line. MsgBox (Current_Line) Loop REM – I close the objects Set OTF = Nothing Set FSO = Nothing } VBS 2 { Dim fso, arq Set fso = CreateObject("Scripting.FileSystemObject") For Each objFiles In fso.GetFolder("C:\script\lab\").Files If InStr(objFiles.Name, "arquivo02.log") Then arq = Split(objFiles.Name, ".") fso.MoveFile "C:\script\lab\" & objFiles.Name , "C:\script\lab\TX\" & objFiles.Name End if next caminho = "C:\script\lab\TX\" If fso.GetFolder(caminho).Files.Count > 0 Then Email End If Function Email() Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.Run (Chr(34) + "C:\Arquivos de programas\7-Zip\7z.exe" + Chr(34) + " a -mx9 -t7z " + Chr(34) + "C:\script\lab\TX\arquivo02.7z" + Chr(34) + " " + Chr(34) + "C:\restless\log\" + Chr(34)) Set objEmail = CreateObject("CDO.Message") objEmail.From = "remetende@email.com.br" objEmail.Subject = "Assunto" objEmail.To = " destino@email.com.br " objEmail.Textbody = "Corpo do email 1 " & chr(13) & "Corpo do email 2" objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _ "192.168.63.4" objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objEmail.Configuration.Fields.Update objEmail.Configuration.Fields.Update objEmail.AddAttachment "C:\script\lab\TX\arquivo02.7z" objEmail.Send msgbox("A função foi chamada") End Function }