你们不是喜欢源码么? 让你们看一下这个工具自动生成的代码!
'----------------------------------------------------
' CODE BY: EAGLE
' Email :
[email protected]'----------------------------------------------------
' WMI:Win32_DiskPartition
'----------------------------------------------------
On error resume next
Set WMI_Obj = GetObject("winmgmts:\\.\root\cimv2").ExecQuery("Select * from Win32_DiskPartition", , 48)
For each obj in WMI_Obj
Win32_DiskPartitioninfo= Win32_DiskPartitioninfo & vbcrlf & " Access = " & obj.Access
Win32_DiskPartitioninfo= Win32_DiskPartitioninfo & vbcrlf & " Availability = " & obj.Availability
Win32_DiskPartitioninfo= Win32_DiskPartitioninfo & vbcrlf & " BlockSize = " & obj.BlockSize
Win32_DiskPartitioninfo= Win32_DiskPartitioninfo & vbcrlf & " Bootable = " & obj.Bootable
Win32_DiskPartitioninfo= Win32_DiskPartitioninfo & vbcrlf & " BootPartition = " & obj.BootPartition
Win32_DiskPartitioninfo= Win32_DiskPartitioninfo & vbcrlf & " Caption = " & obj.Caption
Win32_DiskPartitioninfo= Win32_DiskPartitioninfo & vbcrlf & " ConfigManagerErrorCode = " & obj.ConfigManagerErrorCode
Win32_DiskPartitioninfo= Win32_DiskPartitioninfo & vbcrlf & " ConfigManagerUserConfig = " & obj.ConfigManagerUserConfig
Win32_DiskPartitioninfo= Win32_DiskPartitioninfo & vbcrlf & " CreationClassName = " & obj.CreationClassName
Win32_DiskPartitioninfo= Win32_DiskPartitioninfo & vbcrlf & " Description = " & obj.Description
Win32_DiskPartitioninfo= Win32_DiskPartitioninfo & vbcrlf & " DeviceID = " & obj.DeviceID
Win32_DiskPartitioninfo= Win32_DiskPartitioninfo & vbcrlf & " DiskIndex = " & obj.DiskIndex
Win32_DiskPartitioninfo= Win32_DiskPartitioninfo & vbcrlf & " ErrorCleared = " & obj.ErrorCleared
Win32_DiskPartitioninfo= Win32_DiskPartitioninfo & vbcrlf & " ErrorDescription = " & obj.ErrorDescription
Win32_DiskPartitioninfo= Win32_DiskPartitioninfo & vbcrlf & " ErrorMethodology = " & obj.ErrorMethodology
Win32_DiskPartitioninfo= Win32_DiskPartitioninfo & vbcrlf & " HiddenSectors = " & obj.HiddenSectors
Win32_DiskPartitioninfo= Win32_DiskPartitioninfo & vbcrlf & " Index = " & obj.Index