On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_VideoController")
For Each objItem in colItems
Wscript.Echo "Name:" & objItem.Name
Wscript.Echo "DeviceID: " & objItem.DeviceID
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "CreationClassName; " & objItem.CreationClassName
Wscript.Echo "AdapterRAM: " & objItem.AdapterRAM
Wscript.Echo "CurrentBitsPerPixel: " & objItem.CurrentBitsPerPixel
Wscript.Echo "CurrentHorizontalResolution;: " & objItem.CurrentHorizontalResolution
Wscript.Echo "CurrentNumberOfColors: " & objItem.CurrentNumberOfColors
Wscript.Echo "CurrentNumberOfColumns: " & objItem.CurrentNumberOfColumns
Wscript.Echo "CurrentNumberOfRows: " & objItem.CurrentNumberOfRows
Wscript.Echo "CurrentRefreshRate: " & objItem.CurrentRefreshRate
Wscript.Echo "CurrentScanMode: " & objItem.CurrentScanMode
Wscript.Echo "CurrentVerticalResolution: " & objItem.CurrentVerticalResolution
Wscript.Echo "DriverDate: " & objItem.DriverDate
Wscript.Echo "DriverVersion: " & objItem.DriverVersion
Wscript.Echo "NumberOfColorPlanes: " & objItem.NumberOfColorPlanes
Wscript.Echo "NumberOfVideoPages: " & objItem.NumberOfVideoPages
Wscript.Echo "VideoArchitecture: " & objItem.VideoArchitecture
Wscript.Echo "VideoModeDescription: " & objItem.VideoModeDescription
Wscript.Echo
Next
Wscript.StdIn.Read(1)
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_PointingDevice")
For Each objItem in colItems
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "Device ID: " & objItem.DeviceID
Wscript.Echo "Device Interface: " & objItem.DeviceInterface
Wscript.Echo "Double Speed Threshold: " & objItem.DoubleSpeedThreshold
Wscript.Echo "Handedness: " & objItem.Handedness
Wscript.Echo "Hardware Type: " & objItem.HardwareType
Wscript.Echo "INF File Name: " & objItem.InfFileName
Wscript.Echo "INF Section: " & objItem.InfSection
Wscript.Echo "Manufacturer: " & objItem.Manufacturer
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "Number Of Buttons: " & objItem.NumberOfButtons
Wscript.Echo "PNP Device ID: " & objItem.PNPDeviceID
Wscript.Echo "Pointing Type: " & objItem.PointingType
Wscript.Echo "Quad Speed Threshold: " & objItem.QuadSpeedThreshold
Wscript.Echo "Resolution: " & objItem.Resolution
Wscript.Echo "Sample Rate: " & objItem.SampleRate
Wscript.Echo "Synch: " & objItem.Synch
Next
Wscript.StdIn.Read(1)
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_SoundDevice ")
For Each objItem in colItems
Wscript.Echo "Name:" & objItem.Name
Wscript.Echo "DeviceID: " & objItem.DeviceID
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "Manufacturer: " & objItem.Manufacturer
Wscript.Echo "ProductName: " & objItem.ProductName
Wscript.Echo "DMABufferSize: " & objItem.DMABufferSize
Wscript.Echo
Next
Wscript.StdIn.Read(1)
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Keyboard")
For Each objItem in colItems
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "Device ID: " & objItem.DeviceID
Wscript.Echo "Is Locked: " & objItem.IsLocked
Wscript.Echo "Layout: " & objItem.Layout
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "Number of Function Keys: " & objItem.NumberOfFunctionKeys
Wscript.Echo "Password: " & objItem.Password
Wscript.Echo "PNP Device ID: " & objItem.PNPDeviceID
Next
Wscript.StdIn.Read(1)
