Hardware Peripherals and Devices - Scripts
List Keyboard PropertiesList Modem Information
List Pointing Device Properties
List Plug and Play Devices
List Plug and Play Signed Drivers
List Sound Card Properties
You can use any of the VBScript programs below in ActiveXperts Network Monitor. Click here for an explanation about how to include scripts in ActiveXperts Network Monitor.
List Keyboard Properties
Returns information about the keyboard connected to a computer.
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
List Modem Information
Retrieves information about all the modems installed in a computer.
On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_POTSModem") For Each objItem in colItems Wscript.Echo "Attached To: " & objItem.AttachedTo Wscript.Echo "Blind Off: " & objItem.BlindOff Wscript.Echo "Blind On: " & objItem.BlindOn Wscript.Echo "Compression Off: " & objItem.CompressionOff Wscript.Echo "Compression On: " & objItem.CompressionOn Wscript.Echo "Configuration Manager Error Code: " & _ objItem.ConfigManagerErrorCode Wscript.Echo "Configuration Manager User Configuration: " & _ objItem.ConfigManagerUserConfig Wscript.Echo "Configuration Dialog: " & objItem.ConfigurationDialog Wscript.Echo "Country Selected: " & objItem.CountrySelected Wscript.Echo "DCB: " For Each objElement In objItem.DCB WScript.Echo vbTab & objElement Next Wscript.Echo "Default: " For Each objElement In objItem.Default WScript.Echo vbTab & objElement Next Wscript.Echo "Device ID: " & objItem.DeviceID Wscript.Echo "Device Type: " & objItem.DeviceType Wscript.Echo "Driver Date: " & objItem.DriverDate Wscript.Echo "Error Control Forced: " & objItem.ErrorControlForced Wscript.Echo "Error Control Off: " & objItem.ErrorControlOff Wscript.Echo "Error Control On: " & objItem.ErrorControlOn Wscript.Echo "Flow Control Hard: " & objItem.FlowControlHard Wscript.Echo "Flow Control Off: " & objItem.FlowControlOff Wscript.Echo "Flow Control Soft: " & objItem.FlowControlSoft Wscript.Echo "Inactivity Scale: " & objItem.InactivityScale Wscript.Echo "Inactivity Timeout: " & objItem.InactivityTimeout Wscript.Echo "Index: " & objItem.Index Wscript.Echo "Maximum Baud Rate To SerialPort: " & _ objItem.MaxBaudRateToSerialPort Wscript.Echo "Model: " & objItem.Model Wscript.Echo "Modem INF Path: " & objItem.ModemInfPath Wscript.Echo "Modem INF Section: " & objItem.ModemInfSection Wscript.Echo "Modulation Bell: " & objItem.ModulationBell Wscript.Echo "Modulation CCITT: " & objItem.ModulationCCITT Wscript.Echo "Name: " & objItem.Name Wscript.Echo "PNP Device ID: " & objItem.PNPDeviceID Wscript.Echo "Port SubClass: " & objItem.PortSubClass Wscript.Echo "Prefix: " & objItem.Prefix Wscript.Echo "Properties: " For Each objElement In objItem.Properties WScript.Echo vbTab & objElement Next Wscript.Echo "Provider Name: " & objItem.ProviderName Wscript.Echo "Pulse: " & objItem.Pulse Wscript.Echo "Reset: " & objItem.Reset Wscript.Echo "Responses Key Name: " & objItem.ResponsesKeyName Wscript.Echo "Speaker Mode Dial: " & objItem.SpeakerModeDial Wscript.Echo "Speaker Mode Off: " & objItem.SpeakerModeOff Wscript.Echo "Speaker Mode On: " & objItem.SpeakerModeOn Wscript.Echo "Speaker Mode Setup: " & objItem.SpeakerModeSetup Wscript.Echo "Speaker Volume High: " & objItem.SpeakerVolumeHigh Wscript.Echo "Speaker Volume Info: " & objItem.SpeakerVolumeInfo Wscript.Echo "Speaker Volume Low: " & objItem.SpeakerVolumeLow Wscript.Echo "Speaker Volume Med: " & objItem.SpeakerVolumeMed Wscript.Echo "Status Info: " & objItem.StatusInfo Wscript.Echo "Terminator: " & objItem.Terminator Wscript.Echo "Tone: " & objItem.Tone Wscript.Echo Next
List Pointing Device Properties
Returns information about all the pointing devices (including mice and trackballs) installed on a computer.
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
List Plug and Play Devices
Returns a list of all the Plug and Play devices installed in a computer.
strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_PnPEntity") For Each objItem in colItems Wscript.Echo "Class GUID: " & objItem.ClassGuid Wscript.Echo "Description: " & objItem.Description Wscript.Echo "Device ID: " & objItem.DeviceID Wscript.Echo "Manufacturer: " & objItem.Manufacturer Wscript.Echo "Name: " & objItem.Name Wscript.Echo "PNP Device ID: " & objItem.PNPDeviceID Wscript.Echo "Service: " & objItem.Service Next
List Plug and Play Signed Drivers
Returns information about the signed plug and play drivers installed on a computer.
On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_PnPSignedDriver") For Each objItem in colItems Wscript.Echo "Class Guid: " & objItem.ClassGuid Wscript.Echo "Compatability ID: " & objItem.CompatID Wscript.Echo "Description: " & objItem.Description Wscript.Echo "Device Class: " & objItem.DeviceClass Wscript.Echo "Device ID: " & objItem.DeviceID Wscript.Echo "Device Name: " & objItem.DeviceName dtmWMIDate = objItem.DriverDate strReturn = WMIDateStringToDate(dtmWMIDate) Wscript.Echo "Driver Date: " & strReturn Wscript.Echo "Driver Provider Name: " & objItem.DriverProviderName Wscript.Echo "Driver Version: " & objItem.DriverVersion Wscript.Echo "Hardware ID: " & objItem.HardWareID Wscript.Echo "INF Name: " & objItem.InfName Wscript.Echo "Is Signed: " & objItem.IsSigned Wscript.Echo "Manufacturer: " & objItem.Manufacturer Wscript.Echo "PDO: " & objItem.PDO Wscript.Echo "Signer: " & objItem.Signer Wscript.Echo Next Function WMIDateStringToDate(dtmWMIDate) If Not IsNull(dtmWMIDate) Then WMIDateStringToDate = CDate(Mid(dtmWMIDate, 5, 2) & "/" & _ Mid(dtmWMIDate, 7, 2) & "/" & Left(dtmWMIDate, 4) _ & " " & Mid (dtmWMIDate, 9, 2) & ":" & _ Mid(dtmWMIDate, 11, 2) & ":" & Mid(dtmWMIDate,13, 2)) End If End Function
List Sound Card Properties
Retrieves information about all the sound cards installed in a computer
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 "Description: " & objItem.Description Wscript.Echo "Device ID: " & objItem.DeviceID Wscript.Echo "DMA Buffer Size: " & objItem.DMABufferSize Wscript.Echo "Manufacturer: " & objItem.Manufacturer Wscript.Echo "MPU 401 Address: " & objItem.MPU401Address Wscript.Echo "Name: " & objItem.Name Wscript.Echo "PNP Device ID: " & objItem.PNPDeviceID Wscript.Echo "Product Name: " & objItem.ProductName Wscript.Echo "Status Information: " & objItem.StatusInfo Next