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(122).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(122).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