strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colDiskPartitions = objWMIService.ExecQuery _ ("Select * from Win32_DiskPartition where ") For each objPartition in colDiskPartitions Wscript.Echo "Block Size: " & vbTab & objPartition.BlockSize Wscript.Echo "Bootable: " & vbTab & objPartition.Bootable Wscript.Echo "Boot Partition: " & vbTab & objPartition.BootPartition Wscript.Echo "Description: " & vbTab & objPartition.Description Wscript.Echo "Device ID: " & vbTab & objPartition.DeviceID Wscript.Echo "Disk Index: " & vbTab & objPartition.DiskIndex Wscript.Echo "Index: " & vbTab & objPartition.Index Wscript.Echo "Name: " & vbTab & objPartition.Name Wscript.Echo "Number Of Blocks: " & vbTab & _ objPartition.NumberOfBlocks Wscript.Echo "Primary Partition: " & vbTab & _ objPartition.PrimaryPartition Wscript.Echo "Size: " & vbTab & objPartition.Size Wscript.Echo "Starting Offset: " & vbTab & _ objPartition.StartingOffset Wscript.Echo "Type: " & vbTab & objPartition.Type Next
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)