Listing 1: Excerpt from SystemInventory.vbs
Set wmiLocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = _
  wmiLocator.ConnectServer(strcomputer,,AdminID,password)

If err.number <> 0 Then
  Msgbox err.description & " - Error " & err.number & "Terminating program."
  Set objWMIService = nothing
  Set wmiLocator = nothing
  WScript.Quit
End If

Set XL = CreateObject("Excel.Application")
XL.workbooks.add
XL.Visible = TRUE

Call Bios
Call BootCFG
Call CompSysPrd
Call ComputerSys
Call DiskDrive
Call DiskPart
Call DisplayCFG
Call NetAdapter
Call NetAdptCFG
Call OS
Call Processor
Call Summary