dialmak
BANNED | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$colItems = ""
$strComputer = "localhost"
$Output=""
$Output &= "Computer: " & $strComputer & @CRLF
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_LogicalDisk", "WQL", _
$wbemFlagReturnImmediately + $wbemFlagForwardOnly)
If IsObj($colItems) then
For $objItem In $colItems
$Output &= "Access: " & $objItem.Access & @CRLF
$Output &= "Availability: " & $objItem.Availability & @CRLF
$Output &= "BlockSize: " & $objItem.BlockSize & @CRLF
$Output &= "Caption: " & $objItem.Caption & @CRLF
$Output &= "Compressed: " & $objItem.Compressed & @CRLF
$Output &= "ConfigManagerErrorCode: " & $objItem.ConfigManagerErrorCode & @CRLF
$Output &= "ConfigManagerUserConfig: " & $objItem.ConfigManagerUserConfig & @CRLF
$Output &= "CreationClassName: " & $objItem.CreationClassName & @CRLF
$Output &= "Description: " & $objItem.Description & @CRLF
$Output &= "DeviceID: " & $objItem.DeviceID & @CRLF
$Output &= "DriveType: " & $objItem.DriveType & @CRLF
$Output &= "ErrorCleared: " & $objItem.ErrorCleared & @CRLF
$Output &= "ErrorDescription: " & $objItem.ErrorDescription & @CRLF
$Output &= "ErrorMethodology: " & $objItem.ErrorMethodology & @CRLF
$Output &= "FileSystem: " & $objItem.FileSystem & @CRLF
$Output &= "FreeSpace: " & $objItem.FreeSpace & @CRLF
$Output &= "InstallDate: " & WMIDateStringToDate($objItem.InstallDate) & @CRLF
$Output &= "LastErrorCode: " & $objItem.LastErrorCode & @CRLF
$Output &= "MaximumComponentLength: " & $objItem.MaximumComponentLength & @CRLF
$Output &= "MediaType: " & $objItem.MediaType & @CRLF
$Output &= "Name: " & $objItem.Name & @CRLF
$Output &= "NumberOfBlocks: " & $objItem.NumberOfBlocks & @CRLF
$Output &= "PNPDeviceID: " & $objItem.PNPDeviceID & @CRLF
$strPowerManagementCapabilities = $objItem.PowerManagementCapabilities(0)
$Output &= "PowerManagementCapabilities: " & $strPowerManagementCapabilities & @CRLF
$Output &= "PowerManagementSupported: " & $objItem.PowerManagementSupported & @CRLF
$Output &= "ProviderName: " & $objItem.ProviderName & @CRLF
$Output &= "Purpose: " & $objItem.Purpose & @CRLF
$Output &= "QuotasDisabled: " & $objItem.QuotasDisabled & @CRLF
$Output &= "QuotasIncomplete: " & $objItem.QuotasIncomplete & @CRLF
$Output &= "QuotasRebuilding: " & $objItem.QuotasRebuilding & @CRLF
$Output &= "Size: " & $objItem.Size & @CRLF
$Output &= "Status: " & $objItem.Status & @CRLF
$Output &= "StatusInfo: " & $objItem.StatusInfo & @CRLF
$Output &= "SupportsDiskQuotas: " & $objItem.SupportsDiskQuotas & @CRLF
$Output &= "SupportsFileBasedCompression: " & $objItem.SupportsFileBasedCompression & @CRLF
$Output &= "SystemCreationClassName: " & $objItem.SystemCreationClassName & @CRLF
$Output &= "SystemName: " & $objItem.SystemName & @CRLF
$Output &= "VolumeDirty: " & $objItem.VolumeDirty & @CRLF
$Output &= "VolumeName: " & $objItem.VolumeName & @CRLF
$Output &= "VolumeSerialNumber: " & $objItem.VolumeSerialNumber & @CRLF & @CRLF & @CRLF
Next
ConsoleWrite($Output)
FileWrite(@TempDir & "\Win32_LogicalDisk.TXT", $Output )
Run(@Comspec & " /c start " & @TempDir & "\Win32_LogicalDisk.TXT" )
Else
Msgbox(0,"WMI Output","No WMI Objects Found for class: " & "Win32_LogicalDisk" )
Endif
Func WMIDateStringToDate($dtmDate)
Return (StringMid($dtmDate, 5, 2) & "/" & _
StringMid($dtmDate, 7, 2) & "/" & StringLeft($dtmDate, 4) _
& " " & StringMid($dtmDate, 9, 2) & ":" & StringMid($dtmDate, 11, 2) & ":" & StringMid($dtmDate,13, 2))
EndFunc |
Всего записей: 14007 | Зарегистр. 27-04-2013 | Отправлено: 16:56 11-04-2013 | Исправлено: dialmak, 16:57 11-04-2013 |
|
