$strComputer = „.“
$Excel = nieuw-Voorwerp - Com Excel.Application
$Excel.visible = $True
$Excel = $Excel.Workbooks.Add ()
$Sheet = $Excel.WorkSheets.Item (1)
$Sheet.Cells.Item (1.1) = „Computer“
$Sheet.Cells.Item (1.2) = de „Brief van de Aandrijving“
$Sheet.Cells.Item (1.3) = „Beschrijving“
$Sheet.Cells.Item (1.4) = „FileSystem“
$Sheet.Cells.Item (1.5) = „Grootte in GB“
$Sheet.Cells.Item (1.6) = „Vrije Ruimte in GB“
$WorkBook = $Sheet.UsedRange
$WorkBook.Interior.ColorIndex = 8
$WorkBook.Font.ColorIndex = 11
$WorkBook.Font.Bold = $True
$intRow = 2
$colItems = krijg -krijgen-wmiObject - klasse „Win32_LogicalDisk“ - namespace „wortel \ CIMV2“ `
- computername $strComputer
foreach ($objItem in $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) = „Product“
$Sheet.Cells.Item ($introw, 2) = „Verkoper“
$Sheet.Cells.Item ($introw, 3) = „Versie“
$Sheet.Cells.Item ($introw, 4) = „installeer Datum“
$introw = $introw + 1
$Keys = krijgen-ChildItem HKLM: \ De Desinstallatie van de Vensters \ CurrentVersion \ van de software \ Microsoft \
$Items = $keys | foreach-voorwerp {krijgen-ItemProperty $_.PsPath} | waar-voorwerp {($_.DisplayName - notmatch „Update|Van Hotfix“) - en ($_.DisplayName - Ne $null)}
foreach ($item in $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 ()
Ontruim
|