$strComputer = “.”
$Excel = Novo-Objeto - COM Excel.Application
$Excel.visible = $True
$Excel = $Excel.Workbooks.Add ()
$Sheet = $Excel.WorkSheets.Item (1)
$Sheet.Cells.Item (1.1) = “computador”
$Sheet.Cells.Item (1.2) = de “letra movimentação”
$Sheet.Cells.Item (1.3) = “descrição”
$Sheet.Cells.Item (1.4) = “FileSystem”
$Sheet.Cells.Item (1.5) = “tamanho no GB”
$Sheet.Cells.Item (1.6) = “espaço livre no GB”
$WorkBook = $Sheet.UsedRange
$WorkBook.Interior.ColorIndex = 8
$WorkBook.Font.ColorIndex = 11
$WorkBook.Font.Bold = $True
$intRow = 2
$colItems = Começ-wmiObject - classificar “Win32_LogicalDisk” - o `do namespace “raiz \ CIMV2”
- computername $strComputer
foreach ($objItem em $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) = “produto”
$Sheet.Cells.Item ($introw, 2) = “vendedor”
$Sheet.Cells.Item ($introw, 3) = “versão”
$Sheet.Cells.Item ($introw, 4) = “instalam a data”
$introw = $introw + 1
$Keys = Começ-ChildItem HKLM: \ Software \ Microsoft \ Windows \ CurrentVersion \ desinstalam
$Items = $keys | foreach-objeto {Começ-ItemProperty $_.PsPath} | onde-objeto {($_.DisplayName - atualização do notmatch “|Ne $null de Hotfix”) - e ($_.DisplayName -)}
foreach ($item em $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 ()
Espaço livre
|