class= " lineNumbers " del
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
|
class= del
class= " del id= " codeSnippet958131 del #$erroractionpreference = “SilentlyContinue”
# crear un nuevo objeto de Excel para almacenar datos
$a = Nuevo-Objeto - comobject Excel.Application
$b = $a.Workbooks.Add ()
$c = $b.Worksheets.Item (1)
# crear la fila del título
$c.Cells.Item (1.1) = “nombre de la máquina”
$c.Cells.Item (1.2) = “localización”
$c.Cells.Item (1.3) = “IP address”
$c.Cells.Item (1.4) = “Dell mantienen la etiqueta”
$c.Cells.Item (1.5) = “modelo de ordenador”
$c.Cells.Item (1.6) = “OS/SP”
$c.Cells.Item (1.7) = “tipo de la CPU”
$c.Cells.Item (1.8) = “velocidad de la CPU”
$c.Cells.Item (1.9) = “RAM”
$c.Cells.Item (1.10) = “HD liberan”
$d = $c.UsedRange
$d.Interior.ColorIndex = 23
$d.Font.ColorIndex = 2
$d.Font.Bold = $True
$intRow = 2
# leer la lista de nombres de computadora o de IP address en arsenal
$colComputers = conseguir-contenido “list.txt”
# proceso todo de below una vez para cada hostname o IP address
foreach ($strComputer en $colComputers)
{
"" del escribir-anfitrión
escribir-anfitrión “que intenta silbar como una bala” $strComputer
# ahora silbar como una bala el sistema
$ping = consiguen-wmiobject - la pregunta “selecciona * de win32_pingstatus adonde strcomputer'" de Address='$
# resultados de la exhibición
si ($ping.statuscode - eq 0) {
“Tiempo de reacción: {0} ms” - f $ping.responsetime
}
{
“ninguna respuesta”
}
$obj32NIC = Consiguen-WmiObject - la clase Win32_NetworkAdapterConfiguration - namespace “raíz \ CIMV2” - el nombre de computadora $strComputer - filtran “IPEnabled = “verdad””
=Get-WmiObject de $col32OS - clase Win32_OperatingSystem - nombre de computadora $Strcomputer
$col32System = consiguen-wmiobject - clasificar “Win32_ComputerSystem” - el nombre de computadora “raíz \ CIMV2” del namespace - $strcomputer
$col32Bios = Consiguen-WmiObject - la clase Win32_BIOS - el nombre de computadora “raíz \ CIMV2” del namespace - $strComputer
$col32Proc = consiguen-wmiobject - clasificar “Win32_Processor” - el nombre de computadora “raíz \ CIMV2” del namespace - $strComputer
escribir-anfitrión el “que recolecta Info para” $strComputer
foreach ($objNACItem en $obj32NIC)
{
$c.Cells.Item ($intRow, 1) = $objNACItem.DNSHostname
$c.Cells.Item ($intRow, 3) = $objNACItem.IPAddress
}
foreach ($objBiosItem en $col32Bios)
{
$c.Cells.Item ($intRow, 4) = $objBiosItem.SerialNumber
}
foreach ($objSYSitem en $col32System)
{
$c.Cells.Item ($intRow, 5) = $objSYSitem.Manufacturer + $objSysItem.model
$c.Cells.Item ($intRow, 9) = “GB: ” + $objSYSitem.TotalPhysicalMemory/1000000000
}
foreach ($objOSitem en $col32OS)
{
si ($col32System.domainrole = 1 - o 0)
{
interruptor ($objOSitem.Version)
{
“5.0.2195” {$c.Cells.Item ($intRow, 6) = “2000” + $objOSitem.ServicePackMajorVersion}
“5.1.2600” {si ($objOSitem.ServicePackMajorVersion - GT 0)
{$c.Cells.Item ($intRow, 6) = “SP del triunfo XP” + $objOSitem.ServicePackMajorVersion}
{$c.Cells.Item ($intRow, 6) = “triunfo XP”}
}
“6.1.7600” {si ($objOSitem.ServicePackMajorVersion - GT 0)
{$c.Cells.Item ($intRow, 6) = “SP de Vista del triunfo” + $objOSitem.ServicePackMajorVersion}
{$c.Cells.Item ($intRow, 6) = “triunfo Vista”}
}
“6.1.7600” {si ($objOSitem.ServicePackMajorVersion - GT 0)
{$c.Cells.Item ($intRow, 6) = “SP del triunfo 7” + $objOSitem.ServicePackMajorVersion}
{$c.Cells.Item ($intRow, 6) = “triunfo 7”}
}
}
}
#$c.Cells.Item ($intRow, 6) = $objOSitem.Version
#$c.Cells.Item ($intRow, 26) = $objOSitem.ServicePackMajorVersion
}
foreach ($objProcItem en $col32Proc)
{
$c.Cells.Item ($intRow, 7) = $objProcItem.Name + “X” + $objSysitem.NumberOfProcessors
$c.Cells.Item ($intRow, 8) = $objProcItem.CurrentClockSpeed
}
$intRow = $intRow + 1
}
$d = $c.UsedRange
$d.EntireColumn.AutoFit ()
$a.visible = $True
|
