Need help with a VB Script using WMI scanning text file list of PCs and writing to Access Database

Hi Experts,

Have the VBscript below - It should read a list of PC names from a text file - scan each PC for list of software installed and then write to an access db.

Unfortunately I am having problems with the For-Next syntax - it is only scanning the first PC and not going onto the next...

Much appreciate any help!

Here is the script... The database is called Database.mdb and the table is called Software
The text file with the PC List is called AD_PCS_Test.txt and all files are located in D:\Data...

'*** Script Start ***

Option Explicit

' Declare the constants for the database connection
Const adOpenStatic = 3
Const adLockOptimistic = 3

' Declare the variables
Dim sComputer,strComputer,WSHShell, ofso, Sys
Dim oNet,oSoftware,objWMIService,objComputer
Dim cnSoftInv, rsData,aComputers, oComputer, oService
Dim colSoftware,sComputerName,oFile
Dim INPUT_FILE_NAME, Inputfolder, inputfile
Dim colComputers, colRunningServices, colComputer, colItems, colServices


Inputfolder = "D:\Data\"
inputfile = "AD_PCS_Test.txt"
INPUT_FILE_NAME = inputfolder & inputfile
Const FOR_READING = 1
            
Set ofso = CreateObject("Scripting.FileSystemObject")
Set WSHShell = WScript.CreateObject("WScript.Shell")      
Set oFile = ofso.OpenTextFile(INPUT_FILE_NAME, FOR_READING)
Set oNet = CreateObject("WScript.Network")
Set cnSoftInv = CreateObject("ADODB.Connection")
Set rsData = CreateObject("ADODB.Recordset")

cnSoftInv.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "User ID=Admin;Data Source=D:\Data\Database.mdb"

cnSoftInv.Open

sComputerName = oFile.ReadAll
oFile.Close
aComputers = Split(sComputerName, vbCrLf)

For Each sComputerName In aComputers

Call ServStat
Next
            
rsData.Close
Set rsData = Nothing
 
cnSoftInv.Close
Set cnSoftInv = Nothing
            
'WScript.Quit
   
'****** Declare Subs ******

Sub ServStat
On Error Resume Next      
            
            rsData.Open "software", cnSoftInv, adOpenStatic, adLockOptimistic
            
            strComputer = sComputerName
            
      Set objWMIService = GetObject("winmgmts:" _
          & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
          
      Set colSoftware = objWMIService.ExecQuery("SELECT * FROM Win32_Product")            
                        
      For Each oSoftware in colSoftware
      
      rsData.AddNew
      
       rsData.Fields("ComputerName").Value = oNet.ComputerName
       rsData.Fields("Caption").Value = oSoftware.Caption
        rsData.Fields("Description").Value = oSoftware.Description
        rsData.Fields("IdNum").Value = oSoftware.IdentifyingNumber
        rsData.Fields("InstallLocation").Value = oSoftware.InstallLocation
        rsData.Fields("InstallState").Value = oSoftware.InstallState
        rsData.Fields("InstallDate").Value = oSoftware.InstallDate
        rsData.Fields("Name").Value = oSoftware.Name
        rsData.Fields("PackageCache").Value = oSoftware.PackageCache
        rsData.Fields("SKUNumber").Value = oSoftware.SKUNumber
        rsData.Fields("Vendor").Value = oSoftware.Vendor
        rsData.Fields("Version").Value = oSoftware.Version        
        
        rsData.Update

Next
      
End Sub

'*** End of Script ***Start Free Trial