How can I count the installed harddisks?

[skyteddy]

Hello,

how can I count the installed harddisks (not partitions) in my system? DriveGetDrive doesn't help.

And is it possible to get the manufacturer and the serialnumber of the harddisks?

Mank thanks in advance!

skyteddy

[Zedna]

Look at Computer info UDF

[skyteddy]

Look at Computer info UDF

thank you, but it don't really helps. _ComputerGetDrives uses DriveGetDrive(). So, I get the partitions and not the harddisks.

greetings

skyteddy

[PsaltyDS]

thank you, but it don't really helps. _ComputerGetDrives uses DriveGetDrive(). So, I get the partitions and not the harddisks.

greetings

skyteddy

Calls to DiskPart.exe from a command line will get you closer, but still can't see past logical disks on a RAID controller to the 'real' HDDs. Not an issue for most desktops. This might suffice for you.

[ScriptUSER]

Calls to DiskPart.exe from a command line will get you closer, but still can't see past logical disks on a RAID controller to the 'real' HDDs. Not an issue for most desktops. This might suffice for you.

DriveGetDrive(). gives the partions and yu may have many partions in one disk .

but the following script reads the caption of each disk on your computer . and you may identify the number of disks.

then you have to eliminate the removable disks.

strComputer = "." 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") 
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_DiskDrive") 
For Each objItem in colItems 
    
    Wscript.Echo "Caption: " & objItem.Caption
Next

[skyteddy]

DriveGetDrive(). gives the partions and yu may have many partions in one disk .

but the following script reads the caption of each disk on your computer . and you may identify the number of disks.

then you have to eliminate the removable disks.

strComputer = "." 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") 
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_DiskDrive") 
For Each objItem in colItems 
    
    Wscript.Echo "Caption: " & objItem.Caption
Next

What I have to include first? I get a lot off error if I run this code.

Skyteddy

[GaryFrost]

$strComputer = "." 
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2") 
$colItems = $objWMIService.ExecQuery( "SELECT * FROM Win32_DiskDrive") 
For $objItem in $colItems 
    MsgBox(0,"Drive", "Caption: " & $objItem.Caption)
Next

[ScriptUSER]

$strComputer = "." 
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2") 
$colItems = $objWMIService.ExecQuery( "SELECT * FROM Win32_DiskDrive") 
For $objItem in $colItems 
    MsgBox(0,"Drive", "Caption: " & $objItem.Caption)
Next

Skyteddy!

gafrost s translation to autoit eliminates the errors.

I thougt you would translate it , which was easy !

[skyteddy]

$strComputer = "." 
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2") 
$colItems = $objWMIService.ExecQuery( "SELECT * FROM Win32_DiskDrive") 
For $objItem in $colItems 
    MsgBox(0,"Drive", "Caption: " & $objItem.Caption)
Next

Thank you very much to all! Now it works and all my harddisks are found! :-)

many greetings from germany!

skyteddy

[ScriptUSER]

Thank you very much to all! Now it works and all my harddisks are found! :-)

many greetings from germany!

skyteddy

a bit modification , to identify interface and size

$strComputer = "." 
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2") 
$colItems = $objWMIService.ExecQuery( "SELECT * FROM Win32_DiskDrive") 
For $objItem in $colItems 
    MsgBox(0,"Drive", "Caption: " & $objItem.Caption)
   MsgBox(0,"Drive", "Interface: " & $objItem.InterfaceType)
    MsgBox(0,"Drive", "Size: " & $objItem.Size)
    Next

[GaryFrost]

a good tool for wmi in autoit http://www.autoitscript.com/forum/index.ph...amp;showfile=29

[ScriptUSER]

a good tool for wmi in autoit http://www.autoitscript.com/forum/index.ph...amp;showfile=29

this is better .... skyteddy

$strComputer = "." 
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2") 
$colItems = $objWMIService.ExecQuery( "SELECT * FROM Win32_LogicalDisk") 
For $objItem in $colItems 
    MsgBox(0,"Drive", "Caption: " & $objItem.Caption)
    MsgBox(0,"Drive", "Interface: " & $objItem.DriveType)
    MsgBox(0,"Drive", "Size: " & $objItem.Size)
    Next

[GaryFrost]

this is better .... skyteddy

$strComputer = "." 
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2") 
$colItems = $objWMIService.ExecQuery( "SELECT * FROM Win32_LogicalDisk") 
For $objItem in $colItems 
    MsgBox(0,"Drive", "Caption: " & $objItem.Caption)
    MsgBox(0,"Drive", "Interface: " & $objItem.DriveType)
    MsgBox(0,"Drive", "Size: " & $objItem.Size)
    Next

better than what?

The tool is to help them get the info they want about just about any wmi query, lets them know what info they can collect.

Was just pointing it out to the user for future reference, something they might learn from.

[ScriptUSER]

better than what?

The tool is to help them get the info they want about just about any wmi query, lets them know what info they can collect.

Was just pointing it out to the user for future reference, something they might learn from.

gafrost ! What i mean is better than the previous scripts as it returns the drive letters

and so on ....

I never know the link which you posted Exists in autoit ! Thanks for your post .

[skyteddy]

Thanks to all. My aim was only to create shortcuts on the desktop with argumtens hda, hdb, ... for the smartmontools. The tiny script works now. :-)

And thank you for all the additional information. there are very interesting.

greetings

skyteddy

Ps: does anyone know how I can aktivate and deaktivate toolbars? I find a way to open the menu and with send("t") I can aktivate oder deaktivate the toolbar begin with "T"rue Launch Bar, but I can't check before if is aktivated or not. The second problem is, that "t" is used for e.g. "T-DSL Manager" or "True Launch Bar". How can I handle it?