One lying around, ready to remove the parameters from the computers in the network?

Interested in version of Windows and settings of iron in the table.
June 10th 19 at 15:09
7 answers
June 10th 19 at 15:11
For Example 10-Strike Computer Inventory
well Yes you all are so drawn to pay ) - norbert.Lang commented on June 10th 19 at 15:14
, the money this thing is. I'm always for OSS. Is quite modest and the capabilities of the car. - Esta_Upton commented on June 10th 19 at 15:17
must pay organization and admin. For organizations, it's pennies. Why not provide the normal admin tools. Cleaner give money to the MOP, and do not force the broom into the street to vomit :) And Yes admins.. let's save... - Macie_Zboncak commented on June 10th 19 at 15:20
June 10th 19 at 15:13
openAudit
Will remove the name Board and other iron? - norbert.Lang commented on June 10th 19 at 15:16
June 10th 19 at 15:15
On The Poshe. Excel.

#########################################################################################
##
## Script to collect data on 1 PC. Executed as a function (or directed to the pipeline), if necessary for list PC.
##
#########################################################################################

$StrComputer = $env:COMPUTERNAME # --- change in required PC, are now taking local.

$Excel = New-Object -Com Excel.Application
$Excel.visible = $True
$Excel = $Excel.Workbooks.Add()
$Sheet1 = $Excel.Worksheets.Item(1)
$Sheet1.Name = "Inventory"
$Sheet1.Cells.Item(1,1) = "Name"
$Sheet1.Cells.Item(1,2) = "Model"
$Sheet1.Cells.Item(1,4) = "Type"
$Sheet1.Cells.Item(1,5) = "CPU"
$Sheet1.Cells.Item(1,8) = "RAM GB"
$Sheet1.Cells.Item(1,6) = "Op.system"
$Sheet1.Cells.Item(1,7) = "SP OS"
$Sheet1.Cells.Item(1,3) = "Serial No"
$Sheet1.Cells.Item(1,9) = "the Disk(real.),GB"
$Sheet1.Cells.Item(1,10) = "Drive(prod.),GB"

$colSheets = ($Sheet1) 
foreach ($colorItem in $colSheets){
$WorkBook = $colorItem.UsedRange
$WorkBook.Interior.ColorIndex = 20
$WorkBook.Font.ColorIndex = 11
$WorkBook.Font.Bold = $True
}
#====================================================================================================
$intRow = 2
if ((Test-connection $StrComputer -count 2 -quiet) -eq "True")
 { 
 $GenItems1 = gwmi Win32_ComputerSystem -Comp $StrComputer
 $GenItems2 = gwmi Win32_OperatingSystem -Comp $StrComputer
 $CPUItems = gwmi Win32_Processor -Comp $StrComputer
 $SysItems1 = gwmi Win32_BIOS -Comp $StrComputer
 $ProcItems1 = gwmi Win32_Processor -Comp $StrComputer
 $DiskItems = gwmi Win32_LogicalDisk -Comp $StrComputer
 $PhisDisk = gwmi Win32_DiskDrive -Comp $StrComputer
 foreach ($objItem in $GenItems1)
 { $Sheet1.Cells.Item($intRow, 1) = $StrComputer
 $Sheet1.Cells.Item($intRow, 2) = $objItem.Model
 $Sheet1.Cells.Item($intRow, 4) = ($objItem.SystemType -replace "-based PC","")
 $Sheet1.Cells.Item($intRow, 8) = [math]::Round(($objItem.For totalphysicalmemory / 1024 / 1024 / 1024),2)
}
 $Sheet1.Cells.Item($intRow, 5) = $CPUItems.Name
 foreach ($objItem in $GenItems2)
 { $aa = ($objItem.Caption-replace "Microsoft Windows","MS Win")
 $aa = ($aa -replace "Professional","Prof.")
 $aa = ($aa -replace "Professional","Prof.") 
 $aa = ($aa -replace "Corporate","Corp.")
 $aa = ($aa -replace "Microsoft Windows","MS Win")
 $aa = ($aa -replace "(Registered Trademark)","")
 $Sheet1.Cells.Item($intRow, 6) = $aa
 $Sheet1.Cells.Item($intRow, 7) = ($objItem.csdversion -replace "Service Pack","SP")
}
 foreach ($objItem in $SysItems1)
 { 
 if( $objItem.SerialNumber -eq "System Serial Number") {$Sheet1.Cells.Item($intRow, 3) = "self-Assembly"} else {$Sheet1.Cells.Item($intRow, 3) = $objItem.SerialNumber}
 if( $objItem.SerialNumber -match "Parallels*" -or $objItem.SerialNumber -match "VMware*") {$Sheet1.Cells.Item($intRow, 3) = "VM"}
}
 foreach ($objItem in $PhisDisk)
{
 if( $objItem.Model-notmatch 'usb' ) 
 { 
 $Sheet1.Cells.Item($intRow, 9) = [math]::Round(($objItem.Size/1024/1024/1024),2)
 $Sheet1.Cells.Item($intRow, 10) = [math]::Round(($objItem.Size/1000/1000/1000),0)
}
}
 $intRow += 1
}
 else {" IP = "+$StrComputer + "--- not available."}

#====================================================================================================
foreach ($colorItem in $colSheets)
{
$WorkBook = $colorItem.UsedRange 
$WorkBook.EntireColumn.AutoFit()
}


Good luck!
potestis ATP - norbert.Lang commented on June 10th 19 at 15:18
June 10th 19 at 15:17
Total Network Inventory
for a fee). - norbert.Lang commented on June 10th 19 at 15:20
June 10th 19 at 15:19
GLPI, OCS, OpenAudit, Fusion Inventory ... and lots of little scanners networking, some of which are able and necessary functions, in addition to network scanning.
at least I'm surprised. not a single person was not unsold script for such a simple task) - norbert.Lang commented on June 10th 19 at 15:22
because it's not even in most benchmarks generalist already stuck, everyone can choose the horse seat, you are all some pink edinoroga looking for. - Esta_Upton commented on June 10th 19 at 15:25
alas alas). it's like a gun on flies to shoot. first is third-party software to update. second often puts a pretty thick client on the machine. while the console program systeminfo can already give part of the information ... at least silly! and all this is not even free and paid according to the number of jobs! while powershell is in the system free! =) well, I see no point for 5 parameters .... enter to the directory often and Narada. FOR paid software! - Macie_Zboncak commented on June 10th 19 at 15:28
the , uh -- and where I'm offered a paid software? - norbert.Lang commented on June 10th 19 at 15:31
June 10th 19 at 15:21
If AD, then the Microsoft Assessment and Planning (MAP) Toolkit. Then you can build almost any report and upload it in a convenient format.
June 10th 19 at 15:23
10-Strike.
Thing.

Find more questions by tags System administrationWindows