Set obj = GetObject _
	("winmgmts:\\.\root\cimv2")
Set objTargets = obj.ExecQuery( _
	"select * from Win32_ComputerSystem" _
	)
For Each objTarget in objTargets 
	Wscript.Echo "System Name: " & objTarget.Name 
	Wscript.Echo "System Manufacturer: " & objTarget.Manufacturer 
	Wscript.Echo "System Model: " & objTarget.Model 
	Wscript.Echo "Total Physical Memory: " & objTarget.TotalPhysicalMemory 
Next