$strComputer = «.»
$Excel = Нов-Предмет - Com Excel.Application
$Excel.visible = $True
$Excel = $Excel.Workbooks.Add ()
$Sheet = $Excel.WorkSheets.Item (1)
$Sheet.Cells.Item (1.1) = «компьютер»
$Sheet.Cells.Item (1.2) = «письмо привода»
$Sheet.Cells.Item (1.3) = «описание»
$Sheet.Cells.Item (1.4) = «система файлов»
$Sheet.Cells.Item (1.5) = «размер в GB»
$Sheet.Cells.Item (1.6) = «открытый космос в GB»
$WorkBook = $Sheet.UsedRange
$WorkBook.Interior.ColorIndex = 8
$WorkBook.Font.ColorIndex = 11
$WorkBook.Font.Bold = $True
$intRow = 2
$colItems = Получают-wmiObject - классифицируйте «Win32_LogicalDisk» - `namespace «корень \ CIMV2»
- computername $strComputer
foreach ($objItem в $colItems) {
$Sheet.Cells.Item ($intRow, 1) = $objItem.SystemName
$Sheet.Cells.Item ($intRow, 2) = $objItem.DeviceID
$Sheet.Cells.Item ($intRow, 3) = $objItem.Description
$Sheet.Cells.Item ($intRow, 4) = $objItem.FileSystem
$Sheet.Cells.Item ($intRow, 5) = $objItem.Size/1GB
$Sheet.Cells.Item ($intRow, 6) = $objItem.FreeSpace/1GB
$intRow = $intRow + 1
$WorkBook.EntireColumn.AutoFit ()
}
$intRow = $intRow + 1
$Sheet = $Excel.WorkSheets.Item (1)
$Sheet.Cells.Item ($introw, 1) = «продукт»
$Sheet.Cells.Item ($introw, 2) = «поставщик»
$Sheet.Cells.Item ($introw, 3) = «вариант»
$Sheet.Cells.Item ($introw, 4) = «устанавливают дату»
$introw = $introw + 1
$Keys = Получают-ChildItem HKLM: \ Средство программирования \ Майкрософт \ Windows \ CurrentVersion \ деинсталлируют
$Items = $keys | foreach-предмет {Получите-ItemProperty $_.PsPath} | где-предмет {($_.DisplayName - уточнение notmatch «|Ne $null Hotfix») - и ($_.DisplayName -)}
foreach ($item в $items) {
$Sheet.Cells.Item ($intRow, 1) = $Item.DisplayName
$Sheet.Cells.Item ($intRow, 2) = $Item.Publisher
$Sheet.Cells.Item ($intRow, 3) = $Item.DisplayVersion
$Sheet.Cells.Item ($intRow, 4) = $Item.InstallDate
$intRow = $intRow + 1
}
$WorkBook.EntireColumn.AutoFit ()
Ясность
|