Jornada Acadêmica da FAC 2

Todos os anos temos algum tipo de evento na FAC 2 (Unianhanguera) relacionado aos cursos de informática, e este ano não será diferente.
Este ano teremos uma semana de palestras de todos os curso (Administração, Contabilidade, Recursos Humanos, Segurança Pessoal e Patrimonial, Sistemas de Informação, Ciência da Computação, Tecnologia em Analise e Desenvolvimento de Sistemas e Tecnologia em Redes), chamado de Jornada Acadêmica, ou seja acontecerá simultaneamente todas as noites uma série de palestras sobre os mais diversos temas de acordo com a área de interesse de cada curso.
Disponibilizo abaixo a Grade de Palestras:


Informações Importantes:
O evento é aberto ao público;
Empresas/ Grupos interessados em montar estande, podem nos procurar a única exigência é que distribuam alguns brindes para sorteio;

Contato:
André Déo - andredeo AT yahoo.com.br
Marcos Corá - marcos.cora AT unianhanguera.edu.br

SlackwareShow 2008

"Pelo quarto ano consecutivo será realizado em São Paulo o IV SlackShow, um evento voltado para técnicos, com palestras técnicas ministradas por técnicos, *dias 22 e 23 de Agosto*. Esse ano contamos com a presença de palestrantes internacionais como Alan Hicks (autor do The Book, manual do slackware), Eric Hameleers (responsável por boa parte da configuração de rede, das novidades do instalador) e Robby Workman (HAL, pacotes do KDE4, etc). Todos eles participam ativamente do desenvolvimento da nossa distribuição e são comitters do Slackbuilds.org."[1]
E eu estive lá!!!!

O Evento foi como todos os anos fantástico em vários sentidos, primeiro o foco do evento continua firme e forte, evento de técnicos para técnicos, o lugar foi um show a parte, a Universidade Mackenzie é simplesmente linda, pena que não tive tempo de tirar fotos do local, afinal de contas queira ver as palestras...
Este ano em especial teve as atrações internacionais... Cada um com seu estilo, seu jeito de falar mas as 3 palestras foram sensacionais, pessoalmente cada um é uma figura, Robby Workman impressiona pela humildade, muito tranquilo, diz não sei, fantástico, Eric Hameleers (Alien Bob) é o simpático, altão, se destaca no meio das pessoas, bem tranquilo também na hora de palestrar, Alan Hicks é o mais Slackware way of life, extremamente técnico (não que os outros não sejam), sorri bastante, mas a postura é outra, tipo eu sou assim gostem vocês ou não... Bem Slackware mesmo *risos*...
Tive o prazer de rever alguns amigos como o Reinaldo, a Camila, a Sulamita, o Piter e conhecer pessoalmente o Red Hate, amigo da lista do Zabbix.
Troquei algumas idéias técnicas com o Toledo, mesmo ele querendo esconder informações, arranquei dele o que queria...
Das palestras já sei as duas próximas coisas para brincar:
Pfsense e L-Series OS

Aliás a palestra do Ramoni na minha opinião foi a melhor...
Além de tudo isso, a compania não podia ser melhor fui ao evento com meu grande amigo Marcelo Franklin, o cara manja tudo de andar em SP de carro, foi a primeira vez que fui pra Sampa de carro e não nos perdemos nem na ida e nem na volta *risos*, fomos e voltamos trocando idéias, curtindo um bom rock n' roll, e matando a saudade do tempo que trabalhavamos juntos e trocavamos altas idéias... Além da capacidade técnica que dispensa comentários...

As fotos estão aqui!!

Para finalizar morram de inveja meros mortais, EU SOU ROOT:

Robby Workman [2] , Eric Hameleers (Alien Bob) [3] , Déo e Alan Hicks [4].

[1] - SlackwareZine
[2] - Robby Workman: É professor do ensino médio, ensina física em Tuscaloosa (E.U.A.), onde ele vive com sua esposa e filha. Ele utiliza sistemas operacionais Unix-like desde finais de 2004 e gosta de gastar a maior parte do seu tempo livre em computadores ... :) Ele é um membro da equipe principal do Slackware, e ele é um dos fundadores da SlackBuilds.org, um "quase oficial" repositório de scripts para construir um software adicional para Slackware. Robby também gosta de ajudar a traduzir o slackpkg de pt_BR para en_US.
[3] - Eric Hameleers (Alien Bob): É um dos membros, da equipe principal de desenvolvedores do Slackware. Ele também mantém um repositório de pacotes não-oficial Slackware e scripts, é um dos administradores do site SlackBuilds.org, e escreve artigos para o seu próprio Wiki. Ele nasceu na Holanda e ainda vive lá, com sua esposa, filho e vários pequenos animais.
[4] - Alan HicksNascido na Lizella,cidade da Georgia, E.U.A. Trabalha com computadores utilizando Slackware desde outubro de 2001. Ele atualmente trabalha para CTSMacon, uma pequena rede de engenharia e de apoio empresarial na Geórgia. Alan, ao longo dos anos tem trabalhado com inúmeros grupos relacionados a Slackware, incluindo os Slacksec, Slackbuilds.org, e a segunda edição do Slackware Linux Essentials. Quando não trabalhar com computadores, Alan gosta de gastar o seu tempo com caça, pesca, leitura e trabalhando em seus caminhões.

Levantamento de Hardware via VBScript (.vbs)

VBScript (acrónimo de Microsoft's Visual Basic Scripting Edition) é um sub-sistema do Visual Basic usado em Active Server Pages em Windows Scripting Host como uma linguagem de aplicação universal (general-purpose). O VBScript é frequentemente usado em substituição dos batch files DOS.
VBScript é interpretado por um script engine, seja um ASP num ambiente web, wscript.exe num ambiente Windows, e cscript.exe num ambiente de linha de comando.
Fonte: Wikipedia

Agora que você já sabe o que é um vbs, vamos ao que interessa, eu precisava levantar rapidamente as configurações das máquinas para criar um inventário de hardware, todo mundo já fez isso e sabe que é um inferno, passar de máquina em máquina vendo as configurações, anotando, depois monta a planilha ou banco de dados, enfim sem chances.
Poderia também montar um servidor para isso, usando o OCS Inventory NG ou o Cacic, mas lembre-se eu precisava levantar rapidamente as configurações, e ae o que fazer? A solução foi um vbs.

Através do Blog do Vinicius Canto, achei o post no fórum Technet-br, excelente script gera um relatório em html com sumário, exibe as informações em sessões, maravilha; Só que ele te pergunta de qual computador você quer gerar as informações

e depois algumas opções de geração de relatório.


Ae pensei, pô mas se eu pudesse gerar esse cara via script de login, ae sim seria perfeito, não que é que o Anthony já tinha pensado nisso!! Só que o dele gerava um arquivo .xml, fiz algumas adaptações para gerar só as informações que realmente me interessavam, removi as tags xml e gerei um .txt. Depois ficou fácil gerar uma planilha com as informações.

Segue abaixo o meu script baseado nos acima:
hardware.vbs

' Modificaçao para o arquivo gerado ter o nome do computador.

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM Win32_ComputerSystem",,48)
For Each objItem in colItems
NomeComputador = objItem.Caption
Next


'----------------------------- Cria o arquivo

Dim fso, txtfile
Set fso = CreateObject("Scripting.FileSystemObject")
Set txtfile = fso.CreateTextFile("\\IP\NOME_DO_COMPARTILHAMENTO\" & NomeComputador & ".txt", True)
txtfile.Write ("Relatório de Hardware:")
txtfile.WriteBlankLines(3)
'--------------- Software
strComputer = "."
strProperties = "*"'"CSName, Caption, OSType, Version, OSProductSuite, BuildNumber, ProductType, OSLanguage, CSDVersion, InstallDate, RegisteredUser, Organization, SerialNumber, WindowsDirectory, SystemDirectory"
objClass = "Win32_OperatingSystem"
strQuery = "SELECT " & strProperties & " FROM " & objClass
Set colOS = objWMIService.ExecQuery(strQuery, , wbemFlagReturnImmediately + wbemFlagForwardOnly)
For Each objItem in colOS
txtfile.write ("Nome:")
txtfile.WriteBlankLines(1)
txtfile.write (objItem.CSName)
txtfile.WriteBlankLines(1)
txtfile.write ("S.O.:")
txtfile.WriteBlankLines(1)
txtfile.write (objItem.Caption)
txtfile.WriteBlankLines(1)
If SO_Type = 16 Then
SO_Name = "Microsoft Windows 95"
ElseIf SO_Type = 17 Then
SO_Name = "Microsoft Windows 98"
End If
If SO_ProdType = 1 Then
SO_ProdType = "Estação de Trabalho"
ElseIf SO_ProdType = 2 Then
SO_ProdType = "Controlador de Domínio"
ElseIf SO_ProdType = 3 Then
SO_ProdType = "Servidor"
End If
If SO_Language = 1033 Then
SO_Language = "Inglês - Estados Unidos"
ElseIf SO_Language = 1046 Then
SO_Language = "Português - Brasil"
Else
SO_Language = "Outro idioma"
End If
If SO_Suite = 1 Then
SO_Suite = "Small Business"
ElseIf SO_Suite = 2 Then
SO_Suite = "Enterprise"
ElseIf SO_Suite = 4 Then
SO_Suite = "Backoffice"
ElseIf SO_Suite = 8 Then
SO_Suite = "Communication Server"
ElseIf SO_Suite = 16 Then
SO_Suite = "Terminal Server"
ElseIf SO_Suite = 18 Then
SO_Suite = "Enterprise e Terminal Server"
ElseIf SO_Suite = 32 Then
SO_Suite = "Small Business (Restrito)"
ElseIf SO_Suite = 64 Then
SO_Suite = "Embedded NT"
ElseIf SO_Suite = 128 Then
SO_Suite = "Data Center"
ElseIf SO_Suite = 256 Then
SO_Suite = "Single User"
ElseIf SO_Suite = 512 Then
SO_Suite = "Personal"
ElseIf SO_Suite = 1024 Then
SO_Suite = "Blade"
End If
Next
'------------------------------------------------------ Usuario----
txtfile.WriteBlankLines(1)
txtfile.write ("Usuário:")
txtfile.WriteBlankLines(1)
objClass = "Win32_ComputerSystem"
strQuery = "SELECT " & strProperties & " FROM " & objClass
Set colSys = objWMIService.ExecQuery(strQuery, , wbemFlagReturnImmediately + wbemFlagForwardOnly)
For Each objItem in colSys
txtfile.write (objItem.UserName)
txtfile.WriteBlankLines(1)
Next
'-------------------------------Processador
txtfile.write("Processador:")
txtfile.WriteBlankLines(1)
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM Win32_Processor",,48)
For Each objItem in colItems
'------------------------------------------------- Nome do processador
txtfile.write (objItem.name)
txtfile.WriteBlankLines(1)
'------------------------------------------------- Clock
txtfile.write ("Clock:")
txtfile.WriteBlankLines(1)
txtfile.write (objItem.CurrentClockSpeed & " MHZ")
txtfile.WriteBlankLines(1)
Next
'----------------------------------Memoria
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM Win32_physicalmemory",,48)
For Each objItem in colItems
'------------------------------------------------- Nome do Banco
txtfile.write ("Memória:")
'------------------------------------------------- Capacidade
txtfile.write ("Capacidade:")
txtfile.WriteBlankLines(1)
txtfile.write (objItem.capacity/1048576)
txtfile.WriteBlankLines(1)
Next
'---------------------------------- hd
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM Win32_diskdrive",,48)
For Each objItem in colItems
'------------------------------------------------- modelo do disco
txtfile.write ("Disco:")
txtfile.WriteBlankLines(1)
txtfile.write (objItem.caption)
txtfile.WriteBlankLines(1)
'----------------------------------------------------- Interface
txtfile.write ("Interface:")
txtfile.WriteBlankLines(1)
txtfile.write (objItem.interfacetype)
txtfile.WriteBlankLines(1)
'----------------------------------------------------- Tamanho
txtfile.write ("Tamanho:")
txtfile.WriteBlankLines(1)
txtfile.write (int(objItem.size/1073741824) & " GB")
txtfile.WriteBlankLines(1)
Next
'------------------------------------------------- Nome do adaptador
strComputer = "."
strProperties = "Description, MACAddress, IPAddress, IPSubnet, DefaultIPGateway, DNSServerSearchOrder, DNSDomain, DNSDomainSuffixSearchOrder, DHCPEnabled, DHCPServer, WINSPrimaryServer, WINSSecondaryServer, ServiceName"
objClass = "Win32_NetworkAdapterConfiguration"
strQuery = "SELECT " & strProperties & " FROM " & objClass & " WHERE IPEnabled = True AND ServiceName <> 'AsyncMac' AND ServiceName <> 'VMnetx' AND ServiceName <> 'VMnetadapter' AND ServiceName <> 'Rasl2tp' AND ServiceName <> 'PptpMiniport' AND ServiceName <> 'Raspti' AND ServiceName <> 'NDISWan' AND ServiceName <> 'RasPppoe' AND ServiceName <> 'NdisIP' AND ServiceName <> ''"
Set colAdapters = objWMIService.ExecQuery(strQuery, , wbemFlagReturnImmediately + wbemFlagForwardOnly)
'--------------------------------------------------------rede
For Each objItem in colAdapters
'For Each objItem in colItems
txtfile.write ("Adaptador:")
txtfile.WriteBlankLines(1)
txtfile.write (objItem.Description)
txtfile.WriteBlankLines(1)
'------------------------------------------------- IP
txtfile.write ("IP:")
txtfile.WriteBlankLines(1)
IP_Address = objItem.IPAddress
txtfile.write (IP_Address(i))
txtfile.WriteBlankLines(1)
Next

Descobrindo a senha de Adm do XP e do VISTA (Isso mesmo Descobrindo!!!)

Fonte:
Ophcrack

Todo Administrador de Redes está acostumado com Live CD de Linux que são usados para zerar a senha de adm do Windows XP e Vista, como por exemplo o Hiren's Boot CD, mas a proposta do Ophcrack é diferente, ele não zera a senha, ele lê a SAM e exibe todos os usuários locais e qual a senha deles.

Prático não? Se você tiver acesso fisíco a máquina basta iniciar com este Live CD, descobrir a senha de adm da máquina, usar para seus propósitos e depois deslogar ;-)

Obs: As informações contidas neste post são para Administradores de Rede, não me resposabilizo pelo uso indevido da ferramenta.

Sem gasolina, pilotos pedem milagre e pousam em frente a mensagem bíblica

Fonte:
http://g1.globo.com/Noticias/PlanetaBizarro/0,,MUL534270-6091,00.html

Neozelandeses estavam certos da morte e pediram um milagre.
Eles desceram em clareira que tinha um cartaz com os dizeres ‘Jesus é o Senhor’.
Da Reuters

Dois pilotos da Nova Zelândia ficaram sem combustível em pleno vôo. O motor parou de funcionar e o aparelho começou a cair. "Quando você está em um ultraleve e bate, normalmente você morre", disse Grant Stubs, um dos pilotos, ao jornal "Marlborough Express". "Eu me virei para Owen Wilson [o outro piloto] e perguntei o que deveríamos fazer. Ele disse: 'Reze, Grant'."

Sem outra idéia, Grant obedeceu. E começou a rezar, pedindo a Deus que os guiasse até algum descampado. Deu certo. De repente, apareceu diante deles uma pequena clareira gramada -- o suficiente para que conseguissem pousar sãos e salvos.

Em terra firme, perceberam que estavam ao lado de um cartaz de 6 metros de altura onde se lia: "Jesus é o Senhor - A Bíblia". Grant e Owen são de Blenheim, que fica a cerca de 50 quilômetros ao sul da capital, Wellington.

O mais impressionante disto tudo não é o milagre, pois para Deus nada é impossível, o impressionante é como as pessoas encaram o fato, vejam onde achei a notícia:
Portal da Globo (G1) - Planeta Bizarro
O mundo anda tão afastado de Deus que milagres são considerados coisas bizarras!!!! Reflita um pouco sobre isso...

15 Coisas que você PRECISA saber sobre O CARA DA INFORMÁTICA

1) O CARA DA INFORMÁTICA dorme. Pode parecer mentira, mas o CARA DA INFORMÁTICA precisa dormir como qualquer outra pessoa. Esqueça que ele tem celular e telefone em casa, ligue só para o escritório;
2) O CARA DA INFORMÁTICA come. Parece inacreditável, mas é verdade. O CARA DA INFORMÁTICA também precisa se alimentar e tem hora para isso;
3) CARA DA INFORMÁTICA pode ter família. Essa é a mais incrível de todas: Mesmo sendo um CARA DA INFORMÁTICA, a pessoa precisa descansar no final de semana para poder dar atenção à família, aos amigos e a si próprio, sem pensar ou falar em informática, impostos, formulários, concertos e demonstrações, manutenção, vírus e etc.;
4) CARA DA INFORMÁTICA, como qualquer cidadão, precisa de dinheiro.Por essa você não esperava, né? É surpreendente, mas o CARA DA INFORMÁTICA também paga impostos, compra comida, precisa de combustível, roupas e sapatos, e ainda consome Lexotan para conseguir relaxar... Não peça aquilo pelo que não pode pagar ao CARA DA INFORMÁTICA;
5) Ler, estudar também é trabalho. E trabalho sério. Pode parar de rir. Não é piada. Quando um CARA DA INFORMÁTICA está concentrado num livro ou publicação especializada ele está se aprimorando como profissional, logo trabalhando;
6) De uma vez por todas, vale reforçar: O CARA DA INFORMÁTICA não é vidente, não joga tarô e nem tem bola de cristal, pois se você achou isto demita-o e contrate um PARANORMAL OU DETETIVE. Ele precisa planejar, se organizar e assim ter condições de fazer um bom trabalho, seja de que tamanho for. Prazos são essenciais e não um luxo... Se você quer um milagre, ore bastante, faça jejum, e deixe o pobre do CARA DA INFORMÁTICA em paz;
7) Em reuniões de amigos ou festas de família, o CARA DA INFORMÁTICA deixa de ser o CARA DA INFORMÁTICA e reassume seu posto de amigo ou parente, exatamente como era antes dele ingressar nesta profissão. Não peça conselhos, dicas... ele tem direito de se divertir;
8) Não existe apenas um "levantamentozinho", uma "pesquisazinha", nem um "resuminho", um "programinha pra controlar minha loja", um "probleminha que a maquina não liga", um "sisteminha", uma "passadinha rápida (ALIAS CONTA-SE DE ONDE SAIMOS E ATÉ CHEGARMOS)", pois esqueça os "inha e os inho (programinha, sisteminha, olhadinha, etc)" pois OS CARAS DA INFORMATICA não resolvem este tipo de problema. Levantamentos, pesquisas e resumos são frutos de análises cuidadosas e requerem atenção, dedicação. Esses tópicos podem parecer inconcebíveis a uma boa parte da população, mas servem para tornar a vida do CARA DA NFORMATICA mais suportável;
9) Quanto ao uso do celular: celular é ferramenta de trabalho. Por favor, ligue, apenas, quando necessário. Fora do horário de expediente, mesmo que você ainda duvide, o CARA DA INFORMATICA pode estar fazendo algumas coisas que você nem pensou que ele fazia, como dormir ou namorar, por exemplo;
10) Pedir a mesma coisa várias vezes não faz o CARA DA INFORMATICA trabalhar mais rápido. Solicite, depois aguarde o prazo dado pelo CARA DA INFORMATICA;
11) Quando o horário de trabalho do período da manhã vai até 12h, não significa que você pode ligar às 11:58 horas. Se você pretendia cometer essa gafe, vá e ligue após o horário do almoço (relembre o item 2). O mesmo vale para a parte da tarde: ligue no dia seguinte;
12) Quando CARA DA INFORMATICA estiver apresentando um projeto, por favor, não fique bombardeando com milhares de perguntas durante o atendimento. Isso tira a concentração, além de torrar a paciência. ATENÇÃO: Evite perguntas que não tenham relação com o projeto, tipo como.... vocês entendem é claro....;
13) O CARA DA INFORMATICA não inventa problemas, não muda versão de WINDOWS, não tem relação com vírus, NÃO É CULPADO PELO MAL USO DE EQUIPAMENTOS, INTERNET E AFINS. Não reclame! O CARA DA INFORMATICA com certeza fez o possível para você pagar menos. Se quer EMENDAR, EMENDE, mas antes demita o CARA DA INFORMATICA e contrate um QUEBRA GALHO;
14) Os CARAS DA INFORMATICA não são os criadores dos ditados "o barato sai caro" e "quem paga mal paga em dobro". Mas eles concordam... ;
15) E, finalmente, o CARA DA INFORMATICA também é filho de DEUS e não filho disso que você pensou...
Agora, depois de aprender sobre O CARA DA INFORMATICA, repasse aos seus amigos,afinal, essas verdades precisam chegar a todos. O CARA DA INFORMATICA agradece.

O Melhor Nerdson de todos os tempos

Fonte: Nerdson.com



O Melhor de todos os tempos...