Verificar informações de sites

VERIFICAR INFORMAÇÕES DE SITES

Este pequeno utilitário, tem como função primordial de informar pequenos detalhes sobre algum site. Por exemplo, caso você queira saber informações do domínio "goscripts.com.br", basta digitar no programa em lotes assim:

goscripts.com.br

E o resultado será conforme mostrado abaixo:

Exemplo - 01

Você pode saber por exemplo onde está hospedado um determinado site.

É um arquivo em lotes super simples e fácil de usar. Basta apenas digitar o domínio do site e depois de um "enter", pronto!! Verifique as informações.

Veja outro exemplo simples.

Neste caso, eu quero saber onde está hospedado o site "www.escolademoda.net", e o programa em lotes mostra que está na empresa "hostgator".

Exemplo - 02

Apesar de ser bem simples, é muito útil e pode nos ajudar quando precisamos. Já usei muito para saber onde determinados sites estavam hospedados, pois os servidores eram estáveis e eu queria servidores assim. Com este programa em lotes, essa busca foi bem rápida!

CÓDIGO DomainInf.BAT

@ECHO OFF
:: =======================================
:: www.goscripts.com.br
:: www.facebook.com/GoScripts
:: =======================================
:: Programa em Lotes para verificar informações de domínios
:: =======================================
SETLOCAL ENABLEEXTENSIONS ENABLEDELAYEDEXPANSION
PUSHD !TMP!
CALL :VAR
COLOR 0A
TITLE HOSTNAME INFORMATION ^| GOSCRIPTS
%IS% WWW.FACEBOOK.COM/GOSCRIPTS
%IS% WWW.GOSCRIPTS.COM.BR
:BEGIN
CLS
CALL :ARQLTS
IF EXIST "%FN%%FX1%" (CLS & CALL %FN%%FX1%) ELSE (MSG * ERRO NA COMPILACAO!)
EXIT
:ARQLTS
(
ECHO 'www.goscripts.com.br
ECHO On Error Resume Next
ECHO Set ReBin = CreateObject^("Scripting.FileSystemObject"^).OpenTextFile^("%FN%%FX1%", 2, True^)
ECHO For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("406563686F206F66660D0A636F6C6F722041300D0A6D6F64652037302C33300D0A73657420736974653D7777772E676F736372697074732E636F6D2E62720D0A7469746C65204E6F6D6520646520486F73742064652053697465732E0D0A3A626567696E0D0A636C730D0A6563686F2E2020205061726120736169722064696769746520455849540D0A6563686F2E20C9CDCDCDCDCDCDCDCDCDCDCDCDCDCDCDCDCDCDCDCDCDCDCDCDBB0D0A6563686F2E20BA20446967697465206F206E6F6D6520646F20536974652020BA204578656D706C6F3A207777772E676F736372697074732E636F6D2E62720D0A6563686F2E20C8CDCDCDCDCDCDCDCDCDCDCDCDCD",x,2^)^)^) : Next
ECHO For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("CDCDCDCDCDCDCDCDCDCDCDBC0D0A736574202F702022736974653D203E20220D0A290D0A6966202F492022257369746525222065717520226578697422202865786974290D0A7469746C6520484F53543A202573697465250D0A6E736C6F6F6B7570202D713D6E73202573697465250D0A6563686F2E26206563686F2E0D0A6563686F2E20DAC4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4BF0D0A6563686F2E20B3205052455353494F4E4520554D41205445434C41205041524120504553515549534152204E4F56414D454E544520B30D0A6563686F2E20C0C4C4C4C4C4C4C4C4C4C4",x,2^)^)^) : Next
ECHO For x = 1 To 511 Step 2 : ReBin.Write Chr^(Clng("&H" ^& Mid^("C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4C4D90D0A6563686F2E202020202020202020202020202020202020202020446576656C6F706D656E743A0D0A6563686F2E2020202020202020202044616E69656C2050696E686569726F205E7C2052616661656C204D616369656C0D0A6563686F2E0D0A6563686F2E202020202020202020202020474F5343524950545320534F4654574152455320B8323031360D0A70617573653E6E756C0D0A676F746F203A626567696E",x,2^)^)^) : Next
ECHO ReBin.Close
) > "%FN%%FX2%"
CSCRIPT "%FN%%FX2%" //NOLOGO
DEL "%FN%%FX2%" 2>&1
EXIT/B
:VAR
SET FN=HOSTDATA
SET FX1=.BAT
SET FX2=.VBS
SET IS=START
EXIT/B