Pular para o conteúdo principal

VBScript - Lista de IPs

Esse é um dos scripts que fiz para ajudar uma colega num exercício da faculdade. Ele lista dodos os IPs de uma determinada rede. O script lhe pede o IP (ex.: 192.168.0.0) e a máscara (ex.: 24) é ele usa essa notação para máscara - preste atenção nisso!

Logo após ele cria dentro da unidade c:\ um arquivo chamado ListaIp.txt, e dentro dele a lista de IPs que estão dentro dessa rede.

SCRIPT:

dim IP 'recebe o IP
dim i 'usado nos contadores
dim j 'usado nos contadores
dim l 'usado nos contadores
dim tam 'tamanho da string do IP
dim OC1 'primeiro octeto
dim OC2 'Segundo octeto
dim OC3 'terceiro octeto
dim OC4 'quarto octeto
dim MASK 'máscara
dim arquivo 'caminho para o arquivo final

arquivo = "C:\ListaIp.txt"


' Criando o arquivo a receber a lista de IPs
Set objArq = CreateObject("Scripting.FileSystemObject")
Set EArq = objArq.OpenTextFile(arquivo, 8, True)

' Recebendo o endereço IP do usuário
IP = inputbox("Digite o endereço IP a scannear: ")

' Pegando o numero de caracteres do IP (vai ser usado
' para separar os octetos)
tam = Len(IP)

' Separando os octetos
num = InStr(IP, ".")
OC1 = Left(IP, num-1)
IP = Right(IP, tam-num)

tam = Len(IP)

num = InStr(IP, ".")
OC2 = Left(IP, num-1)
IP = Right(IP, tam-num)

tam = Len(IP)

num = InStr(IP, ".")
OC3 = Left(IP, num-1)
OC4 = Right(IP, tam-num)
' Octetos separados com sucesso

' Recebendo a máscara de rede do usuário
MASK = inputbox("Digite a máscara do endereço IP: ")

' Testando a máscara, gerando os IPs e Escrevendo-os em arquivo
If MASK = 24 then
for i=0 to 255
IP = OC1 & "." & OC2 & "." & OC3 & "."
OC4 = i
IP = IP & OC4
EArq.WriteLine(IP)
Next
Earq.Close
Elseif MASK = 16 then
for j=0 to 255
IP = OC1 & "." & OC2 & "."
OC3 = j
for i=0 to 255
IP = OC1 & "." & OC2 & "." & OC3 & "."
OC4 = i
IP = IP & OC4
EArq.WriteLine(IP)
Next
Next
Elseif MASK = 8 then
for l=0 to 255
IP = OC1 & "."
OC2 = l
for j=0 to 255
IP = OC1 & "." & OC2 & "."
OC3 = j
for i=0 to 255
IP = OC1 & "." & OC2 & "." & OC3 & "."
OC4 = i
IP = IP & OC4
EArq.WriteLine(IP)
Next
Next
Next
Else
msgbox("Máscara não suportada")
End if

}

Comentários

Postagens mais visitadas deste blog

CentOS 7 + OMD (Open Monitoring Distribution )

yum install wget -y
wget https://labs.consol.de/repo/stable/rhel7/x86_64/labs-consol-stable-1.3-1.rhel7.noarch.rpm
yum localinstall labs-consol-stable-1.3-1.rhel7.noarch.rpm -y
yum install omd -y
Após a instalação ser concluída, crie e inicie a nova instância do OMD:

omd create nome_do_siteomd start nome_do_site
Para visualizar e alter algumas configurações :

omd config nome_do_site
== OBS
O firewall do CentOS não permite conexões às porta 5000 por padrão (A porta 5000 é a default para o primeiro site OMD). Uma solução rápida (apenas em laboratório):

iptables -F
== Acesse o servidor:
http://ip_do_servidor:5000/nome_do_site
Usuário: omdadmin
Senha: omd

== Main informações
Mais informações em: http://omdistro.org/

[VMWare ESXi 6] - Suporte à placa de rede Realtek 8139

Essa placa não é suportada nativamente pelo ESXi. Para usar uma dessas placas precisei seguir os assoa abaixo:

Envie para o datastore o seguinte arquivo: https://www.dropbox.com/s/840jcwj93yed1wr/rtl8139.vib?dl=0

Execute essa sequência de comandos via SSH:

esxcli software acceptance set --level=CommunitySupported
esxcli software vib install -v /vmfs/volumes/datastore1/isos/rtl8139.vib

Reinicie o sistema e a placa deverá ser reconhecida.

:wq!

OpenVPN no CentOS

Oba oba!!! \0/
Estou de volta para guardar mais uma informação útil! A instalação do OpenVPN no CentOS. Vou mostrar aqui de maneira bem direta a instalação e configuração que já realizei em diversos ambientes.

STARTING...


1. Instale o repositório RPMForge:
wget http://packages.sw.be/rpmforge-release/rpmforge-release-0.5.1-1.el5.rf.i386.rpm rpm --import http://apt.sw.be/RPM-GPG-KEY.dag.txt rpm -K rpmforge-release-0.5.1-1.el5.rf.*.rpm rpm -i rpmforge-release-0.5.1-1.el5.rf.*.rpm

2. Verifique se o RPMForge aparece na lista de repositórios:
yum check-update
3. Instale o OpenVPN yum install openvpn -y
4. Iniciando a configuração: cp -pra /usr/share/openvpn/2.0/easy-rsa /etc/openvpn cd /etc/openvpn/easy-rsa . ./vars ./clean-all ./build-ca

5. Criando a chave para o servidor:
./build-key-server server

6. Criando a chave para o cliente:
./build-key cliente

7. Gerando um Diff Hellman (DH) no servidor:
./build-dh
dentro do diretório /etc/openvpn/ encontra-se um arquivo chamado server.conf (se não exist…