'VBscript to monitoring interrupt request line (IRQ) number on a computer system running Windows 'Used Win32_IRQResource class in WMI 'Author : Davit Poghosyan : 06/13/2013 'For FixitScripts.com On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_IRQResource") For Each objItem in colItems Availbty = objItem.Availability Name = objItem.Name Status = objItem.Status TrLevel = objItem.TriggerLevel TrType = objItem.TriggerType IRQNumber = objItem.IRQNumber HD = objItem.Hardware I = I + 1 Select Case Availbty Case 0 AvailMeaning = "Other" Case 1 AvailMeaning = "Unknown" Case 2 AvailMeaning = "Available" Case 3 AvailMeaning = "In Use or Not Available" Case 4 AvailMeaning = "In Use and Available or Sharable" End Select Select Case TrLevel Case 1 TriggerLevel = "Other" Case 2 TriggerLevel = "Unknown" Case 3 TriggerLevel = "Active Low" Case 4 TriggerLevel = "Active High" End Select Select Case TrType Case 1 TriggerType = "Other" Case 2 TriggerType = "Unknown" Case 3 TriggerType = "Level" Case 4 TriggerType = "Edge" End Select Wscript.Echo "~~~IRQ Monitor~~~" & vbcrlf & _ vbcrlf & _ "Status is : " & Status & vbcrlf & _ "Name is : " & Name & vbcrlf & _ "IRQNumber is : " & IRQNumber & vbcrlf & _ "Hardware is : " & HD & vbcrlf & _ "Availability is : " & AvailMeaning & vbcrlf & _ "Trigger Level is : " & TriggerLevel & vbcrlf & _ "Trigger Type is : " & TriggerType x=MsgBox("You want to continue?",4,"Please answer") If x=7 Then Exit For Next