System info via .vbs

Find your system model and your memory layout


MakeAndModel.vbs

SystemName = “localhost”

set tmpObj = GetObject(“winmgmts:{impersonationLevel=impersonate}!\\” & SystemName & “\root\cimv2”).InstancesOf (“Win32_ComputerSystem”)
for each tmpItem in tmpObj
MakeModel = trim(tmpItem.Manufacturer) & ” ” & trim(tmpItem.Model)
next
Set tmpObj = Nothing: Set tmpItem = Nothing

msgbox MakeModel

MemoryLayout.vbs

On Error Resume Next

strComputer = “.”
Set objWMIService = GetObject(“winmgmts:” _
& “{impersonationLevel=impersonate}!\\” & strComputer & “\root\cimv2”)

Set colItems = objWMIService.ExecQuery(“Select * from Win32_PhysicalMemory”)

For Each objItem in colItems
Wscript.Echo “Bank Label: ” & objItem.BankLabel
Wscript.Echo “Capacity: ” & objItem.Capacity / 1048576
Wscript.Echo “Data Width: ” & objItem.DataWidth
Wscript.Echo “Description: ” & objItem.Description
Wscript.Echo “Device Locator: ” & objItem.DeviceLocator
Wscript.Echo “Form Factor: ” & objItem.FormFactor
Wscript.Echo “Hot Swappable: ” & objItem.HotSwappable
Wscript.Echo “Manufacturer: ” & objItem.Manufacturer
Wscript.Echo “Memory Type: ” & objItem.MemoryType
Wscript.Echo “Name: ” & objItem.Name
Wscript.Echo “Part Number: ” & objItem.PartNumber
Wscript.Echo “Position In Row: ” & objItem.PositionInRow
Wscript.Echo “Speed: ” & objItem.Speed
Wscript.Echo “Tag: ” & objItem.Tag
Wscript.Echo “Type Detail: ” & objItem.TypeDetail
Wscript.Echo “————————-”
Next