Brian, I coded something similar to your basic inventory script for small-to-midsized organizations.  Instead of using a text file with computer names, it queries AD and grabs computer objects.  I have a bunch of stuff that get's  inventoried, and used Scriptomatic to track down where stuff lives.  Thought you and your readers might find it interesting.

http://addicted-to-it.blogspot.com/2007/01/ad-coit-v23-inventory-tool-released-on.html

I tested your script and for some reason I am getting duplicate data, perhaps for machines that don't respond to wmi.  

Great script Brian, thanks!  I've modified it to add a few more wmi features.  I've also set it to open up as an Excel spread sheet, formatted into four work sheets.  Here's the new code in case you're interested.

'==========================================================================

' NAME: Script to Collect Inventory Information

'

' AUTHOR: Brian Desmond

' DATE  : 10/22/2006

'

' MODIFIED: Jeremy Schubert

' DATE: 25/07/2007

'

'==========================================================================

Option Explicit

Const wbemFlagReturnImmediately = &h10

Const wbemFlagForwardOnly = &h20

Const PATH_TO_INPUT = "g:\scripts\studentworkstations.txt"

Const PATH_TO_OUTPUT = "g:\scripts\Grandin (047) Student Computer Inventory.csv"

Dim fso

Set fso = WScript.CreateObject("Scripting.FileSystemObject")

Dim shl

Set shl = WScript.CreateObject("WScript.Shell")

Dim input

Set input = fso.OpenTextFile(PATH_TO_INPUT)

Dim output

Set output = fso.CreateTextFile(PATH_TO_OUTPUT, True)

output.WriteLine "Hostname,Description,Serial Number,Make,Model,IP Address,MAC,RAM,Processor,Hard Drive Size,BIOS Version,Operating System,Service Pack"

Dim wmiService

Dim wmiResults

Dim hostname

Dim make

Dim model

Dim biosversion

Dim operatingSystem

Dim descriptio

Dim serialNumber

Dim description

Dim harddrivesize

Dim processor

Dim ram

Dim macaddress

Dim ipaddress

Dim servicepack

Dim line

Dim exec

Dim pingResults

While Not input.AtEndOfStream

line = input.ReadLine

hostname = ""

make = ""

model = ""

biosversion = ""

operatingSystem = ""

serialNumber = ""

description = "."

harddrivesize = ","

ram = ","

ipaddress = "."

macaddress = "."

servicepack = "."

Set exec = shl.Exec("ping -n 2 -w 1000 " & line)

pingResults = LCase(exec.StdOut.ReadAll)

If InStr(pingResults, "reply from") Then

WScript.Echo "Reply From: " & line

'On Error Resume Next

Set wmiService = GetObject("winmgmts:\\" & line & "\root\CIMV2")

Set wmiResults = wmiService.ExecQuery("SELECT * FROM Win32_BIOS", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)

Dim item

For Each item In wmiResults

hostname = line

serialNumber = item.SerialNumber

biosversion = item.SMBIOSBIOSVersion

Next

Set wmiService = GetObject("winmgmts:\\" & line & "\root\CIMV2")

Set wmiResults = wmiService.ExecQuery("SELECT * FROM Win32_ComputerSystem", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)

For Each item In wmiResults

make = item.Manufacturer

model = item.Model

ram = item.TotalPhysicalMemory

Next

Set wmiService = GetObject("winmgmts:\\" & line & "\root\CIMV2")

Set wmiResults = wmiService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)

For Each item

Is there a way to specify a userid and pwd to connect with to pull the information?  I am able to collect information for localhost but not remote machines.

Thanks, but how can I get the serial monitor (lcd) in addition to what we have in inventory

if you can help me with that variable will fail to achieve in the forums

Darry Castro

PingBack from http://www.DailyCupOfTech.com/2007/04/29/tech-blog-of-the-week-brian-desmonds-blog/