WISDOMBAY

WINDOWS SCRIPTING CORNER @ WISDOMBAY

A periodic Section maintained by Pramod S Nair

11. A Windows Script that builds a file with all IRQ information

Posted on WisdomBay @ 6:44 PM 11-03-2006 | Post by Pramod S Nair

This script will create a file with information about the IRQ's on the machine.

'A Windows Script that builds a file with all IRQ information 'Compiled by Pramod S Nair 'http://www.wisdombay.com 'Written 4:31 PM 03/11/2006 '''''''''''''''''''''''''''''''''''''''' 'Outputfile name. 'Change it to suit your needs outFlNam = "C:\IRQDet.txt" ''''''''''''''''''''''''''''''''''''''''''' 'Create a WMI Object Set ow = GetObject("winmgmts:\\.\root\cimv2") strOut = "" 'Query the Win32_IRQResource class for getting IRQ Info Set S = ow.ExecQuery ("Select * from Win32_IRQResource") strOut = "Info about IRQ Settings on this machine : " & vbnewline & vbnewline For Each obj in S 'Availability of the IRQ tmp = obj.Availability select case tmp case 0 t = "Other" case 1 t = "Unknown" case 2 t = "Available" case 3 t = "In Use/Not Available" case 4 t = "In Use and Available/Shareable" end select strOut = strOut & "Availability : " & t & vbnewline 'Short description of the object strOut = strOut & "Caption : " & obj.Caption & 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 'Name of the scoping computer system creation class strOut = strOut & "CSCreationClassName : " & obj.CSCreationClassName & vbnewline 'Name of the scoping computer system strOut = strOut & "CSName : " & obj.CSName & vbnewline 'Description of the object strOut = strOut & "Description : " & obj.Description & vbnewline ' Is Hardware based IRQ tmp = obj.Hardware if tmp= True Then t = "Yes" else t = "No" End if strOut = strOut & "Hardware Based Interrupt : " & t & vbnewline 'IRQ Number strOut = strOut & "IRQ Number : " & obj.IRQNumber & vbnewline 'Label name of the object strOut = strOut & "Name : " & obj.Name & vbnewline ' Is the IRQ Shareable tmp = obj.Shareable if tmp= True Then t = "Yes" else t = "No" End if strOut = strOut & "Shareable IRQ : " & t & vbnewline 'Status strOut = strOut & "Status : " & obj.Status & vbnewline 'Trigger Level i.e is the interrupt is triggered by the hardware signal going high (4) or low (3). tmp = obj.TriggerLevel select case tmp case 1 t = "Other" case 2 t = "Unknown" case 3 t = "Active Low" case 4 t = "Active High" end select strOut = strOut & "TriggerLevel : " & t & vbnewline 'Trigger Level i.e is the interrupt is triggered by the hardware signal going high (4) or low (3). tmp = obj.TriggerType select case tmp case 1 t = "Other" case 2 t = "Unknown" case 3 t = "Level" case 4 t = "Edge" end select strOut = strOut & "TriggerType : " & t & vbnewline 'Vector strOut = strOut & "Vector : " & obj.Vector & vbnewline & vbnewline Next Set S = Nothing Set ow = Nothing 'Write the info to our out file Set fso = CreateObject("Scripting.FileSystemObject") Set g = fso.CreateTextFile(outFlNam, True) g.WriteLine strOut g.close Wscript.Echo "Output Redirected to " & outFlNam '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 IRQ related details on your machine.