{"id":384,"date":"2011-01-17T14:33:59","date_gmt":"2011-01-17T20:33:59","guid":{"rendered":"http:\/\/www.anthonyreinke.com\/?p=384"},"modified":"2018-05-07T21:19:51","modified_gmt":"2018-05-08T03:19:51","slug":"information-gathering-on-my-own-servers","status":"publish","type":"post","link":"https:\/\/anthonyreinke.com\/index.php\/2011\/01\/17\/information-gathering-on-my-own-servers\/","title":{"rendered":"Information Gathering on My Own Servers"},"content":{"rendered":"

Currently I am having an issue with not knowing information about the servers I am responsible. \u00a0 I am not happy not knowing things. \u00a0I spent a little time gather different parts of different scripts (hacker \/ script kiddie style) and compiling them in to one Visual Basic Script. \u00a0This script is designed to work against Dell Servers. \u00a0It 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. \u00a0It takes the list of servers from “hosts.txt” which is just a list of servers or ip addresses where there is one per line. \u00a0It will write all the information it gathers in to a file called “report.txt”.<\/p>\n

Download the .VBS File<\/a><\/p>\n

Here is the code:<\/p>\n

\n
Option Explicit<\/span><\/div>\n
Dim url, svctag, wshShell, wshNetwork<\/span><\/div>\n
Dim strComputer, colGroups, objGroup, objUser<\/span><\/div>\n
Dim objWMIService, colItems, objItem<\/span><\/div>\n
Dim warrantyRows, warrantyCols<\/span><\/div>\n
Dim objsvc,svccount, errorChecking,svc,objNetwork,colAccounts<\/span><\/div>\n
Dim get_OS_Bit, info, strComputer2, oReg, strKeyPath, strValueName, strValue<\/span><\/div>\n
Dim objShell, objIE, objWMI<\/span><\/div>\n
Dim colOSes, objOS<\/span><\/div>\n
Dim objFSO, objTextFile, objTextFileW, objTextFileO, strNextLine, arrServiceList<\/span><\/div>\n
Dim i, result<\/span><\/div>\n
Const ForReading = 1<\/span><\/div>\n
Const ForAppending = 8<\/span><\/div>\n
Set objFSO = CreateObject(“Scripting.FileSystemObject”)<\/span><\/div>\n
Set objTextFileW = objFSO.OpenTextFile (“report.txt”, ForAppending, True)<\/span><\/div>\n
Set objFSO = CreateObject(“Scripting.FileSystemObject”)<\/span><\/div>\n
Set objTextFileO = objFSO.OpenTextFile _<\/span><\/div>\n
(“hosts.txt”, ForReading)<\/span><\/div>\n
Do Until objTextFileO.AtEndOfStream<\/span><\/div>\n
strNextLine = objTextFileO.Readline<\/span><\/div>\n
arrServiceList = Split(strNextLine , “,”)<\/span><\/div>\n
strComputer = arrServiceList(0)<\/span><\/div>\n
wscript.echo strComputer<\/span><\/div>\n
On Error Resume Next<\/span><\/div>\n
Set colOSes = objWMIService.ExecQuery(“Select * from Win32_OperatingSystem”)<\/span><\/div>\n
For Each objOS in colOSes<\/span><\/div>\n
objTextFileW.Writeline “########################################”<\/span><\/div>\n
objTextFileW.Writeline<\/span><\/div>\n
objTextFileW.Writeline “========================================”<\/span><\/div>\n
objTextFileW.Writeline “== \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0Computer Info \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 ==”<\/span><\/div>\n
objTextFileW.Writeline “========================================”<\/span><\/div>\n
objTextFileW.WriteLine “Computer Name \u00a0 \u00a0 \u00a0: ” & objOS.CSName<\/span><\/div>\n
Next<\/span><\/div>\n
objTextFileW.WriteLine<\/span><\/div>\n
Set objWMI = GetObject(“winmgmts:\\” & strComputer & “rootCIMV2”)<\/span><\/div>\n
Set colItems = objWMI.ExecQuery(“SELECT * FROM Win32_OperatingSystem”,,48)<\/span><\/div>\n
For Each objItem in colItems<\/span><\/div>\n
objTextFileW.WriteLine “Operating System \u00a0 : ” & objItem.Caption<\/span><\/div>\n
objTextFileW.WriteLine “OS Version Number \u00a0: ” & objItem.Version<\/span><\/div>\n
objTextFileW.WriteLine “Service Pack \u00a0 \u00a0 \u00a0 : ” & objItem.ServicePackMajorVersion<\/span><\/div>\n
objTextFileW.WriteLine<\/span><\/div>\n
Next<\/span><\/div>\n
const HKEY_LOCAL_MACHINE = &H80000002<\/span><\/div>\n
Set oReg=GetObject(“winmgmts:{impersonationLevel=impersonate}!\\” & strComputer & “rootdefault:StdRegProv”)<\/span><\/div>\n
strKeyPath = “HARDWAREDESCRIPTIONSystemCentralProcessor\ufffd”<\/span><\/div>\n
strValueName = “Identifier”<\/span><\/div>\n
oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue<\/span><\/div>\n
if (instr(strValue,”x86″)) then<\/span><\/div>\n
get_OS_Bit=”32″<\/span><\/div>\n
elseif (instr(strValue,”64″)) then<\/span><\/div>\n
get_OS_Bit=”64″<\/span><\/div>\n
else<\/span><\/div>\n
get_OS_Bit=”NotSure”<\/span><\/div>\n
end if<\/span><\/div>\n
objTextFileW.WriteLine “OS is \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0: ” & get_OS_Bit & “bit”<\/span><\/div>\n
objTextFileW.WriteLine<\/span><\/div>\n
objTextFileW.Writeline “========================================”<\/span><\/div>\n
objTextFileW.WriteLine “== \u00a0Get the Dell warranty information ==”<\/span><\/div>\n
objTextFileW.Writeline “========================================”<\/span><\/div>\n
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=”<\/span><\/div>\n
set objIE=createobject(“internetexplorer.application”)<\/span><\/div>\n
set objShell = WScript.CreateObject(“WScript.Shell”)<\/span><\/div>\n
set objWMI = GetObject(“winmgmts:{impersonationLevel=impersonate}!\\” & strComputer & “rootcimv2”)<\/span><\/div>\n
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”<\/span><\/div>\n
svctag = objWMI.ExecQuery \u00a0(“Select SerialNumber from Win32_BIOS”).ItemIndex(0).SerialNumber<\/span><\/div>\n
Set objWMIService = GetObject(“winmgmts:” _<\/span><\/div>\n
& “{impersonationLevel=impersonate}!\\” _<\/span><\/div>\n
& strComputer & “rootcimv2”)<\/span><\/div>\n
objTextFileW.WriteLine “Service Tag \u00a0 \u00a0 \u00a0 \u00a0: ” & svctag<\/span><\/div>\n
objIE.navigate url & svctag<\/span><\/div>\n
do while objIE.readystate<>4 : wscript.sleep 50 : loop<\/span><\/div>\n
set warrantyRows = objIE.document.getElementsByTagName(“table”).item(1).getElementsByTagName(“table”).item(122).getElementsByTagName(“table”).item(0).getElementsByTagName(“tr”)<\/span><\/div>\n
For i = 1 to warrantyRows.length – 1<\/span><\/div>\n
set warrantyCols = warrantyRows.item(i).getElementsByTagName(“td”)<\/span><\/div>\n
objTextFileW.WriteLine “Description \u00a0 \u00a0 \u00a0 \u00a0: ” & warrantyCols.item(0).innerText<\/span><\/div>\n
objTextFileW.WriteLine “Provider \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 : ” & warrantyCols.item(1).innerText<\/span><\/div>\n
objTextFileW.WriteLine “Warranty Extension : ” & warrantyCols.item(122).innerText<\/span><\/div>\n
objTextFileW.WriteLine “Start Date \u00a0 \u00a0 \u00a0 \u00a0 : ” & warrantyCols.item(3).innerText<\/span><\/div>\n
objTextFileW.WriteLine “End Date \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 : ” & warrantyCols.item(4).innerText<\/span><\/div>\n
objTextFileW.WriteLine “Days Left \u00a0 \u00a0 \u00a0 \u00a0 \u00a0: ” & warrantyCols.item(5).innerText<\/span><\/div>\n
objTextFileW.WriteLine<\/span><\/div>\n
Next<\/span><\/div>\n
objTextFileW.Writeline “========================================”<\/span><\/div>\n
objTextFileW.WriteLine “== \u00a0 \u00a0 \u00a0 List all local users \u00a0 \u00a0 \u00a0 \u00a0 ==”<\/span><\/div>\n
objTextFileW.Writeline “========================================”<\/span><\/div>\n
Set objNetwork = CreateObject(“Wscript.Network”)<\/span><\/div>\n
‘strComputer = objNetwork.ComputerName<\/span><\/div>\n
Set colAccounts = GetObject(“WinNT:\/\/” & strComputer & “”)<\/span><\/div>\n
colAccounts.Filter = Array(“user”)<\/span><\/div>\n
For Each objUser In colAccounts<\/span><\/div>\n
objTextFileW.WriteLine “Local User \u00a0 \u00a0 \u00a0 \u00a0 : ” & objUser.Name<\/span><\/div>\n
Next<\/span><\/div>\n
objTextFileW.WriteLine<\/span><\/div>\n
objTextFileW.Writeline “===========================================”<\/span><\/div>\n
objTextFileW.WriteLine “== List all local groups and their users ==”<\/span><\/div>\n
objTextFileW.Writeline “===========================================”<\/span><\/div>\n
Set colGroups = GetObject(“WinNT:\/\/” & strComputer & “”)<\/span><\/div>\n
colGroups.Filter = Array(“group”)<\/span><\/div>\n
For Each objGroup In colGroups<\/span><\/div>\n
objTextFileW.WriteLine “Group \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0: ” & objGroup.Name<\/span><\/div>\n
For Each objUser in objGroup.Members<\/span><\/div>\n
objTextFileW.WriteLine “User \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 : ” & objUser.Name<\/span><\/div>\n
Next<\/span><\/div>\n
objTextFileW.WriteLine<\/span><\/div>\n
Next<\/span><\/div>\n
objTextFileW.WriteLine “== List all services ==”<\/span><\/div>\n
set objsvc = GetObject(“winmgmts:{impersonationLevel=impersonate}\\” & strComputer & “rootcimv2”).ExecQuery (“SELECT * FROM Win32_Service”)<\/span><\/div>\n
for each svc in objsvc<\/span><\/div>\n
objTextFileW.WriteLine “Service \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0: ” & svc.displayname<\/span><\/div>\n
objTextFileW.WriteLine “Current Status \u00a0 \u00a0 : ” & svc.state<\/span><\/div>\n
objTextFileW.WriteLine “Startus Type \u00a0 \u00a0 \u00a0 : ” & svc.startmode<\/span><\/div>\n
objTextFileW.WriteLine “Run Server As \u00a0 \u00a0 \u00a0: ” & svc.startname<\/span><\/div>\n
objTextFileW.WriteLine<\/span><\/div>\n
next<\/span><\/div>\n
objTextFileW.WriteLine<\/span><\/div>\n
Loop<\/span><\/div>\n
objTextFileW.Close<\/span><\/div>\n<\/blockquote>\n","protected":false},"excerpt":{"rendered":"

Currently I am having an issue with not knowing information about the servers I am responsible. \u00a0 I am not happy not knowing things. \u00a0I spent a little time gather different parts of different scripts (hacker \/ script kiddie style) and compiling them in to one Visual Basic Script. \u00a0This script is designed to work […]<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[4],"tags":[],"class_list":["post-384","post","type-post","status-publish","format-standard","hentry","category-projects"],"_links":{"self":[{"href":"https:\/\/anthonyreinke.com\/index.php\/wp-json\/wp\/v2\/posts\/384","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/anthonyreinke.com\/index.php\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/anthonyreinke.com\/index.php\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/anthonyreinke.com\/index.php\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/anthonyreinke.com\/index.php\/wp-json\/wp\/v2\/comments?post=384"}],"version-history":[{"count":1,"href":"https:\/\/anthonyreinke.com\/index.php\/wp-json\/wp\/v2\/posts\/384\/revisions"}],"predecessor-version":[{"id":12417,"href":"https:\/\/anthonyreinke.com\/index.php\/wp-json\/wp\/v2\/posts\/384\/revisions\/12417"}],"wp:attachment":[{"href":"https:\/\/anthonyreinke.com\/index.php\/wp-json\/wp\/v2\/media?parent=384"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/anthonyreinke.com\/index.php\/wp-json\/wp\/v2\/categories?post=384"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/anthonyreinke.com\/index.php\/wp-json\/wp\/v2\/tags?post=384"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}