Re: How to get System Resources info?
From: Viatcheslav V. Vassiliev (msnewsgroup_at_www-sharp.com)
Date: 02/24/04
- Next message: Han Log: "Win32Shutdown method"
- Previous message: Khurram Waraich: "How to get System Resources info?"
- In reply to: Khurram Waraich: "How to get System Resources info?"
- Messages sorted by: [ date ] [ thread ]
Date: Tue, 24 Feb 2004 17:53:05 +0300
IRQ:
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
Wscript.Echo "Availability: " & objItem.Availability
Wscript.Echo "Hardware: " & objItem.Hardware
Wscript.Echo "IRQ Number: " & objItem.IRQNumber
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "Trigger Level: " & objItem.TriggerLevel
Wscript.Echo "Trigger Type: " & objItem.TriggerType
Wscript.Echo
Next
DMA:
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_DMAChannel")
For Each objItem in colItems
Wscript.Echo "Address Size: " & objItem.AddressSize
Wscript.Echo "Availability: " & objItem.Availability
Wscript.Echo "Byte Mode: " & objItem.ByteMode
Wscript.Echo "Channel Timing: " & objItem.ChannelTiming
Wscript.Echo "DMA Channel: " & objItem.DMAChannel
Wscript.Echo "Maximum Transfer Size: " & objItem.MaxTransferSize
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "Type C Timing: " & objItem.TypeCTiming
Wscript.Echo "Word Mode: " & objItem.WordMode
Wscript.Echo
Next
Port (parallel):
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from
Win32_ParallelPort",,48)
For Each objItem in colItems
Wscript.Echo "Availability: " & objItem.Availability
For Each strCapability in objItem.Capabilities
Wscript.Echo "Capability: " & strCapability
Next
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "Device ID: " & objItem.DeviceID
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "OS Auto Discovered: " & objItem.OSAutoDiscovered
Wscript.Echo "PNP Device ID: " & objItem.PNPDeviceID
Wscript.Echo "Protocol Supported: " & objItem.ProtocolSupported
Next
Port (serial):
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_SerialPort",,48)
For Each objItem in colItems
Wscript.Echo "Binary: " & objItem.Binary
Wscript.Echo "Description: " & objItem.Description
Wscript.Echo "Device ID: " & objItem.DeviceID
Wscript.Echo "Maximum Baud Rate: " & objItem.MaxBaudRate
Wscript.Echo "Maximum Input Buffer Size: " &
objItem.MaximumInputBufferSize
Wscript.Echo "Maximum Output Buffer Size: " &
objItem.MaximumOutputBufferSize
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "OS Auto Discovered: " & objItem.OSAutoDiscovered
Wscript.Echo "PNP Device ID: " & objItem.PNPDeviceID
Wscript.Echo "Provider Type: " & objItem.ProviderType
Wscript.Echo "Settable Baud Rate: " & objItem.SettableBaudRate
Wscript.Echo "Settable Data Bits: " & objItem.SettableDataBits
Wscript.Echo "Settable Flow Control: " & objItem.SettableFlowControl
Wscript.Echo "Settable Parity: " & objItem.SettableParity
Wscript.Echo "Settable Parity Check: " & objItem.SettableParityCheck
Wscript.Echo "Settable RLSD: " & objItem.SettableRLSD
Wscript.Echo "Settable Stop Bits: " & objItem.SettableStopBits
Wscript.Echo "Supports 16-Bit Mode: " & objItem.Supports16BitMode
Wscript.Echo "Supports DTRDSR: " & objItem.SupportsDTRDSR
Wscript.Echo "Supports Elapsed Timeouts: " &
objItem.SupportsElapsedTimeouts
Wscript.Echo "Supports Int Timeouts: " & objItem.SupportsIntTimeouts
Wscript.Echo "Supports Parity Check: " & objItem.SupportsParityCheck
Wscript.Echo "Supports RLSD: " & objItem.SupportsRLSD
Wscript.Echo "Supports RTSCTS: " & objItem.SupportsRTSCTS
Wscript.Echo "Supports Special Characters: " &
objItem.SupportsSpecialCharacters
Wscript.Echo "Supports XOn XOff: " & objItem.SupportsXOnXOff
Wscript.Echo "Supports XOn XOff Setting: " & objItem.SupportsXOnXOffSet
Next
Memory devices:
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_MemoryDevice")
For Each objItem in colItems
Wscript.Echo "Device ID: " & objItem.DeviceID
Wscript.Echo "Ending Address: " & objItem.EndingAddress
Wscript.Echo "Starting Address: " & objItem.StartingAddress
Wscript.Echo
Next
//------------------------------------
Regards,
Vassiliev V. V.
http://www-sharp.com -
Scripting/HTA/.Net Framework IDE
"Khurram Waraich" <anonymous@discussions.microsoft.com> ???????/???????? ?
???????? ?????????: news:03c901c3faa5$89149080$a101280a@phx.gbl...
> Hi,
>
> I m facing the problems related to System Resources
> information. I was trying to get IRQ resources number and
> its realted device caption, DMAChannel name and its
> realted device, Port Resources name and its related
> devices and lastly device memory address and its realted
> devices.
>
> I can get this through association but it was taking too
> much to display the information.
> But windows display like such information very fastly.
> Plz tell me how can i overcome this efficiency problem.
> by
> Khurram
- Next message: Han Log: "Win32Shutdown method"
- Previous message: Khurram Waraich: "How to get System Resources info?"
- In reply to: Khurram Waraich: "How to get System Resources info?"
- Messages sorted by: [ date ] [ thread ]
Relevant Pages
|
