Alvo Conhecimento » Tutoriais

Um VBS um tanto que ousado

Daniel Accorsi — Fri, 08 Aug 2008 15:24:31 +0000

Com uma série de comandos simples conseguimos fazer um script um tanto que ousado, bom…nem tanto assim, mas o que vale aqui é a idéia. Tenho um Server pessoal para garantir a execução de muitas rotinas, há vários meses configurei para me ajudar em alguns processos rotineiros (ou não). Foi legal!

Bom, aqui envio um dica bem interessante para você que não possui um IP fixo em casa/escritório mas que gostaria de estar consultando informações remotamente sem precisar ficar consultando o IP todos os dias, interessante hein? Simule um IP fixo, depende muito em como vamos criar nossa solução.

Usei aqui um “.VBS”, executado pelo WSH (Windows script host), padrão do Windows. Se você notar, quando se instala o IIS verá que alguns VBS de controle do Server são instalados juntos. Esses VBS são excelentes para execução de rotinas sem interação com usuário e que precisam ser executados em tempos determinados (agendamento). Um exemplo de um bom VBS é a veiculação de um e-mail marketing todo dia 15, por exemplo. Quem aí recebe e-mails do Submarino?

Seguindo este conceito que vamos criar um script para ser executado diariamente. Afinal, o que pretendemos fazer? Primeiro criamos uma rotina para coletar através de uma página o IP da máquina na qual está acessando. Buscamos através de um serviço, exemplo do site MeuIP. Mas não usaremos este para não recebermos junto informações desnecessárias. Então usaremos uma página muito simples (1 linha) desenvolvida por mim, em ASP (http://www.ciin.com.br/pegaIp.asp). Claro que, se acessar agora, vai pegar seu IP nesse momento.

Em seguida criamos um arquivo HTML e jogamos em seu conteúdo o resultado da consulta acima, ou seja, o IP. Então fazemos a conexão FTP de um de nossos sites para conseguirmos disponibilizar o IP via WEB, assim, ao acessarmos um endereço configurado por você, teremos o IP do Server onde quer que estejamos. Detalhe, no script é gerado um TXT com a configuração completa e a execução de todos os comandos necessários para conexão e envio via FTP.

Por último é executada uma rotina para enviar o IP por e-mail, o seu e-mail ou de quem você deseja manter atualizado.

No final do script, por motivos de segurança os arquivos gerados são apagados.

Sim, faltou muitos detalhes na explicação do script, mas considero o conhecimento básico do caro leitor. Para conseguir enviar o e-mail, a máquina que vai executar o script precisar estar com o IIS + SMTP configurado.

Abaixo o código:

‘———————————————–
‘ ———- CAPTURA IP E CRA HTML ————-
sSource = “http://www.alvoconhecimento.com.br/pegaIp.asp”
sDest = “ipGrava.html”
set oHTTP = WScript.CreateObject(“Microsoft.XMLHTTP”)
oHTTP.open “GET”, sSource, False
oHTTP.send
tStart = timer()
set oStream = createobject(“adodb.stream”)
Const adTypeText = 1
Const adSaveCreateNotExist = 1
Const adSaveCreateOverWrite = 2
oStream.type = adTypeText
oStream.open
oStream.write oHTTP.responseBody
oStream.savetofile sDest, adSaveCreateOverWrite
set oStream = nothing
tElapsed = timer() – tStart
set oHTTP = nothing
WScript.Echo “1. IP capturado e arquivo gerado em ” & tElapsed & ” segundos…”

‘——————————————————————-
‘—– ENVIAR O HTML PARA O SERVER E REMOVE TODOS OS ARQUIVOS ——
Const HOSTNAME = “URL FTP”
Const USERNAME = “LOGIN”
Const PASSWORD = “SENHA”
Const CONFIGFTP = “configFTP.txt”
Set WshShell = CreateObject(“WScript.Shell”)
Set objFso = CreateObject(“Scripting.FileSystemObject”)
Set objFile = objFso.CreateTextFile(CONFIGFTP)
With objFile
.WriteLine “open ” & HOSTNAME
.WriteLine USERNAME
.WriteLine PASSWORD
.WriteLine “cd web/” (padrão Locaweb)
.WriteLine “put ” & sDest
.WriteLine “quit”
.Close
End With
strFTP = “%systemroot%\System32\ftp.exe -s:” & CONFIGFTP
strFTP = WshShell.ExpandEnvironmentStrings(strFTP)
WshShell.Run strFTP,1,true
WScript.Echo “2. IP Enviado para o server. ” & sDest

‘——————————————————————–
‘——————— ENVIAR POR E-MAIL O IP ———————–
Const cdoOutlookExvbsss = 2
Const cdoIIS = 1
Set Message = CreateObject(“CDO.Message”)

Set objFile = objFso.OpenTextFile(sDest)
Do Until objFile.AtEndOfStream
txtCorpo = txtCorpo & objFile.Readline
loop

With Message
.Configuration.Load cdoIIS
.To = “SEU EMAIL”
.Subject = “[SERVER IP]”
.HtmlBody = txtCorpo
.From = “SEU EMAIL”
.Send
End With
objFile.Close
WScript.Echo “3. IP enviado por e-mail.”

‘—————————————————————
‘—————— APAGA OS ARQUIVOS GERADOS ——————

objFso.DeleteFile CONFIGFTP, vbTrue
objFso.DeleteFile sDest, vbTrue
WScript.Echo “4. Todos os arquivos gerados foram apagados. Fim do processo.”

set objFile = nothing
set objFso = nothing

Grave o arquivo com uma extensão “.vbs”: “mandaIp.vbs” execute em prompt de comando: “cscript mandaIp.vbs”.

Até a próxima.

Dicas Interessantes #4

Daniel Accorsi — Thu, 21 Feb 2008 18:45:28 +0000

Update 25/02/2008: O objetivo dessa série de posts (Dicas Interessantes) é oferecer dicas realmente úteis que eu mesmo já usei, na maioria. Estes posts são acúmulos de favoritos focando diretamente meus leitores. Tanto que, após a publicação, “esvazio” o meu pessoal para deixar somente a “versão on-line”. Opção minha em fazer dessa forma ao invés de popular meu feed com links únicos no del.icio.us.

Conteúdo / Conceito

Problemas de pixel no CSS em diferentes browsers?
Introdução à Semântica (for noob)

Coleções

WebAppers iconset
Web templates & WordPress themes
Iconspedia – banco de ícones
Templates para Flash

Serviços on-line

Befunky – converta suas fotos para cartoon
GWT-Ext – Widget Library
Capture as cores de um site
Pichacks – brinque com sua foto
Energy Ville – online game estilo SimCity ecologicamente correto
Krugle – searsh engine para códigos (todas as linguagens)
Idea Generator – está sem idéia? Ele te ajuda!

Tutoriais

Layout CSS passo a passo

Scripiting

10 bes CSS hacks
mooSlideBox3
BrPoint – robots.txt ideal para WordPress

Downloads

Instantstorm 1.5 – transforme SWF em screensaver (free)
All in One SEO Pack – plugin WordPress

Cozinhe seu conteúdo

Daniel Accorsi — Wed, 20 Feb 2008 14:00:27 +0000

Antes de publicar um artigo, cozinhe por alguns dias.

Essa é uma das dicas (sabe aqueles famosos 10 passos para tudo?) de um blogueiro. Um post bem escrito é crucial para o sucesso do blog. Estou me referindo a blogs, mas pode ser aplicável em qualquer tipo de conteúdo. Particularmente evito reescrever sobre assuntos já detalhados em outros blogs. Muitos acabam caindo num enorme erro, tentar competir com um post muito bem escrito, e por fim, acabam se frustrando.

(Aos blogueiros, gostaria apenas de fazer um parêntese sobre essa “competição”. Leve uma regrinha com você: Não há competição, HÁ informação! Um blog nunca deve ser concorrente de outro, ambos oferecem informação, apenas de um ponto de vista diferente.)

Cozinhar um texto é exatamente deixa-lo em espera após ter concluído. A tentação de publicá-lo é grande, sempre desejamos conhecer o retorno do público. Resista! Após a conclusão deixe em modo draft e abra no dia seguinte, releia e verá que existem inúmeras correções, incluindo outros pontos a adicionar. Salve e ainda resista, não publique.

Deixe passar mais um dia, releia e ainda terá mais alguns ajustes, poucos, mas terão.

Confesso que, no início, elaborando meus textos eu ficava completamente perdido ao voltar à leitura. Muitas vezes não entendia o que eu mesmo tinha escrito! Isso é muito natural, afinal, temos o desejo de escrever, sabemos o que está em nossa mente, mas não conseguimos extrair a informação. Não desista!

Com o tempo sua escrita será naturalmente perfeita e “publicável”. Não ignore essa dica, você receberá muitos elogios.

Aproveitando, indico um complemento para o Firefox chamado ScribeFire, ajuda bastante nesses momentos de “bloco de notas”. Ele conecta em seu WordPress (ou outros) e publica diretamente. Sempre salvo em draft e concluo no próprio adm do blog. Tem uma opção de notes, que serve como um “pré-post”.

Se você deseja profissionalizar seu blog, faça um curso prático de escrita, ou treine bastante. Uma boa fórmula inicial é escrever qualquer artigo e entregar para um profissional corrigir (sempre conhecemos algum ), analise os erros apontados e reescreva da forma correta.

Estou tomando cuidado para não me estender em meus posts, então, qualquer dica interessante faço um novo ou um update nesse.

Até o próximo erro gramatical…