WISDOMBAY

WINDOWS SCRIPTING CORNER @ WISDOMBAY

A periodic Section maintained by Pramod S Nair

10. A Windows Script For Listing Info about all Pointing Devices

Posted on WisdomBay @ 8:16 PM 07-03-2006 | Post by Pramod S Nair

This script will create a string with all the needed information about the pointing device available in the local machine.

'A Windows Script For Listing Information ' about all pointing devices found on a computer 'Compiled by Pramod S Nair 'http://www.wisdombay.com 'Written 8:16 PM 07-03-2006 'Create a WMI Object Set ow = GetObject("winmgmts:\\.\root\cimv2") strOut = "" 'Query the Win32_ComputerSystem class for getting a machines' Information Set S = ow.ExecQuery ("Select * from Win32_PointingDevice") strOut = "Info about Pointing Devices present on this machine : " & vbnewline & vbnewline For Each obj in S 'Availability and Status of the device tmp = obj.Availability select case tmp case 1 t = "Other" case 2 t = "Unknown" case 3 t = "Running/Full Power" case 4 t = "Warning" case 5 t = "In Test" case 6 t = "Not Applicable" case 7 t = "Power Off" case 8 t = "Off Line" case 9 t = "Off Duty" case 10 t = "Degraded" case 11 t = "Not Installed" case 12 t = "Install Error" case 13 t = "Power Save - Unknown" case 14 t = "Power Save - Low Power Mode" case 15 t = "Power Save - Standby" case 16 t = "Power Cycle" case 17 t = "Power Save - Warning" end select strOut = strOut & "Availability : " & t & vbnewline 'Short description of the object strOut = strOut & "Caption : " & obj.Caption & vbnewline 'Win32 Configuration Manager error code tmp = obj.ConfigManagerErrorCode select case tmp case 0 t = "Device is working properly." case 1 t = "Device is not configured correctly." case 2 t = "Windows cannot load the driver for this device." case 3 t = "Driver for this device might be corrupted, or the system may be low on memory or other resources" case 4 t = "Device is not working properly. One of its drivers or the registry might be corrupted" case 5 t = "Driver for the device requires a resource that Windows cannot manage." case 6 t = "Boot configuration for the device conflicts with other devices." case 7 t = "Cannot filter." case 8 t = "Driver loader for the device is missing" case 9 t = "Device is not working properly" case 10 t = "Device cannot start" case 11 t = "Device failed" case 12 t = "Device cannot find enough free resources to use" case 13 t = "Windows cannot verify the device's resources" case 14 t = "Device cannot work properly until the computer is restarted" case 15 t = "Device is not working properly due to a possible re-enumeration problem" case 16 t = "Windows cannot identify all of the resources that the device uses" case 17 t = "Device is requesting an unknown resource type" case 18 t = "Device drivers need to be reinstalled" case 19 t = "Failure using the VxD loader" case 20 t = "Registry might be corrupted" case 21 t = "System failure. If changing the device driver is ineffective, see the hardware documentation. Windows is removing the device" case 22 t = "Device is disabled" case 23 t = "System failure. If changing the device driver is ineffective, see the hardware documentation" case 24 t = "Device is not present, not working properly, or does not have all of its drivers installed" case 25 t = "Windows is still setting up the device" case 26 t = "Windows is still setting up the device" case 27 t = "Device does not have valid log configuration" case 28 t = "Device drivers are not installed" case 29 t = "Device is disabled; the device firmware did not provide the required resources" case 30 t = "Device is using an IRQ resource that another device is using" case 31 t = "Device is not working properly; Windows cannot load the required device drivers" end select strOut = strOut & "Config Manager Error Status : " & t & vbnewline 'Name of the first concrete class to appear in the inheritance chain used in the creation of an instance strOut = strOut & "CreationClassName : " & obj.CreationClassName & vbnewline 'Description of the object strOut = strOut & "Description : " & obj.Description & vbnewline 'Device Id strOut = strOut & "DeviceID : " & obj.DeviceID & vbnewline 'Type of interface used for the pointing device. tmp = obj.DeviceInterface select case tmp case 1 t = "Other" case 2 t = "Unknown" case 3 t = "Serial" case 4 t = "PS/2" case 5 t = "Infrared" case 6 t = "HP-HIL" case 7 t = "Bus mouse" case 8 t = "Apple Desktop Bus" case 160 t = "Bus mouse DB-9" case 161 t = "Bus mouse micro-DIN" case 162 t = "USB" end select strOut = strOut & "Type of Interface : " & t & vbnewline 'The sensitivity threshold strOut = strOut & "DoubleSpeedThreshold : " & obj.DoubleSpeedThreshold & vbnewline 'if the error reported in LastErrorCode is now cleared tmp = obj.ErrorCleared if tmp= True Then t = "Yes" else t = "No" End if strOut = strOut & "if the error reported in LastErrorCode is now cleared : " & t & vbnewline 'More information about the error recorded in LastErrorCode strOut = strOut & "Error Description : " & obj.ErrorDescription & vbnewline 'Configuration of the pointing device for left or right-hand operation tmp = obj.Handedness select case tmp case 0 t = "Unknown" case 1 t = "Not Applicable" case 2 t = "Right Handed Operation" case 3 t = "Left Handed Operation" end select strOut = strOut & "Type of Interface : " & t & vbnewline 'Type of hardware used strOut = strOut & "Hardware Type : " & obj.HardwareType & vbnewline 'Name of the .inf file for the Windows pointing device strOut = strOut & "Inf FileName : " & obj.InfFileName & vbnewline 'Section of the .inf file that holds configuration information for the Windows pointing device strOut = strOut & "Inf Section : " & obj.InfSection & vbnewline 'is the device is locked tmp = obj.IsLocked if tmp= True Then t = "Yes" else t = "No" End if strOut = strOut & "Is the device locked ? : " & t & vbnewline 'Last error code reported by the logical device strOut = strOut & "Last Error Code : " & obj.LastErrorCode & vbnewline 'Name of the manufacturer strOut = strOut & "Manufacturer : " & obj.Manufacturer & vbnewline 'Label name of the object strOut = strOut & "Name : " & obj.Name & vbnewline 'Number of buttons on the pointing device strOut = strOut & "Number Of Buttons : " & obj.NumberOfButtons & vbnewline 'Windows Plug and Play device identifier for this device strOut = strOut & "PNP Device ID : " & obj.PNPDeviceID & vbnewline 'Type of pointing device tmp = obj.PointingType select case tmp case 1 t = "Other" case 2 t = "Unknown" case 3 t = "Mouse" case 4 t = "Track Ball" case 5 t = "Track Point" case 6 t = "Glide Point" case 7 t = "Touch Pad" case 8 t = "Touch Screen" case 9 t = "Mouse - Optical Sensor" end select strOut = strOut & "Pointing Type : " & t & vbnewline 'if device can be power-managed tmp = obj.PowerManagementSupported if tmp= True Then t = "Yes" else t = "No" End if strOut = strOut & "Power Management Supported ? : " & t & vbnewline 'QuadSpeedThreshold strOut = strOut & "QuadSpeedThreshold : " & obj.QuadSpeedThreshold & vbnewline 'Tracking resolution strOut = strOut & "Tracking resolution : " & obj.Resolution & vbnewline 'Status strOut = strOut & "Status : " & obj.Status & vbnewline 'State of the logical device tmp = obj.StatusInfo select case tmp case 1 t = "Other" case 2 t = "Unknown" case 3 t = "Enabled" case 4 t = "Disabled" case 5 t = "Not Applicable" end select strOut = strOut & "StatusInfo : " & t & vbnewline 'Name of the scoping system strOut = strOut & "Scoping System Name : " & obj.SystemName & vbnewline & vbnewline Next Set S = Nothing Set ow = Nothing 'Alert the User with the info Wscript.Echo strOut 'End of Script

How to use :
1. Copy the code given above to clipboard.
2. Create a new file and name it as you like with a '.vbs' extension.
3. Now you can use this script for retriveing all information about the pointing devices available on your machine.