Get Computers VBscript Issue

Question

My setup consists of 1 server and 1 to 9 computers at multiple locations containing the same setup at each location but may vary on the amount of computers.  These computers that are attached to the server are the same name at each location, but may
only have 2 computers at one location, and 5 at another and so forth.  The following script is what i have to get each computer name within a array setup so that it will go through each computer and output to a text file the findings.
The issue i am having is that if 1 location has less than 9 computers (as you can see listed in my script).  It will continue to output the last computer it found until the script reaches the 9th computer.  This is because i have the 'On Error
Resume Next" of course.
Now, the script works fine.  But i would like to find a way such as a "on error" or pull from the active directory the computers available in the domain without having to modify too much of my script.
Another issue is, some computers at the each location might not be on while others will be.  For example: If i run a script for 1 server and 3 computers for that location, The script will of course find the server, but if comp1 is offline, and since
it is the first computer in the array of the script.  The script will error out and not finish with the other 2 computers that are online.  
On Error Resume Next
Set objFSO = CreateObject("Scripting.FileSystemObject") 'Creates and saves a text document of results to the desktop'
Set objFile = objFSO.CreateTextFile("System Information.txt", True)
arrComputers = Array("Server","comp1","comp2","comp3","comp4","comp5","comp6","comp7","comp8","comp9") 'Computers Listed that the script will search for'
For Each strComputer In arrComputers
objFile.Writeline
objFile.Writeline "===================================="
objFile.Writeline "Computer: "& strComputer 'The name of the computer for the following information listed below'
objFile.Writeline "===================================="
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 'Authentication level to obtain information from WMI app for local and remote computers'
Set colSettings = objWMIService.ExecQuery ("Select * from Win32_ComputerSystem")
For Each objComputer in colSettings
objFile.Writeline "System Name: " & objComputer.Name 'Gets the computer name'
objFile.Writeline "System Model: " & objComputer.Model 'Gets the computer model'
objFile.Writeline "Total Physical Memory: " & objComputer.TotalPhysicalMemory 'Gets the computer installed memory"
Next
Set colSettings = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colSettings
objFile.Writeline "OS Name: " & objOperatingSystem.Name 'Gets the computer OS'
Next
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystemProduct")
For Each objItem in colItems
objFile.Writeline "Serial Number: " & objItem.IdentifyingNumber 'Gets the computer serial number'
Next
Next

Answer 1

This is all made much, much simpler if you use PowerShell.
$computerList = @(
"server"
"comp1"
"comp2"
# ...etc.
foreach ( $computer in $computerList ) {
if ( Test-Connection $computer -Count 1 -Quiet ) {
$cs = Get-WMIObject Win32_ComputerSystem -ComputerName $computer
$os = Get-WMIObject Win32_OperatingSystem -ComputerName $computer
$csProduct = Get-WMIObject Win32_ComputerSystemProduct -ComputerName $computer
New-Object PSObject -Property @{
"System Name" = $cs.Name
"System Model" = $cs.Model
"Total Physical Memory" = $cs.TotalPhysicalMemory / 1gb
"OS Name" = $os.Name.Split('|')[0]
"Serial Number" = $csProduct.IdentifyingNumber
You can put this in a script and export to CSV by piping to Export-CSV.
This is also easy to extend by adding additional properties.
I would also recommend using a parameter instead of hard-coding the computer names at the top of the script, but I'll leave that as a learning exercise.
-- Bill Stewart [Bill_Stewart]