I stripped out all of the HTML for you and put in some tabs to make things line up a little. This is actually part of an HTA that gives disk info in HTML. Here's a very rough vbscript that I hacked together a while back. WScript.Echo "VolumeSerialNumber: " & objItem.VolumeSerialNumber WScript.Echo "VolumeName: " & objItem.VolumeName WScript.Echo "VolumeDirty: " & objItem.VolumeDirty WScript.Echo "SystemName: " & objItem.SystemName WScript.Echo "SystemCreationClassName: " & objItem.SystemCreationClassName WScript.Echo "SupportsFileBasedCompression: " & objItem.SupportsFileBasedCompression WScript.Echo "SupportsDiskQuotas: " & objItem.SupportsDiskQuotas WScript.Echo "StatusInfo: " & objItem.StatusInfo WScript.Echo "QuotasRebuilding: " & objItem.QuotasRebuilding WScript.Echo "QuotasIncomplete: " & objItem.QuotasIncomplete WScript.Echo "QuotasDisabled: " & objItem.QuotasDisabled WScript.Echo "Purpose: " & objItem.Purpose WScript.Echo "ProviderName: " & objItem.ProviderName WScript.Echo "PowerManagementSupported: " & objItem.PowerManagementSupported WScript.Echo "PowerManagementCapabilities: " & propValue WScript.Echo "PNPDeviceID: " & objItem.PNPDeviceIDįor each propValue in objItem.PowerManagementCapabilities WScript.Echo "NumberOfBlocks: " & objItem.NumberOfBlocks WScript.Echo "MediaType: " & objItem.MediaType WScript.Echo "MaximumComponentLength: " & objItem.MaximumComponentLength WScript.Echo "LastErrorCode: " & objItem.LastErrorCode WScript.Echo "InstallDate: " & objItem.InstallDate WScript.Echo "FreeSpace: " & objItem.FreeSpace WScript.Echo "FileSystem: " & objItem.FileSystem WScript.Echo "ErrorMethodology: " & objItem.ErrorMethodology WScript.Echo "ErrorDescription: " & objItem.ErrorDescription WScript.Echo "ErrorCleared: " & objItem.ErrorCleared WScript.Echo "DriveType: " & objItem.DriveType WScript.Echo "DeviceID: " & objItem.DeviceID WScript.Echo "Description: " & objItem.Description
WScript.Echo "CreationClassName: " & objItem.CreationClassName WScript.Echo "ConfigManagerUserConfig: " & objItem.ConfigManagerUserConfig WScript.Echo "ConfigManagerErrorCode: " & objItem.ConfigManagerErrorCode WScript.Echo "Compressed: " & objItem.Compressed WScript.Echo "Caption: " & objItem.Caption WScript.Echo "BlockSize: " & objItem.BlockSize WScript.Echo "Availability: " & objItem.Availability
Set colItems = objWMIService.ExecQuery("Select * from Win32_LogicalDisk",48) Set objWMIService = SWBemlocator.ConnectServer(strComputer,"root\CIMV2",UserName,Password) Set SWBemlocator = CreateObject("WbemScripting.SWbemLocator") Every bit of information you could want regarding your logical disks: On Error Resume Next
0 kommentar(er)
