class= " lineNumbers "
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:
127:
128:
|
class=
id= " codeSnippet941526 " class= " ' архив текста, котор нужно прочитать от
strReadFile = «C:\computers.txt»
'первенствуйте архив для того чтобы создаться
sXLS = «C:\service tags.xls»
Установите objFSO = CreateObject («Scripting.FileSystemObject»)
Установите objTS = objFSO.OpenTextFile (strReadFile)
Установите objShell = CreateObject («WScript.Shell»)
Установите objExcel = CreateObject («Excel.Application»)
objExcel.Application.DisplayAlerts = ложно
objExcel.Visible = True
objExcel.Workbooks.Add
'определите названия колонки
objExcel.Cells (1.1). Значение = «имя компьютера»
objExcel.Cells (1.2). Значение = «модель»
objExcel.Cells (1.3). Значение = «бирка обслуживания»
xRow = 1
yColumn = 1
'приложите типы к рядкам и колонкам
Не сделать до yColumn = 4
objExcel.Cells (xRow, yColumn). Font.Bold = True
objExcel.Cells (xRow, yColumn). Font.Size = 11
objExcel.Cells (xRow, yColumn). Interior.ColorIndex = 11
objExcel.Cells (xRow, yColumn). Interior.Pattern = 1
objExcel.Cells (xRow, yColumn). Font.ColorIndex = 2
objExcel.Cells (xRow, yColumn). Borders.LineStyle = 1
objExcel.Cells (xRow, yColumn) .WrapText = True
yColumn = yColumn + 1
Петля
x = 2
y = 1
'не начать прочитать от архива текста, до конца
Не сделать до objTS.AtEndOfStream
strComputer = objTS.ReadLine
'проверите если computername будет pingbale, то если после этого скип к следующему имени
Если (IsPingable (strComputer) = True) после этого
Установите objWMIService = GetObject («winmgmts: » _
& «{impersonationLevel=impersonate}! \ \» _
& strComputer & «\ корень \ cimv2»)
Установите colComputer = _ objWMIService.ExecQuery
(«ВЫБЕРИТЕ * ОТ Win32_ComputerSystemProduct», «WQL», 48)
y1 = y
Если Err.number=0 после этого
Для каждого objComputer в colComputer
objExcel.Cells (x, y1). Значение = strComputer
y1 = y1 + 1 'идут к следующей колонке
objExcel.Cells (x, y1). Значение = objComputer.Name
y1 = y1 + 1 'идут к следующей колонке
objExcel.Cells (x, y1). Значение = objComputer.IdentifyingNumber
x = x + 1 'идет к следующему рядку
Затем
Еще
objExcel.Cells (x, y1). Значение = strComputer
y1 = y1 + 1 'идут к следующей колонке
objExcel.Cells (x, y1). Значение = «ая модель!»
y1 = y1 + 1 'идут к следующей колонке
objExcel.Cells (x, y1). Значение = «ое серия!»
x = x + 1 'идет к следующему рядку
Закончитесь если
Err.clear
Еще
objExcel.Cells (x, y1). Значение = strComputer
y1 = y1 + 1 'идут к следующей колонке
objExcel.Cells (x, y1). Значение = «не Pingable»
x = x + 1 'идет к следующему рядку
Закончитесь если
Петля
objExcel.Columns («a: C»). Отборно
objExcel.Selection.HorizontalAlignment = 3 'центризуют все данные
objExcel.Selection.Borders.LineStyle = 1 'прикладывают граници
objExcel.Columns («a: AH») autofit .EntireColumn.AutoFit 'все колонки
appVerInt = разделило (objExcel.Version, «.") (0)
Если appVerInt-Excel2007 >=0 после этого
objExcel.ActiveWorkbook.SaveAs (sXLS), 56 'офис 2007
Еще
objExcel.ActiveWorkbook.SaveAs (sXLS), 43 'офис 2003
Закончитесь если
objExcel.Quit
установите objExcel = ничего
objTS.Close
сделанное msgbox «!»
WScript.Quit
Функция IsPingable (strHost ByVal)
Если "" <> уравновешивания (strHost) после этого
strCommand = «Ping.exe - n 3 - w 750» & strHost
Установите objExecObject = _ objShell.Exec
название ("%comspec% /c» & _ strHost
& chr (38) & strCommand)
Сделайте пока не objExecObject.StdOut.AtEndOfStream
strText = objExecObject.StdOut.ReadLine ()
Если Instr, то (strText, «TTL=") > 0 _
После этого IsPingable = True: Выход делает
Петля
Если IsPingable = True после этого
С GetObject («winmgmts: корень \ cimv2»)
Для каждого objProcess в _ .ExecQuery
(«ОТБОРНОЕ commandline ОТ _ Win32_Process»
& «ГДЕ имя = «ping.exe»», 48)
Если mandline objProcess.com = _, то strCommand
После этого objProcess.Terminate (): Выходите для
Затем
Конец с
Закончитесь если
Закончитесь если
Если (не IsPingable = True) после этого IsPingable = ложно
Функция конца
|
