Anthony Reinke

Archive for the ‘geek’ Category

BBC America ran an X-File marathon a week or so ago. I miss the X-Files. There is just so much that is unexplained. I love physics and science in general. Anyways, here are the quotes from the episodes that weren’t the default “The Truth Is Out There”. I have worked for the government before and I loved to throw these in my email signature.

Trust No One — “The Erlenmeyer Flask”
Deny Everything — “Ascension”
éí ‘aaníígÓÓ ‘áhoot’é — “Anasazi” (Navajo: The truth is out there)
Apology is Policy — “731″
Everything Dies — “Herrenvolk” (German: Master race)
Deceive Inveigle Obfuscate — “Teliko”
E pur si muove — “Terma” (Italian: And still it moves — attributed to Galileo)
Believe the Lie — “Gethsemane”
All Lies Lead to the Truth — “Redux”
Resist or Serve — “The Red and the Black”
The End — “The End”
Die Wahrheit ist irgendwo da draußen — “Triangle” (German: The truth is out there.. somewhere)
In the Big Inning — “The Unnatural” (a baseball-themed episode)
Amor Fati — “Sixth Extinction II: Amor Fati” (Latin: Love of fate)
Believe to Understand — “Closure”
Nothing Important Happened Today — “Nothing Important Happened Today II”
erehT tuO si hturT ehT — “4D” (The Truth is Out There backwards)
They’re Watching — “Trust No 1″
Dio ti ama — “Improbable” (Italian: God loves you)

We all know that hackers are a proud group.  We like to show off our talents like most proud parents of their honor roll students with bumper stickers.  Except we don’t just plaster our cars.  We put our stickers on everything.  Our laptops, ipads, servers, desks, walls, and everything else they can stick to.  We all wear our talents as battle armor with our t-shirts.  There is almost a t-shirt for every type of nerdly,  geekly, hackish, crackerish, or other weirdly thing we do.  And with our late nights pouring over code or taking things apart just to see how they work (and making them better in the process), you might need a little boost.  Here comes the caffeine.  Before you had cubes of Mountain Dew or mounts of Jolt Cola, but now we have pure caffeine mints, energy strips, and jolt gum.

So where can you get all this?????

Goto HackerStickers.com
Hacker Stickers, Geek T-Shirts and Caffeine

On June 30, 1999, sheriff’s officers in St. Louis, Missouri discovered the body of 41-year-old Ricky McCormick. He had been murdered and dumped in a field. The only clues regarding the homicide were two encrypted notes found in the victim’s pants pockets.

Pictures of notes and more details here:
http://www.fbi.gov/news/stories/2011/march/cryptanalysis_032911/cryptanalysis_032911

On January 17th, 2011 I wrote about a script I wrote to gather information on my network (http://www.anthonyreinke.com/?p=384). I ran the scan a few time with a lot of errors.  The issues were due to the different domains.  It can’t scan all the machines since it runs as the person running.  It doesn’t have the ability to try multiple different credentials.

So I started looking for products to get the information.  After a lot of trail and errors I found Lansweeper.  This software gives you the incite in to your network that is hard to find.  It not only scans the machines, but active directories as well.  As for the price, it is hard to bet at $299 per year.

Currently I am having an issue with not knowing information about the servers I am responsible.   I am not happy not knowing things.  I spent a little time gather different parts of different scripts (hacker / script kiddie style) and compiling them in to one Visual Basic Script.  This script is designed to work against Dell Servers.  It will ask the computer for it name, the OS, OS version number, Service Packs, Bit Level (32 or 64 bit), Dell Warranty info, list of local users, and a list of local groups and the users in the groups.  It takes the list of servers from “hosts.txt” which is just a list of servers or ip addresses where there is one per line.  It will write all the information it gathers in to a file called “report.txt”.

Download the .VBS File

Here is the code:

Option Explicit

Dim url, svctag, wshShell, wshNetwork

Dim strComputer, colGroups, objGroup, objUser

Dim objWMIService, colItems, objItem

Dim warrantyRows, warrantyCols

Dim objsvc,svccount, errorChecking,svc,objNetwork,colAccounts

Dim get_OS_Bit, info, strComputer2, oReg, strKeyPath, strValueName, strValue

Dim objShell, objIE, objWMI

Dim colOSes, objOS

Dim objFSO, objTextFile, objTextFileW, objTextFileO, strNextLine, arrServiceList

Dim i, result

Const ForReading = 1

Const ForAppending = 8

Set objFSO = CreateObject(“Scripting.FileSystemObject”)

Set objTextFileW = objFSO.OpenTextFile (“report.txt”, ForAppending, True)

Set objFSO = CreateObject(“Scripting.FileSystemObject”)

Set objTextFileO = objFSO.OpenTextFile _

(“hosts.txt”, ForReading)

Do Until objTextFileO.AtEndOfStream

strNextLine = objTextFileO.Readline

arrServiceList = Split(strNextLine , “,”)

strComputer = arrServiceList(0)

wscript.echo strComputer

On Error Resume Next

Set colOSes = objWMIService.ExecQuery(“Select * from Win32_OperatingSystem”)

For Each objOS in colOSes

objTextFileW.Writeline “########################################”

objTextFileW.Writeline

objTextFileW.Writeline “========================================”

objTextFileW.Writeline “==            Computer Info           ==”

objTextFileW.Writeline “========================================”

objTextFileW.WriteLine “Computer Name      : ” & objOS.CSName

Next

objTextFileW.WriteLine

Set objWMI = GetObject(“winmgmts:\” & strComputer & “rootCIMV2″)

Set colItems = objWMI.ExecQuery(“SELECT * FROM Win32_OperatingSystem”,,48)

For Each objItem in colItems

objTextFileW.WriteLine “Operating System   : ” & objItem.Caption

objTextFileW.WriteLine “OS Version Number  : ” & objItem.Version

objTextFileW.WriteLine “Service Pack       : ” & objItem.ServicePackMajorVersion

objTextFileW.WriteLine

Next

const HKEY_LOCAL_MACHINE = &H80000002

Set oReg=GetObject(“winmgmts:{impersonationLevel=impersonate}!\” & strComputer & “rootdefault:StdRegProv”)

strKeyPath = “HARDWAREDESCRIPTIONSystemCentralProcessor”

strValueName = “Identifier”

oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue

if (instr(strValue,”x86″)) then

get_OS_Bit=”32″

elseif (instr(strValue,”64″)) then

get_OS_Bit=”64″

else

get_OS_Bit=”NotSure”

end if

objTextFileW.WriteLine “OS is              : ” & get_OS_Bit & “bit”

objTextFileW.WriteLine

objTextFileW.Writeline “========================================”

objTextFileW.WriteLine “==  Get the Dell warranty information ==”

objTextFileW.Writeline “========================================”

url = “http://support.dell.com/support/topics/global.aspx/support/my_systems_info/details?c=us&cs=RC956904&l=en&s=hied&~lt=bodyonly&~wsf=tabs&servicetag=”

set objIE=createobject(“internetexplorer.application”)

set objShell = WScript.CreateObject(“WScript.Shell”)

set objWMI = GetObject(“winmgmts:{impersonationLevel=impersonate}!\” & strComputer & “rootcimv2″)

If InStr(UCase(objWMI.ExecQuery(“Select Manufacturer From Win32_ComputerSystem”).ItemIndex(0).Manufacturer), “DELL”) = 0 then Err.Raise 2, “This is not a Dell dude!”, “No Service Tag”

svctag = objWMI.ExecQuery  (“Select SerialNumber from Win32_BIOS”).ItemIndex(0).SerialNumber

Set objWMIService = GetObject(“winmgmts:” _

& “{impersonationLevel=impersonate}!\” _

& strComputer & “rootcimv2″)

objTextFileW.WriteLine “Service Tag        : ” & svctag

objIE.navigate url & svctag

do while objIE.readystate<>4 : wscript.sleep 50 : loop

set warrantyRows = objIE.document.getElementsByTagName(“table”).item(1).getElementsByTagName(“table”).item(2).getElementsByTagName(“table”).item(0).getElementsByTagName(“tr”)

For i = 1 to warrantyRows.length – 1

set warrantyCols = warrantyRows.item(i).getElementsByTagName(“td”)

objTextFileW.WriteLine “Description        : ” & warrantyCols.item(0).innerText

objTextFileW.WriteLine “Provider           : ” & warrantyCols.item(1).innerText

objTextFileW.WriteLine “Warranty Extension : ” & warrantyCols.item(2).innerText

objTextFileW.WriteLine “Start Date         : ” & warrantyCols.item(3).innerText

objTextFileW.WriteLine “End Date           : ” & warrantyCols.item(4).innerText

objTextFileW.WriteLine “Days Left          : ” & warrantyCols.item(5).innerText

objTextFileW.WriteLine

Next

objTextFileW.Writeline “========================================”

objTextFileW.WriteLine “==       List all local users         ==”

objTextFileW.Writeline “========================================”

Set objNetwork = CreateObject(“Wscript.Network”)

‘strComputer = objNetwork.ComputerName

Set colAccounts = GetObject(“WinNT://” & strComputer & “”)

colAccounts.Filter = Array(“user”)

For Each objUser In colAccounts

objTextFileW.WriteLine “Local User         : ” & objUser.Name

Next

objTextFileW.WriteLine

objTextFileW.Writeline “===========================================”

objTextFileW.WriteLine “== List all local groups and their users ==”

objTextFileW.Writeline “===========================================”

Set colGroups = GetObject(“WinNT://” & strComputer & “”)

colGroups.Filter = Array(“group”)

For Each objGroup In colGroups

objTextFileW.WriteLine “Group              : ” & objGroup.Name

For Each objUser in objGroup.Members

objTextFileW.WriteLine “User               : ” & objUser.Name

Next

objTextFileW.WriteLine

Next

objTextFileW.WriteLine “== List all services ==”

set objsvc = GetObject(“winmgmts:{impersonationLevel=impersonate}\” & strComputer & “rootcimv2″).ExecQuery (“SELECT * FROM Win32_Service”)

for each svc in objsvc

objTextFileW.WriteLine “Service            : ” & svc.displayname

objTextFileW.WriteLine “Current Status     : ” & svc.state

objTextFileW.WriteLine “Startus Type       : ” & svc.startmode

objTextFileW.WriteLine “Run Server As      : ” & svc.startname

objTextFileW.WriteLine

next

objTextFileW.WriteLine

Loop

objTextFileW.Close