Detecting IDE Devices in Visual Basic Help

[jasper]

hi,

i am trying to make a very simple program that will just detect
and output your currently connected IDE devices. It will look
something like this:

IDE PRIMARY MASTER:
IDE PRIMARY SLAVE:

IDE SECONDARY MASTER:
IDE SECONDARY SLAVE:

And it will just show you what you have connected.
I have been researching for hours and hours for how to
do this and I've come up with NOTHING!

Is this even possible?

I know what you're going to say, why do that when you
can just see the same information in your BIOS when
your computer boots up. I know I can do that, but
I want a way to do it in windows.

Any and all help you can give me (no matter how small), even
a push in the right direction will be appreciated.

Thanks for your help.

-jasper

[Larry Serflaten]

Re: Detecting IDE Devices in Visual Basic Help

"jasper" <sdf9g7sdf9g7@a s9df7as9df7.com > wrote[color=blue]
>
> i am trying to make a very simple program that will just detect
> and output your currently connected IDE devices. It will look
> something like this:
>
> IDE PRIMARY MASTER:
> IDE PRIMARY SLAVE:
>
> IDE SECONDARY MASTER:
> IDE SECONDARY SLAVE:
>
> And it will just show you what you have connected.
> I have been researching for hours and hours for how to
> do this and I've come up with NOTHING!
>
> Is this even possible?[/color]


This should get you started. It may have more than you wanted
to know about your drives, but it was basically a copy and paste
from a scripting resource. Take note of the ExecQuery, as it is
'similar' to SQL (a _small_ subset, to say the least) so that you can
tailor the query to return just the properties you want, or include
a WHERE clause to return just those whose InterfaceType is IDE,
etc....

Paste the code below into a Form, add a button and remove
Option Explicit, if present. (Not advised, but for the demo....)
For further studies, locate tutorials on WMI scripting.

LFS



Private Sub Command1_Click( )

strComputer = "."
Set objWMIService = GetObject("winm gmts:" _
& "{impersonation Level=impersona te}!\\" & strComputer & "\root\cimv 2")

Set colDiskDrives = objWMIService.E xecQuery _
("SELECT * FROM Win32_DiskDrive ")

For Each objDiskDrive In colDiskDrives
Debug.Print vbCrLf

' Might these be what you want?
Debug.Print "Caption: " & objDiskDrive.Ca ption
Debug.Print "Interface Type: " & objDiskDrive.In terfaceType
Debug.Print "Device ID: " & objDiskDrive.De viceID

Debug.Print "Bytes Per Sector: " & _
objDiskDrive.By tesPerSector
For Each strCapability In objDiskDrive.Ca pabilities
Debug.Print "Capabiliti es: " & strCapability
Next
Debug.Print "Index: " & objDiskDrive.In dex
Debug.Print "Manufactur er: " & objDiskDrive.Ma nufacturer
Debug.Print "Media Loaded: " & objDiskDrive.Me diaLoaded
Debug.Print "Media Type: " & objDiskDrive.Me diaType
Debug.Print "Model: " & objDiskDrive.Mo del
Debug.Print "Name: " & objDiskDrive.Na me
Debug.Print "Partitions : " & objDiskDrive.Pa rtitions
Debug.Print "PNP DeviceID: " & objDiskDrive.PN PDeviceID
Debug.Print "SCSI Bus: " & objDiskDrive.SC SIBus
Debug.Print "SCSI Logical Unit: " & _
objDiskDrive.SC SILogicalUnit
Debug.Print "SCSI Port: " & objDiskDrive.SC SIPort
Debug.Print "SCSI TargetId: " & objDiskDrive.SC SITargetId
Debug.Print "Sectors Per Track: " & _
objDiskDrive.Se ctorsPerTrack
Debug.Print "Size: " & objDiskDrive.Si ze
Debug.Print "Status: " & objDiskDrive.St atus
Debug.Print "Total Cylinders: " & _
objDiskDrive.To talCylinders
Debug.Print "Total Heads: " & objDiskDrive.To talHeads
Debug.Print "Total Sectors: " & objDiskDrive.To talSectors
Debug.Print "Total Tracks: " & objDiskDrive.To talTracks
Debug.Print "Tracks Per Cylinder: " & _
objDiskDrive.Tr acksPerCylinder
Next

End Sub







-----= Posted via Newsfeeds.Com, Uncensored Usenet News =-----
http://www.newsfeeds.com - The #1 Newsgroup Service in the World!
-----== Over 100,000 Newsgroups - 19 Different Servers! =-----