class= " lineNumbers " de
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 :
129 :
130 :
131 :
132 :
133 :
134 :
135 :
136 :
137 :
138 :
139 :
140 :
141 :
142 :
143 :
144 :
145 :
146 :
147 :
148 :
149 :
150 :
151 :
152 :
153 :
154 :
155 :
156 :
157 :
158 :
159 :
160 :
161 :
162 :
163 :
164 :
165 :
166 :
167 :
168 :
169 :
170 :
171 :
172 :
173 :
174 :
175 :
176 :
177 :
178 :
179 :
180 :
181 :
182 :
183 :
184 :
185 :
186 :
187 :
188 :
189 :
190 :
191 :
192 :
193 :
194 :
195 :
196 :
197 :
198 :
199 :
200 :
201 :
202 :
203 :
204 :
205 :
206 :
207 :
208 :
209 :
210 :
211 :
212 :
213 :
214 :
215 :
216 :
217 :
218 :
219 :
220 :
221 :
222 :
223 :
224 :
225 :
226 :
227 :
228 :
229 :
230 :
231 :
232 :
233 :
234 :
235 :
236 :
237 :
238 :
239 :
240 :
241 :
242 :
243 :
244 :
245 :
|
class= de
>Option " de l'id= " codeSnippet828281 de = 48 et _
Asc (mi (xR, startPos, 1)) <= 57 ou _
Asc (mi (xR, startPos, 1)) = 45
driveSize = driveSize et mi (xR, startPos, 1)
startPos = startPos + 1
Boucle
S'IsNumeric (driveSize) puis
driveSize = (driveSize)
Finir si
Cellule (zZ, 16) = (driveSize)/1024/1024/1024
Finir si
Si parti (xR, 24) = « HardDrive ........... : C : » Puis
'Initialiser les variables
en espace libre = ""
'Trouve la position de départ de l'espace libre d'unité de disque dur
startPos = InStr (1, xR, « free=")
startPos = startPos + 5
Faire tandis qu'Asc (mi (xR, startPos, 1)) >= 48 et _
Asc (mi (xR, startPos, 1)) <= 57 ou _
Asc (mi (xR, startPos, 1)) = 45
en espace libre = en espace libre et mi (xR, startPos, 1)
startPos = startPos + 1
Si les startPos > le Len (xR) sortent alors faire
Boucle
S'IsNumeric (en espace libre) puis
en espace libre = (en espace libre)
Cellule (zZ, 17) = (en espace libre)/1024/1024/1024
Finir si
Finir si
Si parti (xR, 6) = « OsName » puis
Cellules (zZ, 18) = droit (xR, Len (xR) - 22)
Finir si
Si parti (xR, 43) = « InstalledApp ........ : Microsoft Office Stan » puis
Cellules (zZ, 19) = droit (xR, Len (xR) - 22)
Finir si
Si parti (xR, 43) = « InstalledApp ........ : Prof. de Microsoft Office » puis
Cellules (zZ, 20) = droit (xR, Len (xR) - 22)
Finir si
Si parti (xR, 9) = « IP address » puis
Cellules (zZ, 21) = droit (xR, Len (xR) - 22)
Finir si
Si parti (xR, 9) = « SAVClient » puis
Cellules (zZ, 22) = droit (xR, Len (xR) - 22)
Finir si
Si parti (xR, 13) = « MappedPrinter » puis
Cellules (zZ, 23) = droit (xR, Len (xR) - 22)
Finir si
Si parti (xR, 21) = « MemoryModule ........ : » Puis
'Initialiser les variables
memSubString = ""
'Trouve la position de départ de la quantité de mémoire
startPos = InStr (1, xR, « size=")
startPos = startPos + 5
Faire tandis qu'Asc (mi (xR, startPos, 1)) >= 48 et _
Asc (mi (xR, startPos, 1)) <= 57 ou _
Asc (mi (xR, startPos, 1)) = 45
memSubString = memSubString et mi (xR, startPos, 1)
startPos = startPos + 1
Boucle
S'IsNumeric (memSubString) puis
memoryTotal = memoryTotal + CInt (memSubString)
Finir si
Cellules (zZ, 13) = ABS (memoryTotal)
Finir si
Boucle
#6 étroit 'étroit le dossier
= 0 memoryTotal
Après 'se déplacer à la prochaine ligne
'Ajouter les en-têtes de colonne
Cellules (1, 2) = « ReportDate »
Cellules (1, 3) = « ComputerName »
Cellules (1, 4) = « numéro de série »
Cellules (1, 5) = « modèle »
Cellules (1, 6) = « username »
Cellules (1, 7) = « PrimaryUser »
Cellules (1, 8) = « endroit »
Cellules (1, 9) = « compagnie »
Cellules (1, 10) = « département »
Cellules (1, 11) = « CPUType »
Cellules (1, 12) = « ClockSpeed »
Cellules (1, 13) = « mémoire »
Cellules (1, 14) = « Drive0 »
Cellules (1, 15) = « Drive1 »
Cellules (1, 16) = « CSize »
Cellules (1, 17) = « CFree »
Cellules (1, 18) = « OperSystem »
Cellules (1, 19) = « OfficeStandard »
Cellules (1, 20) = « OfficePro »
Cellules (1, 21) = « IP address »
Cellules (1, 22) = « antivirus »
Cellules (1, 23) = « MappedPrinter »
MsgBox « a fini de traiter ! »
Sous-marin d'extrémité
|