$strComputer = “.„
$Excel = Nuovo-Oggetto - COM Excel.Application
$Excel.visible = $True
$Excel = $Excel.Workbooks.Add ()
$Sheet = $Excel.WorkSheets.Item (1)
$Sheet.Cells.Item (1.1) = “calcolatore„
$Sheet.Cells.Item (1.2) = “lettera di azionamento„
$Sheet.Cells.Item (1.3) = “descrizione„
$Sheet.Cells.Item (1.4) = “FileSystem„
$Sheet.Cells.Item (1.5) = “formato in GB„
$Sheet.Cells.Item (1.6) = “spazio libero in GB„
$WorkBook = $Sheet.UsedRange
$WorkBook.Interior.ColorIndex = 8
$WorkBook.Font.ColorIndex = 11
$WorkBook.Font.Bold = $True
$intRow = 2
$colItems = Ottengono-wmiObject - classificare “Win32_LogicalDisk„ - il `del namespace “radice \ 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) = “prodotto„
$Sheet.Cells.Item ($introw, 2) = “fornitore„
$Sheet.Cells.Item ($introw, 3) = “versione„
$Sheet.Cells.Item ($introw, 4) = “installano la data„
$introw = $introw + 1
$Keys = Ottengono-ChildItem HKLM: \ Software \ Microsoft \ Windows \ CurrentVersion \ disinstallano
$Items = $keys | foreach-oggetto {Ottenere-ItemProperty $_.PsPath} | dove-oggetto {($_.DisplayName - aggiornamento del notmatch “|Ne $null di Hotfix„) - e ($_.DisplayName -)}
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 ()
Radura
|