Retrieve Drive Information (VBScript)

  • Print
Details
Category: Scripts and Code
Published on Tuesday, 08 November 2011 08:50
Written by Christian Dunn
AddThis Social Bookmark Button

This script uses WMI to retrieve information about the current disk drive.

Option Explicit
Dim objWMIService, objItem, colItems, strComputer, intDrive

' Variables
strComputer = "."
intDrive = 0

' WMI connection
Set objWMIService = GetObject("winmgmts:\\" _
& strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery(_
"Select * from Win32_DiskDrive")

' Retrieve Parameters
For Each objItem in colItems
intDrive = intDrive + 1
Wscript.Echo "DiskDrive " & intDrive & vbCr & _
"Caption: " & objItem.Caption & VbCr & _
"Description: " & objItem.Description & VbCr & _
"Manufacturer: " & objItem.Manufacturer & VbCr & _
"Model: " & objItem.Model & VbCr & _
"Name: " & objItem.Name & VbCr & _
"Partitions: " & objItem.Partitions & VbCr & _
"Size: " & objItem.Size & VbCr & _
"Status: " & objItem.Status & VbCr & _
"SystemName: " & objItem.SystemName & VbCr & _
"TotalCylinders: " & objItem.TotalCylinders & VbCr & _
"TotalHeads: " & objItem.TotalHeads & VbCr & _
"TotalSectors: " & objItem.TotalSectors & VbCr & _
"TotalTracks: " & objItem.TotalTracks & VbCr & _
"TracksPerCylinder: " & objItem.TracksPerCylinder
Next
WSCript.Quit


Details