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:
|
" codeBody "
" notpretty " #$erroractionpreference = „SilentlyContinue“
# Cre�ër een Nieuw Voorwerp van Excel voor het opslaan van Gegevens
$a = nieuw-Voorwerp - comobject Excel.Application
$b = $a.Workbooks.Add ()
$c = $b.Worksheets.Item (1)
# Cre�ër de titelrij
$c.Cells.Item (1.1) = de „Naam van de Machine“
$c.Cells.Item (1.2) = „Plaats“
$c.Cells.Item (1.3) = „IP Adres“
$c.Cells.Item (1.4) = „de Markering van de Dienst van Dell“
$c.Cells.Item (1.5) = het „Model van de Computer“
$c.Cells.Item (1.6) = „OS/SP“
$c.Cells.Item (1.7) = het „Type van cpu“
$c.Cells.Item (1.8) = de „Snelheid van cpu“
$c.Cells.Item (1.9) = „RAM“
$c.Cells.Item (1.10) = „Vrije HD“
$d = $c.UsedRange
$d.Interior.ColorIndex = 23
$d.Font.ColorIndex = 2
$d.Font.Bold = $True
$intRow = 2
# gelezen lijst van computernamen of IP adressen in serie
$colComputers = krijgen-inhoud „list.txt“
# proces elk van onderstaand eens voor elke hostname of IP adres
foreach ($strComputer in $colComputers)
{
schrijven-gastheer ""
schrijven-gastheer die „“ $strComputer proberen te pingelen
# Pingel nu het systeem
$ping = krijg -krijgen-wmiobject - Vraag „uitgezocht * van win32_pingstatus waar Address='$ strcomputer'"
# De Resultaten van de vertoning
als ($ping.statuscode - eq 0) {
De „tijd van de reactie: {0} Mej.“ - F $ping.responsetime
}
anders {
„geen reactie“
}
$obj32NIC = krijgen-WmiObject - Klasse Win32_NetworkAdapterConfiguration - namespace „wortel\ CIMV2“ - computername $strComputer - Filter „IPEnabled = „Waar““
$col32OS =Get-WmiObject - klasse Win32_OperatingSystem - computername $Strcomputer
$col32System = krijg -krijgen-wmiobject - klasse „Win32_ComputerSystem“ - namespace „wortel \ CIMV2“ - computername $strcomputer
$col32Bios = krijgen-WmiObject - Klasse Win32_BIOS - namespace „wortel \ CIMV2“ - computername $strComputer
$col32Proc = krijg -krijgen-wmiobject - klasse „Win32_Processor“ - namespace „wortel \ CIMV2“ - computername $strComputer
schrijven-gastheer die „Info voor“ $strComputer verzamelen
foreach ($objNACItem in $obj32NIC)
{
$c.Cells.Item ($intRow, 1) = $objNACItem.DNSHostname
$c.Cells.Item ($intRow, 3) = $objNACItem.IPAddress
}
foreach ($objBiosItem in $col32Bios)
{
$c.Cells.Item ($intRow, 4) = $objBiosItem.SerialNumber
}
foreach ($objSYSitem in $col32System)
{
$c.Cells.Item ($intRow, 5) = $objSYSitem.Manufacturer + $objSysItem.model
$c.Cells.Item ($intRow, 9) = „GB: “ + $objSYSitem.TotalPhysicalMemory/1000000000
}
foreach ($objOSitem in $col32OS)
{
als ($col32System.domainrole = 1 - of 0)
{
schakelaar ($objOSitem.Version)
{
„5.0.2195“ {$c.Cells.Item ($intRow, 6) = „2000“ + $objOSitem.ServicePackMajorVersion}
„5.1.2600“ {als ($objOSitem.ServicePackMajorVersion - GT 0)
{$c.Cells.Item ($intRow, 6) = „winnen XP SP“ + $objOSitem.ServicePackMajorVersion}
anders
{$c.Cells.Item ($intRow, 6) = „winnen XP“}
}
„6.1.7600“ {als ($objOSitem.ServicePackMajorVersion - GT 0)
{$c.Cells.Item ($intRow, 6) = „winnen Uitzicht SP“ + $objOSitem.ServicePackMajorVersion}
anders
{$c.Cells.Item ($intRow, 6) = „winnen Uitzicht“}
}
„6.1.7600“ {als ($objOSitem.ServicePackMajorVersion - GT 0)
{$c.Cells.Item ($intRow, 6) = „winnen 7 SP“ + $objOSitem.ServicePackMajorVersion}
anders
{$c.Cells.Item ($intRow, 6) = „winnen 7“}
}
}
}
#$c.Cells.Item ($intRow, 6) = $objOSitem.Version
#$c.Cells.Item ($intRow, 26) = $objOSitem.ServicePackMajorVersion
}
foreach ($objProcItem in $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
|