Scripting

Try this

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")



For Each objItem in colItems

WScript.Echo strComputer & objItem.UserName
Next

Thanks

Please excuse my ignorance, but how would I use the above script with a list of assets I want to query?

Thanks

If it's a small list or a one time job you could do a array.
If it's a big list or you want to reuse the script I would have it read a text file.

Something like

Set FSO = CreateObject("Scripting.FileSystemObject")
Set Fin = Fso.OpenTextFile("C:\SvrList.txt", 1)
Do While Fin.AtEndOfStream <> True
strComputer = Fin.readline
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
For Each objItem in colItems
WScript.Echo strComputer & objItem.UserName
Next
Loop
Fin.close