|
General |
| 6.174 WMI - HardDiskInfo (Informazioni sull'HD) |
| Alessandro Baraldi |
|
La funzione che segue mostra come estrarre le caratteristiche dell'HardDisk attraverso la Classe Win32_DiskDrive di WMI. Maggiori informazioni sull'argomento possono essere lette al link: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/win32_diskdrive.asp Public Function retHardDiskInfo()
On Error Resume Next
Dim strComputer As String
Dim objWMIService As Object
Dim objItem As Object
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
For Each objItem In objWMIService.ExecQuery("Select * from Win32_DiskDrive", , 48)
objItem.size = objItem.size / 1000000000
Debug.Print "Hostname:" & vbTab & objItem.SystemName & vbCr & _
"Disk Type: " & vbTab & objItem.InterfaceType & vbCr & _
"Model: " & vbTab & vbTab & objItem.manufacturer & vbCr & _
"Media Type: " & vbTab & objItem.MediaType & vbCr & _
"Disk Number :" & vbTab & objItem.deviceID & vbCr & _
"Disk Size: " & vbTab & objItem.size & " MB" & vbCr & _
"Status: " & vbTab & objItem.Status & vbCr & _
"Partitions: " & vbTab & objItem.Partitions & vbCr & _
"BytesPerSector: " & vbTab & objItem.BytesPerSector & vbCr & _
"TotalCylinders: " & vbTab & objItem.TotalCylinders & vbCr & _
"TotalHeads: " & vbTab & objItem.TotalHeads & vbCr & _
"TotalSectors: " & vbTab & objItem.TotalSectors & vbCr & _
"TotalTracks: " & vbTab & objItem.TotalTracks & vbCr & _
"TracksPerCylinder: " & vbTab & objItem.TracksPerCylinder
Next
Set objItem = Nothing
Set objWMIService = Nothing
End Function
|