VbsEdit, the award-winning VBScript editor that dramatically reduces the time you spend writing .VBS scripts

Sample scripts

Storage
   Disk Drives and Volumes
       List Logical Disk Drive Properties , WMI

' List Logical Disk Drive Properties

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colDisks = objWMIService.ExecQuery _
    ("Select * from Win32_LogicalDisk")

For each objDisk in colDisks
    Wscript.Echo "Compressed: " & objDisk.Compressed
    Wscript.Echo "Description: " & objDisk.Description
    Wscript.Echo "DeviceID: " & objDisk.DeviceID
    Wscript.Echo "DriveType: " & objDisk.DriveType
    Wscript.Echo "FileSystem: " & objDisk.FileSystem
    Wscript.Echo "FreeSpace: " & objDisk.FreeSpace
    Wscript.Echo "MediaType: " & objDisk.MediaType
    Wscript.Echo "Name: " & objDisk.Name
    Wscript.Echo "QuotasDisabled: " & objDisk.QuotasDisabled
    Wscript.Echo "QuotasIncomplete: " & objDisk.QuotasIncomplete
    Wscript.Echo "QuotasRebuilding: " & objDisk.QuotasRebuilding
    Wscript.Echo "Size: " & objDisk.Size
    Wscript.Echo "SupportsDiskQuotas: " & _
        objDisk.SupportsDiskQuotas
    Wscript.Echo "SupportsFileBasedCompression: " & _
        objDisk.SupportsFileBasedCompression
    Wscript.Echo "SystemName: " & objDisk.SystemName
    Wscript.Echo "VolumeDirty: " & objDisk.VolumeDirty
    Wscript.Echo "VolumeName: " & objDisk.VolumeName
    Wscript.Echo "VolumeSerialNumber: " & _
        objDisk.VolumeSerialNumber
Next

VbsEdit includes all these samples!

Download version 3.4.1
Released Tuesday, January 06, 2009 - The evaluation version never expires

Home Buy Now HtaEdit Support Video What's new ? Awards