$strComputer = „.“
$Excel = Neu-Gegenstand - 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) = „Antriebs-Buchstabe“
$Sheet.Cells.Item (1.3) = „Beschreibung“
$Sheet.Cells.Item (1.4) = „Dateisystem“
$Sheet.Cells.Item (1.5) = „Größe in GB“
$Sheet.Cells.Item (1.6) = „freier Raum in GB“
$WorkBook = $Sheet.UsedRange
$WorkBook.Interior.ColorIndex = 8
$WorkBook.Font.ColorIndex = 11
$WorkBook.Font.Bold = $True
$intRow = 2
$colItems = Erhalten-wmiObject - „Win32_LogicalDisk“ klassifizieren - namespace „Wurzel \ CIMV2“ `
- Computerbezeichnung $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) = „Produkt“
$Sheet.Cells.Item ($introw, 2) = „Verkäufer“
$Sheet.Cells.Item ($introw, 3) = „Version“
$Sheet.Cells.Item ($introw, 4) = „anbringen Datum“ n
$introw = $introw + 1
$Keys = Erhalten-ChildItem HKLM: \ Deinstallieren Software \ Microsoft \ Windows \ CurrentVersion \
$Items = $keys | Foreachgegenstand {$_.PsPath Erhalten-ItemProperty} | Wogegenstand {($_.DisplayName - notmatch „Update|Hotfix“) - und ($_.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 ()
Freier Raum
|