Download as
Browse Code »

Commit e32a719b4d802681401bc49b24f1097ff173acc9

Authored by anderson.peterle@previdencia.gov.br
1 parent eb8d42dd
Exists in master

Exclusão para posterior reposição com versão 2.6-Beta-2 

git-svn-id: http://svn.softwarepublico.gov.br/svn/cacic/cacic/trunk/agente-windows@961 fecfc0c7-e812-0410-ae72-849f08638ee7
Showing 5 changed files with 0 additions and 1199 deletions   Show diff stats
col_hard/col_hard.cfg
View file @eb8d42d
... ... @@ -1,35 +0,0 @@
1   --$A8
2   --$B-
3   --$C+
4   --$D+
5   --$E-
6   --$F-
7   --$G+
8   --$H+
9   --$I+
10   --$J-
11   --$K-
12   --$L+
13   --$M-
14   --$N+
15   --$O+
16   --$P+
17   --$Q-
18   --$R-
19   --$S-
20   --$T-
21   --$U-
22   --$V+
23   --$W-
24   --$X+
25   --$YD
26   --$Z1
27   --cg
28   --AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
29   --H+
30   --W+
31   --M
32   --$M16384,1048576
33   --K$00400000
34   --LE"c:\arquivos de programas\borland\delphi7\Projects\Bpl"
35   --LN"c:\arquivos de programas\borland\delphi7\Projects\Bpl"
col_hard/col_hard.dof
View file @eb8d42d
... ... @@ -1,136 +0,0 @@
1   -[FileVersion]
2   -Version=7.0
3   -[Compiler]
4   -A=8
5   -B=0
6   -C=1
7   -D=1
8   -E=0
9   -F=0
10   -G=1
11   -H=1
12   -I=1
13   -J=0
14   -K=0
15   -L=1
16   -M=0
17   -N=1
18   -O=1
19   -P=1
20   -Q=0
21   -R=0
22   -S=0
23   -T=0
24   -U=0
25   -V=1
26   -W=0
27   -X=1
28   -Y=1
29   -Z=1
30   -ShowHints=1
31   -ShowWarnings=1
32   -UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
33   -NamespacePrefix=
34   -SymbolDeprecated=1
35   -SymbolLibrary=1
36   -SymbolPlatform=1
37   -UnitLibrary=1
38   -UnitPlatform=1
39   -UnitDeprecated=1
40   -HResultCompat=1
41   -HidingMember=1
42   -HiddenVirtual=1
43   -Garbage=1
44   -BoundsError=1
45   -ZeroNilCompat=1
46   -StringConstTruncated=1
47   -ForLoopVarVarPar=1
48   -TypedConstVarPar=1
49   -AsgToTypedConst=1
50   -CaseLabelRange=1
51   -ForVariable=1
52   -ConstructingAbstract=1
53   -ComparisonFalse=1
54   -ComparisonTrue=1
55   -ComparingSignedUnsigned=1
56   -CombiningSignedUnsigned=1
57   -UnsupportedConstruct=1
58   -FileOpen=1
59   -FileOpenUnitSrc=1
60   -BadGlobalSymbol=1
61   -DuplicateConstructorDestructor=1
62   -InvalidDirective=1
63   -PackageNoLink=1
64   -PackageThreadVar=1
65   -ImplicitImport=1
66   -HPPEMITIgnored=1
67   -NoRetVal=1
68   -UseBeforeDef=1
69   -ForLoopVarUndef=1
70   -UnitNameMismatch=1
71   -NoCFGFileFound=1
72   -MessageDirective=1
73   -ImplicitVariants=1
74   -UnicodeToLocale=1
75   -LocaleToUnicode=1
76   -ImagebaseMultiple=1
77   -SuspiciousTypecast=1
78   -PrivatePropAccessor=1
79   -UnsafeType=1
80   -UnsafeCode=1
81   -UnsafeCast=1
82   -[Linker]
83   -MapFile=0
84   -OutputObjs=0
85   -ConsoleApp=1
86   -DebugInfo=0
87   -RemoteSymbols=0
88   -MinStackSize=16384
89   -MaxStackSize=1048576
90   -ImageBase=4194304
91   -ExeDescription=
92   -[Directories]
93   -OutputDir=
94   -UnitOutputDir=
95   -PackageDLLOutputDir=
96   -PackageDCPOutputDir=
97   -SearchPath=
98   -Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOfficeXP
99   -Conditionals=
100   -DebugSourceDirs=
101   -UsePackages=0
102   -[Parameters]
103   -RunParams=
104   -HostApplication=
105   -Launcher=
106   -UseLauncher=0
107   -DebugCWD=
108   -[Language]
109   -ActiveLang=
110   -ProjectLang=
111   -RootDir=
112   -[Version Info]
113   -IncludeVerInfo=1
114   -AutoIncBuild=0
115   -MajorVer=2
116   -MinorVer=5
117   -Release=0
118   -Build=773
119   -Debug=0
120   -PreRelease=0
121   -Special=0
122   -Private=0
123   -DLL=0
124   -Locale=2070
125   -CodePage=1252
126   -[Version Info Keys]
127   -CompanyName=Dataprev - Emp. de TI da Prev.Social - URES
128   -FileDescription=Coletor de Informações de Hardware do Sistema CACIC
129   -FileVersion=2.5.0.773
130   -InternalName=
131   -LegalCopyright=
132   -LegalTrademarks=
133   -OriginalFilename=
134   -ProductName=Col_Hard
135   -ProductVersion=2.6
136   -Comments=Baseado na licença GPL (General Public License)
col_hard/col_hard.dpr
View file @eb8d42d
... ... @@ -1,1028 +0,0 @@
1   -(**
2   ----------------------------------------------------------------------------------------------------------------------------------------------------------------
3   -Copyright 2000, 2001, 2002, 2003, 2004, 2005 Dataprev - Empresa de Tecnologia e Informações da Previdência Social, Brasil
4   -
5   -Este arquivo é parte do programa CACIC - Configurador Automático e Coletor de Informações Computacionais
6   -
7   -O CACIC é um software livre; você pode redistribui-lo e/ou modifica-lo dentro dos termos da Licença Pública Geral GNU como
8   -publicada pela Fundação do Software Livre (FSF); na versão 2 da Licença, ou (na sua opinião) qualquer versão.
9   -
10   -Este programa é distribuido na esperança que possa ser util, mas SEM NENHUMA GARANTIA; sem uma garantia implicita de ADEQUAÇÂO a qualquer
11   -MERCADO ou APLICAÇÃO EM PARTICULAR. Veja a Licença Pública Geral GNU para maiores detalhes.
12   -
13   -Você deve ter recebido uma cópia da Licença Pública Geral GNU, sob o título "LICENCA.txt", junto com este programa, se não, escreva para a Fundação do Software
14   -Livre(FSF) Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
15   -
16   -NOTA: O componente MiTeC System Information Component (MSIC) é baseado na classe TComponent e contém alguns subcomponentes baseados na classe TPersistent
17   - Este componente é apenas freeware e não open-source, e foi baixado de http://www.mitec.cz/Downloads/MSIC.zip
18   ----------------------------------------------------------------------------------------------------------------------------------------------------------------
19   -*)
20   -
21   -program col_hard;
22   -{$R *.res}
23   -{$APPTYPE CONSOLE}
24   -
25   -uses
26   - Windows,
27   - Registry,
28   - SysUtils,
29   - Classes,
30   - IniFiles,
31   - MSI_SMBIOS,
32   - MSI_Devices,
33   - MSI_CPU,
34   - MSI_DISPLAY,
35   - MSI_MEDIA,
36   - MSI_NETWORK,
37   - MSI_XML_Reports,
38   - PJVersionInfo,
39   - CACIC_Library in '..\CACIC_Library.pas';
40   -
41   -var
42   - v_mensagem,
43   - v_strCipherClosed : String;
44   - v_debugs : boolean;
45   - v_tstrCipherOpened,
46   - v_tstrCipherOpened1,
47   - tstrTripa1 : TStrings;
48   - intAux : integer;
49   - g_oCacic : TCACIC;
50   -
51   -
52   -// Dica baixada de http://www.marcosdellantonio.net/2007/06/14/operador-if-ternario-em-delphi-e-c/
53   -// Fiz isso para não ter que acrescentar o componente Math ao USES!
54   -function iif(condicao : boolean; resTrue, resFalse : Variant) : Variant;
55   - Begin
56   - if condicao then
57   - Result := resTrue
58   - else
59   - Result := resFalse;
60   - End;
61   -
62   -procedure log_diario(strMsg : String);
63   -var
64   - HistoricoLog : TextFile;
65   - strDataArqLocal, strDataAtual : string;
66   -begin
67   - try
68   - FileSetAttr (g_oCacic.getCacicPath + 'cacic2.log',0); // Retira os atributos do arquivo para evitar o erro FILE ACCESS DENIED em máquinas 2000
69   - AssignFile(HistoricoLog,g_oCacic.getCacicPath + 'cacic2.log'); {Associa o arquivo a uma variável do tipo TextFile}
70   - {$IOChecks off}
71   - Reset(HistoricoLog); {Abre o arquivo texto}
72   - {$IOChecks on}
73   - if (IOResult <> 0) then // Arquivo não existe, será recriado.
74   - begin
75   - Rewrite (HistoricoLog);
76   - Append(HistoricoLog);
77   - Writeln(HistoricoLog,FormatDateTime('dd/mm hh:nn:ss : ', Now) + '======================> Iniciando o Log <=======================');
78   - end;
79   - DateTimeToString(strDataArqLocal, 'yyyymmdd', FileDateToDateTime(Fileage(g_oCacic.getCacicPath + 'cacic2.log')));
80   - DateTimeToString(strDataAtual , 'yyyymmdd', Date);
81   - if (strDataAtual <> strDataArqLocal) then // Se o arquivo INI não é da data atual...
82   - begin
83   - Rewrite (HistoricoLog); //Cria/Recria o arquivo
84   - Append(HistoricoLog);
85   - Writeln(HistoricoLog,FormatDateTime('dd/mm hh:nn:ss : ', Now) + '======================> Iniciando o Log <=======================');
86   - end;
87   - Append(HistoricoLog);
88   - Writeln(HistoricoLog,FormatDateTime('dd/mm hh:nn:ss : ', Now)+ '[Coletor HARD] '+strMsg); {Grava a string Texto no arquivo texto}
89   - CloseFile(HistoricoLog); {Fecha o arquivo texto}
90   -// FileSetAttr (ExtractFilePath(Application.Exename) + '\cacic2.log',6); // Muda o atributo para arquivo de SISTEMA e OCULTO
91   -
92   - except
93   - log_diario('Erro na gravação do log!');
94   - end;
95   -end;
96   -
97   -
98   -
99   -Function CipherClose(p_DatFileName : string; p_tstrCipherOpened : TStrings) : String;
100   -var v_strCipherOpenImploded : string;
101   - v_DatFile : TextFile;
102   -begin
103   - try
104   - FileSetAttr (p_DatFileName,0); // Retira os atributos do arquivo para evitar o erro FILE ACCESS DENIED em máquinas 2000
105   - AssignFile(v_DatFile,p_DatFileName); {Associa o arquivo a uma variável do tipo TextFile}
106   -
107   - // Criação do arquivo .DAT
108   - Rewrite (v_DatFile);
109   - Append(v_DatFile);
110   -
111   - v_strCipherOpenImploded := g_oCacic.implode(p_tstrCipherOpened,g_oCacic.getSeparatorKey);
112   - v_strCipherClosed := g_oCacic.enCrypt(v_strCipherOpenImploded);
113   -
114   - Writeln(v_DatFile,v_strCipherClosed); {Grava a string Texto no arquivo texto}
115   -
116   - CloseFile(v_DatFile);
117   - except
118   - end;
119   -end;
120   -
121   -Function CipherOpen(p_DatFileName : string) : TStrings;
122   -var v_DatFile : TextFile;
123   - v_strCipherOpened,
124   - v_strCipherClosed : string;
125   -begin
126   - v_strCipherOpened := '';
127   - if FileExists(p_DatFileName) then
128   - begin
129   - AssignFile(v_DatFile,p_DatFileName);
130   - {$IOChecks off}
131   - Reset(v_DatFile);
132   - {$IOChecks on}
133   - if (IOResult <> 0) then // Arquivo não existe, será recriado.
134   - begin
135   - Rewrite (v_DatFile);
136   - Append(v_DatFile);
137   - end;
138   -
139   - Readln(v_DatFile,v_strCipherClosed);
140   - while not EOF(v_DatFile) do Readln(v_DatFile,v_strCipherClosed);
141   - CloseFile(v_DatFile);
142   - v_strCipherOpened:= g_oCacic.deCrypt(v_strCipherClosed);
143   - end;
144   - if (trim(v_strCipherOpened)<>'') then
145   - Result := g_oCacic.explode(v_strCipherOpened,g_oCacic.getSeparatorKey)
146   - else
147   - Result := g_oCacic.explode('Configs.ID_SO' + g_oCacic.getSeparatorKey + g_oCacic.getWindowsStrId + g_oCacic.getSeparatorKey + 'Configs.Endereco_WS'+g_oCacic.getSeparatorKey+'/cacic2/ws/',g_oCacic.getSeparatorKey);
148   -
149   - if Result.Count mod 2 <> 0 then
150   - Result.Add('');
151   -end;
152   -
153   -Procedure SetValorDatMemoria(p_Chave : string; p_Valor : String; p_tstrCipherOpened : TStrings);
154   -begin
155   - // Exemplo: p_Chave => Configs.nu_ip_servidor : p_Valor => 10.71.0.120
156   - if (p_tstrCipherOpened.IndexOf(p_Chave)<>-1) then
157   - p_tstrCipherOpened[v_tstrCipherOpened.IndexOf(p_Chave)+1] := p_Valor
158   - else
159   - Begin
160   - p_tstrCipherOpened.Add(p_Chave);
161   - p_tstrCipherOpened.Add(p_Valor);
162   - End;
163   -end;
164   -Function GetValorDatMemoria(p_Chave : String; p_tstrCipherOpened : TStrings) : String;
165   -begin
166   - if (p_tstrCipherOpened.IndexOf(p_Chave)<>-1) then
167   - Result := p_tstrCipherOpened[p_tstrCipherOpened.IndexOf(p_Chave)+1]
168   - else
169   - Result := '';
170   -end;
171   -function VerFmt(const MS, LS: DWORD): string;
172   - // Format the version number from the given DWORDs containing the info
173   -begin
174   - Result := Format('%d.%d.%d.%d',
175   - [HiWord(MS), LoWord(MS), HiWord(LS), LoWord(LS)])
176   -end;
177   -
178   -function GetVersionInfo(p_File: string):string;
179   -var PJVersionInfo1: TPJVersionInfo;
180   -begin
181   - PJVersionInfo1 := TPJVersionInfo.Create(nil);
182   - PJVersionInfo1.FileName := PChar(p_File);
183   - Result := VerFmt(PJVersionInfo1.FixedFileInfo.dwFileVersionMS, PJVersionInfo1.FixedFileInfo.dwFileVersionLS);
184   - PJVersionInfo1.Free;
185   -end;
186   -
187   -procedure log_DEBUG(p_msg:string);
188   -Begin
189   - if v_Debugs then log_diario('(v.'+getVersionInfo(ParamStr(0))+') DEBUG - '+p_msg);
190   -End;
191   -
192   -// Função criada devido a divergências entre os valores retornados pelos métodos dos componentes MSI e seus Reports.
193   -function Parse(p_ClassName, p_SectionName, p_DataName:string; p_Report : TStringList) : String;
194   -var intClasses, intSections, intDatas, v_achei_SectionName, v_array_SectionName_Count : integer;
195   - v_ClassName, v_DataName, v_string_consulta : string;
196   - v_array_SectionName : tstrings;
197   -begin
198   - Log_DEBUG('p_ClassName => "'+p_ClassName+'" p_SectionName => "'+p_SectionName+'" p_DataName => "'+p_DataName+'"');
199   - Result := '';
200   - if (p_SectionName <> '') then
201   - Begin
202   - v_array_SectionName := g_oCacic.explode(p_SectionName,'/');
203   - v_array_SectionName_Count := v_array_SectionName.Count;
204   - End
205   - else v_array_SectionName_Count := 0;
206   -
207   - v_achei_SectionName := 0;
208   - v_ClassName := 'classname="' + p_ClassName + '">';
209   - v_DataName := '<data name="' + p_DataName + '"';
210   - intClasses := 0;
211   - try
212   - While intClasses < p_Report.Count Do
213   - Begin
214   - if (pos(v_ClassName,p_Report[intClasses])>0) then
215   - Begin
216   - intSections := intClasses;
217   - While intSections < p_Report.Count Do
218   - Begin
219   -
220   - if (p_SectionName<>'') then
221   - Begin
222   - v_string_consulta := '<section name="' + v_array_SectionName[v_achei_SectionName]+'">';
223   - if (pos(v_string_consulta,p_Report[intSections])>0) then v_achei_SectionName := v_achei_SectionName+1;
224   - End;
225   -
226   - if (v_achei_SectionName = v_array_SectionName_Count) then
227   - Begin
228   -
229   - intDatas := intSections;
230   - While intDatas < p_Report.Count Do
231   - Begin
232   -
233   - if (pos(v_DataName,p_Report[intDatas])>0) then
234   - Begin
235   - Result := Copy(p_Report[intDatas],pos('>',p_Report[intDatas])+1,length(p_Report[intDatas]));
236   - Result := StringReplace(Result,'</data>','',[rfReplaceAll]);
237   - intClasses := p_Report.Count;
238   - intSections := p_Report.Count;
239   - intDatas := p_Report.Count;
240   - End;
241   - intDatas := intDatas + 1;
242   - End; //for intDatas...
243   - End; // if pos(v_SectionName...
244   - intSections := intSections + 1;
245   - End; // for intSections...
246   - End; // if pos(v_ClassName...
247   - intClasses := intClasses + 1;
248   - End; // for intClasses...
249   - except
250   - Begin
251   - log_diario('ERRO! Problema na rotina parse');
252   - End;
253   - end;
254   - end;
255   -
256   -function GetFolderDate(Folder: string): TDateTime;
257   -var
258   - Rec: TSearchRec;
259   - Found: Integer;
260   - Date: TDateTime;
261   -begin
262   - if Folder[Length(folder)] = '\' then
263   - Delete(Folder, Length(folder), 1);
264   - Result := 0;
265   - Found := FindFirst(Folder, faDirectory, Rec);
266   - try
267   - if Found = 0 then
268   - begin
269   - Date := FileDateToDateTime(Rec.Time);
270   - Result := Date;
271   - end;
272   - finally
273   - FindClose(Rec);
274   - end;
275   -end;
276   -
277   -procedure Grava_Debugs(strMsg : String);
278   -var
279   - DebugsFile : TextFile;
280   - strDataArqLocal, strDataAtual, v_file_debugs : string;
281   -begin
282   - try
283   - v_file_debugs := g_oCacic.getCacicPath + 'Temp\Debugs\debug_'+StringReplace(ExtractFileName(StrUpper(PChar(ParamStr(0)))),'.EXE','',[rfReplaceAll])+'.txt';
284   - FileSetAttr (v_file_debugs,0); // Retira os atributos do arquivo para evitar o erro FILE ACCESS DENIED em máquinas 2000
285   - AssignFile(DebugsFile,v_file_debugs); {Associa o arquivo a uma variável do tipo TextFile}
286   -
287   - {$IOChecks off}
288   - Reset(DebugsFile); {Abre o arquivo texto}
289   - {$IOChecks on}
290   -
291   - if (IOResult <> 0) then // Arquivo não existe, será recriado.
292   - begin
293   - Rewrite(DebugsFile);
294   - Append(DebugsFile);
295   - Writeln(DebugsFile,FormatDateTime('dd/mm hh:nn:ss : ', Now) + '======================> Iniciando o Debug <=======================');
296   - end;
297   - DateTimeToString(strDataArqLocal, 'yyyymmdd', FileDateToDateTime(Fileage(v_file_debugs)));
298   - DateTimeToString(strDataAtual , 'yyyymmdd', Date);
299   -
300   - if (strDataAtual <> strDataArqLocal) then // Se o arquivo não é da data atual...
301   - begin
302   - Rewrite(DebugsFile); //Cria/Recria o arquivo
303   - Append(DebugsFile);
304   - Writeln(DebugsFile,FormatDateTime('dd/mm hh:nn:ss : ', Now) + '======================> Iniciando o Debug <=======================');
305   - end;
306   -
307   - Append(DebugsFile);
308   - Writeln(DebugsFile,FormatDateTime('dd/mm hh:nn:ss : ', Now) + strMsg); {Grava a string Texto no arquivo texto}
309   - CloseFile(DebugsFile); {Fecha o arquivo texto}
310   - except
311   - log_diario('Erro na gravação do Debug!');
312   - end;
313   -end;
314   -
315   -
316   -
317   -// Converte caracteres básicos da tabela Ansi para Ascii
318   -// Solução temporária.
319   -function AnsiToAscii( StrANSI: String ): String;
320   -var i: Integer;
321   - StrASCII, Carac : string;
322   - Letras_ANSI : array[150..255] of String;
323   -begin
324   - Letras_ANSI[150] := ' ';
325   - Letras_ANSI[169] := '©';
326   - Letras_ANSI[174] := '®';
327   - Letras_ANSI[181] := 'µ';
328   - Letras_ANSI[192] := 'A';
329   - Letras_ANSI[193] := 'A';
330   - Letras_ANSI[194] := 'A';
331   - Letras_ANSI[195] := 'A';
332   - Letras_ANSI[196] := 'A';
333   - Letras_ANSI[197] := 'A';
334   - Letras_ANSI[198] := 'A';
335   - Letras_ANSI[199] := 'C';
336   - Letras_ANSI[200] := 'E';
337   - Letras_ANSI[201] := 'E';
338   - Letras_ANSI[202] := 'E';
339   - Letras_ANSI[203] := 'E';
340   - Letras_ANSI[204] := 'I';
341   - Letras_ANSI[205] := 'I';
342   - Letras_ANSI[206] := 'I';
343   - Letras_ANSI[207] := 'I';
344   - Letras_ANSI[208] := 'D';
345   - Letras_ANSI[209] := 'N';
346   - Letras_ANSI[210] := 'O';
347   - Letras_ANSI[211] := 'O';
348   - Letras_ANSI[212] := 'O';
349   - Letras_ANSI[213] := 'O';
350   - Letras_ANSI[214] := 'O';
351   - Letras_ANSI[215] := 'x';
352   - Letras_ANSI[216] := 'O';
353   - Letras_ANSI[217] := 'U';
354   - Letras_ANSI[218] := 'U';
355   - Letras_ANSI[219] := 'U';
356   - Letras_ANSI[220] := 'U';
357   - Letras_ANSI[221] := 'Y';
358   - Letras_ANSI[222] := 'd';
359   - Letras_ANSI[223] := 'b';
360   - Letras_ANSI[224] := 'a';
361   - Letras_ANSI[225] := 'a';
362   - Letras_ANSI[226] := 'a';
363   - Letras_ANSI[227] := 'a';
364   - Letras_ANSI[228] := 'a';
365   - Letras_ANSI[229] := 'a';
366   - Letras_ANSI[230] := 'a';
367   - Letras_ANSI[231] := 'c';
368   - Letras_ANSI[232] := 'e';
369   - Letras_ANSI[233] := 'e';
370   - Letras_ANSI[234] := 'e';
371   - Letras_ANSI[235] := 'e';
372   - Letras_ANSI[236] := 'i';
373   - Letras_ANSI[237] := 'i';
374   - Letras_ANSI[238] := 'i';
375   - Letras_ANSI[239] := 'i';
376   - Letras_ANSI[240] := 'o';
377   - Letras_ANSI[241] := 'n';
378   - Letras_ANSI[242] := 'o';
379   - Letras_ANSI[243] := 'o';
380   - Letras_ANSI[244] := 'o';
381   - Letras_ANSI[245] := 'o';
382   - Letras_ANSI[246] := 'o';
383   - Letras_ANSI[247] := 'o';
384   - Letras_ANSI[248] := 'o';
385   - Letras_ANSI[249] := 'u';
386   - Letras_ANSI[250] := 'u';
387   - Letras_ANSI[251] := 'u';
388   - Letras_ANSI[252] := 'u';
389   - Letras_ANSI[253] := 'y';
390   - Letras_ANSI[254] := 'b';
391   - Letras_ANSI[255] := 'y';
392   -
393   - i := 1;
394   - StrASCII := '';
395   - while (i <= Length(StrANSI)) do
396   - begin
397   - if (Copy(StrANSI,i,2)='&#') then
398   - Begin
399   - Carac := Letras_ANSI[StrToInt(Copy(StrANSI,i+2,3))];
400   - i := i+ 5;
401   - End
402   - else if (Copy(StrANSI,i,4)='&gt;') then
403   - Begin
404   - Carac := '?';
405   - i := i+ 3;
406   - End
407   - else if (Copy(StrANSI,i,6)='&quot;') then
408   - Begin
409   - Carac := '-';
410   - i := i+ 5;
411   - End
412   - else if (Copy(StrANSI,i,6)='&apos;') then
413   - Begin
414   - Carac := '';
415   - i := i+ 5;
416   - End
417   - else if (Copy(StrANSI,i,5)='&amp;') then
418   - Begin
419   - Carac := '';
420   - i := i+ 4;
421   - End
422   - else Carac := Copy(StrANSI,i,1);
423   - StrASCII := StrASCII + Carac;
424   - i := i+1;
425   - End;
426   - Result := StrASCII;
427   -end;
428   -// Baixada de http://www.geocities.com/SiliconValley/Bay/1058/fdelphi.html
429   -Function Rat(OQue: String; Onde: String) : Integer;
430   -// Procura uma string dentro de outra, da direita para esquerda
431   -// Retorna a posição onde foi encontrada ou 0 caso não seja encontrada
432   -var
433   -Pos : Integer;
434   -Tam1 : Integer;
435   -Tam2 : Integer;
436   -Achou : Boolean;
437   -begin
438   -Tam1 := Length(OQue);
439   -Tam2 := Length(Onde);
440   -Pos := Tam2-Tam1+1;
441   -Achou := False;
442   -while (Pos >= 1) and not Achou do
443   - begin
444   - if Copy(Onde, Pos, Tam1) = OQue then
445   - begin
446   - Achou := True
447   - end
448   - else
449   - begin
450   - Pos := Pos - 1;
451   - end;
452   - end;
453   -Result := Pos;
454   -end;
455   -
456   -Function TrataExcecoesMacAddress(p_mac:String; p_excecao:String): String;
457   -var tstrEXCECOES : TStrings;
458   -var intAux1, v_conta_EXCECOES : integer;
459   -
460   -Begin
461   - Result := '';
462   - v_conta_EXCECOES := 0;
463   - if (p_excecao <> '') then
464   - Begin
465   - tstrEXCECOES := g_oCacic.explode(p_excecao,','); // Excecoes a serem tratadas
466   - for intAux1 := 0 to tstrEXCECOES.Count-1 Do
467   - Begin
468   - if (rat(tstrEXCECOES[intAux1],p_mac) > 0) then
469   - Begin
470   - v_conta_EXCECOES := 1;
471   - break;
472   - End;
473   - End;
474   - End;
475   - if (v_conta_EXCECOES = 0) then
476   - Begin
477   - Result := p_mac;
478   - End;
479   -End;
480   -
481   -procedure Executa_Col_Hard;
482   -var v_te_cpu_fabricante,
483   - v_te_cpu_desc,
484   - v_te_cpu_serial,
485   - v_te_cpu_frequencia,
486   - v_te_placa_rede_desc,
487   - v_te_placa_som_desc,
488   - v_te_cdrom_desc,
489   - v_te_teclado_desc,
490   - v_te_modem_desc,
491   - v_te_mouse_desc,
492   - v_te_mem_ram_desc,
493   - v_te_mem_ram_tipo,
494   - v_qt_placa_video_mem,
495   - v_te_placa_video_resolucao,
496   - v_te_placa_video_desc,
497   - v_qt_placa_video_cores,
498   - v_te_bios_fabricante,
499   - v_te_bios_data,
500   - v_te_bios_desc,
501   - v_te_placa_mae_fabricante,
502   - v_te_placa_mae_desc,
503   - UVC,
504   - ValorChaveRegistro,
505   - v_DataName,
506   - v_SectionName,
507   - v_Macs_Invalidos,
508   - v_Mac_Address,
509   - v_Tripa_CDROM,
510   - v_Tripa_TCPIP,
511   - v_Tripa_CPU,
512   - strAux,
513   - v_PhysicalAddress,
514   - v_IPAddress,
515   - v_IPMask,
516   - v_Gateway_IPAddress,
517   - v_DHCP_IPAddress,
518   - v_PrimaryWINS_IPAddress,
519   - v_SecondaryWINS_IPAddress : String;
520   - i, j, count : Integer;
521   - v_qt_mem_ram : WORD;
522   - v_CPU : TMiTeC_CPU;
523   - v_DISPLAY : TMiTeC_Display;
524   - v_MEDIA : TMiTeC_Media;
525   - v_DEVICES : TMiTeC_Devices;
526   - v_TCP : TMiTeC_TCPIP;
527   - v_SMBIOS : TMiTeC_SMBIOS;
528   - v_MemoriaRAM : TMemoryStatus;
529   - v_Report,
530   - v_tstrCPU,
531   - v_tstrCDROM,
532   - v_tstrTCPIP : TStringList;
533   -
534   - v_cpu_freq : TStrings;
535   - v_registry : TRegistry;
536   -
537   -begin
538   -
539   - v_Debugs := false;
540   - if DirectoryExists(g_oCacic.getCacicPath + 'Temp\Debugs') then
541   - Begin
542   - if (FormatDateTime('ddmmyyyy', GetFolderDate(g_oCacic.getCacicPath + 'Temp\Debugs')) = FormatDateTime('ddmmyyyy', date)) then
543   - Begin
544   - v_Debugs := true;
545   - //log_diario('Pasta "' + g_oCacic.getCacicPath + 'Temp\Debugs" com data '+FormatDateTime('dd-mm-yyyy', GetFolderDate(g_oCacic.getCacicPath + 'Temp\Debugs'))+' encontrada. DEBUG ativado.');
546   - End;
547   - End;
548   -
549   - Try
550   - SetValorDatMemoria('Col_Hard.Inicio', FormatDateTime('hh:nn:ss', Now), v_tstrCipherOpened1);
551   - v_Report := TStringList.Create;
552   - log_diario('Coletando informações de Hardware.');
553   -
554   - v_cpu_freq := TStringList.Create;
555   - v_tstrCPU := TStringList.Create;
556   - v_tstrCDROM := TStringList.Create;
557   - v_tstrTCPIP := TStringList.Create;
558   -
559   - Try
560   - Begin
561   - Log_Debug('Instanciando SMBIOS para obter frequencia de CPU...');
562   - v_SMBIOS := TMiTeC_SMBIOS.Create(nil);
563   - v_SMBIOS.RefreshData;
564   - v_te_cpu_frequencia := 'ND';
565   - if(v_SMBIOS.Processor[0].Frequency > 0) then
566   - v_te_cpu_frequencia := inttostr(v_SMBIOS.Processor[0].Frequency) + 'Mhz' // Frequancia de CPU via BIOS
567   - else begin
568   - v_registry := TRegistry.Create;
569   - try
570   - v_registry.RootKey := HKEY_LOCAL_MACHINE;
571   - try
572   - if(v_registry.Openkey('HARDWARE\DESCRIPTION\System\CentralProcessor\0\', False)) then begin
573   - v_te_cpu_frequencia := inttostr(v_registry.ReadInteger('~MHz'))+'Mhz'; // Frequencia de CPU via Regitry
574   - v_registry.CloseKey;
575   - end;
576   - except
577   - log_diario('CPU - informação de frequência ['+v_te_cpu_frequencia+'] não disponível (by SMBIOS/Registry): ');
578   - end;
579   - finally
580   - v_registry.Free;
581   - end;
582   - end;
583   - v_SMBIOS.Free;
584   -
585   - Log_Debug('CPU - frequência estática (by SMBIOS/Registry): '+v_te_cpu_frequencia);
586   -
587   - Log_Debug('Instanciando v_CPU...');
588   - v_CPU := TMiTeC_CPU.Create(nil);
589   - Log_Debug('Atualização de dados de CPU...');
590   - v_CPU.RefreshData;
591   - Log_Debug('Dados de CPU atualizados - OK!');
592   -
593   - // Obtem dados de CPU
594   - Try
595   - for i:=0 to v_CPU.CPUCount-1 do begin
596   - v_te_cpu_serial := v_CPU.SerialNumber;
597   - v_te_cpu_desc := v_CPU.CPUName;
598   - if(v_te_cpu_desc = '') then
599   - v_te_cpu_desc := v_CPU.MarketingName;
600   -
601   - v_te_cpu_fabricante := cVendorNames[v_CPU.Vendor].Prefix;
602   -
603   - Log_Debug('CPU - frequência dinâmica (by CPU): '+inttostr(v_CPU.Frequency) + 'Mhz');
604   -
605   - // Se pegou ao menos a descrição, adiciona-se à tripa...
606   - if (v_te_cpu_desc <> '') then
607   - Begin
608   - v_tstrCPU.Add('te_cpu_desc###' + v_te_cpu_desc + '#FIELD#' +
609   - 'te_cpu_fabricante###' + v_te_cpu_fabricante + '#FIELD#' +
610   - 'te_cpu_serial###' + v_te_cpu_serial + '#FIELD#' +
611   - 'te_cpu_frequencia###' + v_te_cpu_frequencia);
612   - Log_Debug('Adicionando a tstrCPU: "'+v_tstrCPU[v_tstrCPU.count-1]);
613   - Log_DEBUG('Tamanho de v_tstrCPU 0: '+intToStr(v_tstrCPU.Count));
614   - End;
615   - end;
616   - Except
617   - log_diario('Problemas ao coletar dados de CPU!');
618   - end;
619   - v_CPU.Free;
620   - Log_DEBUG('Tamanho de v_tstrCPU 1: '+intToStr(v_tstrCPU.Count));
621   -
622   - // Media informations
623   - Try
624   - v_MEDIA := TMiTeC_Media.Create(nil);
625   - v_MEDIA.RefreshData;
626   - if v_Media.SoundCardIndex>-1 then begin
627   - //n:=Tree.Items.AddChild(r,Media.Devices[Media.SoundCardIndex]);
628   - v_te_placa_som_desc := v_Media.Devices[v_Media.SoundCardIndex];
629   - end;
630   - except log_diario('Problemas ao coletar dados de Aúdio');
631   - end;
632   -
633   - Log_Debug('Dados de aúdio coletados - OK!');
634   -
635   - // Devices informations
636   - Try
637   - Log_Debug('Instanciando v_DEVICES...');
638   - v_DEVICES := TMiTeC_Devices.Create(nil);
639   - Log_Debug('RefreshingData...');
640   - v_DEVICES.RefreshData;
641   - if v_Debugs then MSI_XML_Reports.Devices_XML_Report(v_DEVICES,TRUE,v_Report);
642   - Log_Debug('v_DEVICES.DeviceCount = '+intToStr(v_DEVICES.DeviceCount));
643   - i := 0;
644   - While i < v_DEVICES.DeviceCount do
645   - Begin
646   - v_mensagem := 'Obtendo Descrição de CDROM';
647   - Log_Debug('Percorrendo v_DEVICES.Devices['+intToStr(i)+']...');
648   -
649   - if v_DEVICES.Devices[i].DeviceClass=dcCDROM then
650   - Begin
651   - // Vamos tentar de tudo! :))))
652   - v_te_cdrom_desc := Trim(v_DEVICES.Devices[i].Name);
653   - if Trim(v_te_cdrom_desc)='' then
654   - v_te_cdrom_desc := v_DEVICES.Devices[i].FriendlyName;
655   - if Trim(v_te_cdrom_desc)='' then
656   - v_te_cdrom_desc := v_DEVICES.Devices[i].Description;
657   -
658   - if (v_te_cdrom_desc <> '') then
659   - Begin
660   - v_tstrCDROM.Add('te_cdrom_desc###'+v_te_cdrom_desc);
661   - Log_Debug('Adicionando a tstrCDROM: "'+v_tstrCDROM[v_tstrCDROM.count-1]+'"');
662   - Log_Debug('CDROM Informations - OK!');
663   - End;
664   - End;
665   -
666   -
667   - v_mensagem := 'Obtendo Descrição de Modem';
668   - if v_DEVICES.Devices[i].DeviceClass=dcModem then
669   - Begin
670   - if Trim(v_DEVICES.Devices[i].FriendlyName)='' then
671   - v_te_modem_desc := Trim(v_DEVICES.Devices[i].Description)
672   - else
673   - v_te_modem_desc := Trim(v_DEVICES.Devices[i].FriendlyName);
674   -
675   - Log_Debug('MODEM Informations - OK!');
676   - End;
677   -
678   - v_mensagem := 'Obtendo Descrição de Mouse';
679   - if v_DEVICES.Devices[i].DeviceClass=dcMouse then
680   - Begin
681   - if Trim(v_DEVICES.Devices[i].FriendlyName)='' then
682   - v_te_mouse_desc := Trim(v_DEVICES.Devices[i].Description)
683   - else
684   - v_te_mouse_desc := Trim(v_DEVICES.Devices[i].FriendlyName);
685   -
686   - Log_Debug('MOUSE Informations - OK!');
687   - End;
688   -
689   - v_mensagem := 'Obtendo Descrição de Teclado';
690   - if v_DEVICES.Devices[i].DeviceClass=dcKeyboard then
691   - Begin
692   - if Trim(v_DEVICES.Devices[i].FriendlyName)='' then
693   - v_te_teclado_desc := Trim(v_DEVICES.Devices[i].Description)
694   - else
695   - v_te_teclado_desc := Trim(v_DEVICES.Devices[i].FriendlyName);
696   -
697   - Log_Debug('KEYBOARD Informations - OK!');
698   - End;
699   -
700   - v_mensagem := 'Obtendo Descrição de Vídeo';
701   - if v_DEVICES.Devices[i].DeviceClass=dcDisplay then
702   - Begin
703   - if Trim(v_DEVICES.Devices[i].FriendlyName)='' then
704   - v_te_placa_video_desc := Trim(v_DEVICES.Devices[i].Description)
705   - else
706   - v_te_placa_video_desc := Trim(v_DEVICES.Devices[i].FriendlyName);
707   -
708   - Log_Debug('DISPLAY Informations - OK!');
709   - End;
710   -
711   - i := i+1;
712   - End;
713   - except log_diario('Problema em DEVICES Details!');
714   - end;
715   - v_DEVICES.Free;
716   -
717   -
718   - // Memory informations
719   - Try
720   - Begin
721   - v_MemoriaRAM.dwLength := SizeOf(v_MemoriaRAM);
722   - GlobalMemoryStatus(v_MemoriaRAM);
723   - v_qt_mem_ram := v_MemoriaRAM.dwTotalPhys div 1024000;
724   - Log_Debug('MEMORY Informations - OK!');
725   - End;
726   - except log_diario('Problema em MEMORY Details!');
727   - end;
728   -
729   - Try
730   - Begin
731   - v_SMBIOS := TMiTeC_SMBIOS.Create(nil);
732   - v_SMBIOS.RefreshData;
733   - with v_SMBIOS do begin
734   - if v_SMBIOS.MemoryDeviceCount>0 then begin
735   - for i:=0 to v_SMBIOS.MemoryDeviceCount-1 do
736   - if (v_SMBIOS.MemoryDevice[i].Size>0) then begin
737   - if v_SMBIOS.MemoryDevice[i].Device>smmdUnknown then
738   - v_te_mem_ram_tipo:=MemoryDeviceTypes[v_SMBIOS.MemoryDevice[i].Device]
739   - else
740   - v_te_mem_ram_tipo:=MemoryFormFactors[v_SMBIOS.MemoryDevice[i].FormFactor];
741   -
742   - if (v_te_mem_ram_desc <> '') then
743   - v_te_mem_ram_desc := v_te_mem_ram_desc + ' - ';
744   -
745   - v_te_mem_ram_desc := v_te_mem_ram_desc + 'Slot '+ inttostr(i) + ': '
746   - + v_SMBIOS.MemoryDevice[i].Manufacturer + ' '
747   - + inttostr(v_SMBIOS.MemoryDevice[i].Size) + 'MB '
748   - + '(' + v_te_mem_ram_tipo +')';
749   - end;
750   - end
751   - else if v_SMBIOS.MemoryModuleCount > -1 then
752   - Begin
753   - for i:=0 to v_SMBIOS.MemoryModuleCount-1 do begin
754   - if (v_SMBIOS.MemoryModule[i].Size <> 0) then begin
755   - v_te_mem_ram_tipo := v_SMBIOS.GetMemoryTypeStr(v_SMBIOS.MemoryModule[i].Types);
756   - if (v_te_mem_ram_desc <> '') then
757   - v_te_mem_ram_desc := v_te_mem_ram_desc + ' - ';
758   - v_te_mem_ram_desc := v_te_mem_ram_desc + 'Slot '+ inttostr(i) + ': '
759   - + v_SMBIOS.MemoryDevice[i].Manufacturer + ' '
760   - + inttostr(v_SMBIOS.MemoryModule[i].Size) + 'MB '
761   - + '(' + v_te_mem_ram_tipo +')';
762   - end;
763   - end;
764   - end;
765   - end;
766   -
767   - if (trim(v_te_placa_mae_fabricante)='') then begin
768   - v_te_placa_mae_fabricante := v_SMBIOS.MainBoardManufacturer;
769   - if (trim(v_te_placa_mae_fabricante)='') then
770   - v_te_placa_mae_fabricante := v_SMBIOS.SystemManufacturer;
771   - end;
772   -
773   - if (trim(v_te_placa_mae_desc)='') then begin
774   - v_te_placa_mae_desc := v_SMBIOS.MainBoardModel;
775   - if (trim(v_te_placa_mae_desc)='') then
776   - v_te_placa_mae_desc := v_SMBIOS.SystemModel;
777   - end;
778   -
779   -
780   - v_te_bios_data := v_SMBIOS.BIOSDate;
781   - v_te_bios_fabricante := v_SMBIOS.BIOSVendor;
782   - v_te_bios_desc := v_SMBIOS.BIOSVersion;
783   -
784   - v_SMBIOS.Free;
785   - Log_Debug('SMBIOS Informations - OK!');
786   - End;
787   - Except log_diario('Problema em SMBIOS Details!');
788   - End;
789   -
790   - // Display informations
791   - Try
792   - Begin
793   - v_DISPLAY := TMiTeC_Display.Create(nil);
794   - v_DISPLAY.RefreshData;
795   -
796   - if (trim(v_te_placa_video_desc)='') then v_te_placa_video_desc := v_DISPLAY.Adapter;
797   - v_qt_placa_video_cores := IntToStr(v_DISPLAY.ColorDepth);
798   - v_qt_placa_video_mem := IntToStr(v_DISPLAY.Memory div 1048576 ) + 'MB';
799   - v_te_placa_video_resolucao := IntToStr(v_DISPLAY.HorzRes) + 'x' + IntToStr(v_DISPLAY.VertRes);
800   -
801   - v_DISPLAY.Free;
802   - Log_Debug('VIDEO Informations - OK!');
803   - End;
804   - Except log_diario('Problema em VIDEO Details!');
805   - End;
806   -
807   - // Network informations
808   - Try
809   - Begin
810   - v_TCP := TMiTeC_TCPIP.Create(nil);
811   - v_TCP.RefreshData;
812   -
813   - v_mensagem := 'Ativando TCP Getinfo...';
814   -
815   - i := 0;
816   - v_Macs_Invalidos := trim(GetValorDatMemoria('TCPIP.TE_ENDERECOS_MAC_INVALIDOS',v_tstrCipherOpened));
817   -
818   - // Avalia quantidade de placas de rede e obtem respectivos dados
819   - if v_TCP.AdapterCount>0 then
820   - for i:=0 to v_TCP.AdapterCount-1 do begin
821   - v_te_placa_rede_desc := v_TCP.Adapter[i].Name;
822   - v_PhysicalAddress := v_TCP.Adapter[i].Address;
823   - v_IPAddress := v_TCP.Adapter[i].IPAddress[0];
824   - v_IPMask := v_TCP.Adapter[i].IPAddressMask[0];
825   - v_Gateway_IPAddress := v_TCP.Adapter[i].Gateway_IPAddress[0];
826   - v_DHCP_IPAddress := v_TCP.Adapter[i].DHCP_IPAddress[0];
827   - v_PrimaryWINS_IPAddress := v_TCP.Adapter[i].PrimaryWINS_IPAddress[0];
828   - v_SecondaryWINS_IPAddress := v_TCP.Adapter[i].SecondaryWINS_IPAddress[0];
829   -
830   - if (trim( v_te_placa_rede_desc +
831   - v_PhysicalAddress +
832   - v_IPAddress +
833   - v_IPMask +
834   - v_Gateway_IPAddress +
835   - v_DHCP_IPAddress +
836   - v_PrimaryWINS_IPAddress +
837   - v_SecondaryWINS_IPAddress)<>'') then
838   - Begin
839   - v_tstrTCPIP.Add('te_placa_rede_desc###' + v_te_placa_rede_desc +'#FIELD#'+
840   - 'te_node_address###' + v_PhysicalAddress +'#FIELD#'+
841   - 'te_ip###' + v_IPAddress +'#FIELD#'+
842   - 'te_mascara###' + v_IPMask +'#FIELD#'+
843   - 'te_gateway###' + v_Gateway_IPAddress +'#FIELD#'+
844   - 'te_serv_dhcp###' + v_DHCP_IPAddress +'#FIELD#'+
845   - 'te_wins_primario###' + v_PrimaryWINS_IPAddress +'#FIELD#'+
846   - 'te_wins_secundario###' + v_SecondaryWINS_IPAddress);
847   - Log_Debug('Adicionando a tstrTCPIP: "'+v_tstrTCPIP[v_tstrTCPIP.count-1]+'"');
848   - End
849   - End;
850   - v_TCP.Free;
851   - Log_Debug('TCPIP Informations - OK!');
852   - End;
853   - Except log_diario('Problema em TCP Details!');
854   - End;
855   -
856   - // Caso exista a pasta ..temp/debugs, será criado o arquivo diário debug_<coletor>.txt
857   - // Usar esse recurso apenas para debug de coletas mal-sucedidas através do componente MSI-Mitec.
858   - if v_Debugs then
859   - Begin
860   - i := 0;
861   - while i < v_Report.count-1 do
862   - Begin
863   - Grava_Debugs(v_report[i]);
864   - i := i + 1;
865   - End;
866   - v_report.Free;
867   - End;
868   - End;
869   - Except
870   - End;
871   -
872   - // Crio as Tripas dos múltiplos ítens...
873   - v_Tripa_CPU := '';
874   - v_tstrCPU.Sort;
875   - Log_DEBUG('Tamanho de v_tstrCPU 2: '+intToStr(v_tstrCPU.Count));
876   - i := 0;
877   - while (i < v_tstrCPU.Count) do
878   - Begin
879   - v_Tripa_CPU := v_Tripa_CPU + iif(v_Tripa_CPU = '','','#CPU#');
880   - v_Tripa_CPU := v_Tripa_CPU + v_tstrCPU[i];
881   - i := i + 1;
882   - End;
883   -
884   - v_Tripa_CDROM := '';
885   - v_tstrCDROM.Sort;
886   - Log_DEBUG('Tamanho de v_tstrCDROM: '+intToStr(v_tstrCDROM.Count));
887   - i := 0;
888   - while (i < v_tstrCDROM.Count) do
889   - Begin
890   - v_Tripa_CDROM := v_Tripa_CDROM + iif(v_Tripa_CDROM = '','','#CDROM#');
891   - v_Tripa_CDROM := v_Tripa_CDROM + v_tstrCDROM[i];
892   - i := i + 1;
893   - End;
894   -
895   - v_Tripa_TCPIP := '';
896   - v_tstrTCPIP.Sort;
897   - Log_DEBUG('Tamanho de v_tstrTCPIP: '+intToStr(v_tstrTCPIP.Count));
898   - i := 0;
899   - while (i < v_tstrTCPIP.Count) do
900   - Begin
901   - v_Tripa_TCPIP := v_Tripa_TCPIP + iif(v_Tripa_TCPIP = '','','#TCPIP#');
902   - v_Tripa_TCPIP := v_Tripa_TCPIP + v_tstrTCPIP[i];
903   - i := i + 1;
904   - End;
905   -
906   - Try
907   - // Monto a string que será comparada com o valor armazenado no registro.
908   - v_mensagem := 'Montando pacote para comparações...';
909   - UVC := g_oCacic.trimEspacosExcedentes(v_Tripa_TCPIP + ';' +
910   - v_Tripa_CPU + ';' +
911   - v_Tripa_CDROM + ';' +
912   - v_te_mem_ram_desc + ';' +
913   - IntToStr(v_qt_mem_ram) + ';' +
914   - v_te_bios_desc + ';' +
915   - v_te_bios_data + ';' +
916   - v_te_bios_fabricante + ';' +
917   - v_te_placa_mae_fabricante + ';' +
918   - v_te_placa_mae_desc + ';' +
919   - v_te_placa_video_desc + ';' +
920   - v_te_placa_video_resolucao + ';' +
921   - v_qt_placa_video_cores + ';' +
922   - v_qt_placa_video_mem + ';' +
923   - v_te_placa_som_desc + ';' +
924   - v_te_teclado_desc + ';' +
925   - v_te_modem_desc + ';' +
926   - v_te_mouse_desc);
927   - Except log_diario('Problema em comparação de envio!');
928   - End;
929   -
930   - // Obtenho do registro o valor que foi previamente armazenado
931   - ValorChaveRegistro := Trim(GetValorDatMemoria('Coletas.Hardware',v_tstrCipherOpened));
932   -
933   - SetValorDatMemoria('Col_Hard.Fim' , FormatDateTime('hh:nn:ss', Now), v_tstrCipherOpened1);
934   -
935   - // Se essas informações forem diferentes significa que houve alguma alteração
936   - // na configuração de hardware. Nesse caso, gravo as informações no BD Central
937   - // e, se não houver problemas durante esse procedimento, atualizo as
938   - // informações no registro.
939   - If (GetValorDatMemoria('Configs.IN_COLETA_FORCADA_HARD',v_tstrCipherOpened)='S') or
940   - (g_oCacic.trimEspacosExcedentes(UVC) <> g_oCacic.trimEspacosExcedentes(ValorChaveRegistro)) Then
941   - Begin
942   - Try
943   - //Envio via rede para ao Agente Gerente, para gravação no BD.
944   - SetValorDatMemoria('Col_Hard.te_Tripa_TCPIP' , g_oCacic.trimEspacosExcedentes( v_Tripa_TCPIP ), v_tstrCipherOpened1);
945   - SetValorDatMemoria('Col_Hard.te_Tripa_CPU' , g_oCacic.trimEspacosExcedentes( v_Tripa_CPU ), v_tstrCipherOpened1);
946   - SetValorDatMemoria('Col_Hard.te_Tripa_CDROM' , g_oCacic.trimEspacosExcedentes( v_Tripa_CDROM ), v_tstrCipherOpened1);
947   - SetValorDatMemoria('Col_Hard.te_placa_mae_fabricante' , g_oCacic.trimEspacosExcedentes( v_te_placa_mae_fabricante ) , v_tstrCipherOpened1);
948   - SetValorDatMemoria('Col_Hard.te_placa_mae_desc' , g_oCacic.trimEspacosExcedentes( v_te_placa_mae_desc ) , v_tstrCipherOpened1);
949   - SetValorDatMemoria('Col_Hard.qt_mem_ram' , g_oCacic.trimEspacosExcedentes( IntToStr(v_qt_mem_ram) ) , v_tstrCipherOpened1);
950   - SetValorDatMemoria('Col_Hard.te_mem_ram_desc' , g_oCacic.trimEspacosExcedentes( v_te_mem_ram_desc ) , v_tstrCipherOpened1);
951   - SetValorDatMemoria('Col_Hard.te_bios_desc' , g_oCacic.trimEspacosExcedentes( v_te_bios_desc ) , v_tstrCipherOpened1);
952   - SetValorDatMemoria('Col_Hard.te_bios_data' , g_oCacic.trimEspacosExcedentes( v_te_bios_data ) , v_tstrCipherOpened1);
953   - SetValorDatMemoria('Col_Hard.te_bios_fabricante' , g_oCacic.trimEspacosExcedentes( v_te_bios_fabricante ) , v_tstrCipherOpened1);
954   - SetValorDatMemoria('Col_Hard.qt_placa_video_cores' , g_oCacic.trimEspacosExcedentes( v_qt_placa_video_cores ) , v_tstrCipherOpened1);
955   - SetValorDatMemoria('Col_Hard.te_placa_video_desc' , g_oCacic.trimEspacosExcedentes( v_te_placa_video_desc ) , v_tstrCipherOpened1);
956   - SetValorDatMemoria('Col_Hard.qt_placa_video_mem' , g_oCacic.trimEspacosExcedentes( v_qt_placa_video_mem ) , v_tstrCipherOpened1);
957   - SetValorDatMemoria('Col_Hard.te_placa_video_resolucao', g_oCacic.trimEspacosExcedentes( v_te_placa_video_resolucao ) , v_tstrCipherOpened1);
958   - SetValorDatMemoria('Col_Hard.te_placa_som_desc' , g_oCacic.trimEspacosExcedentes( v_te_placa_som_desc ) , v_tstrCipherOpened1);
959   - SetValorDatMemoria('Col_Hard.te_teclado_desc' , g_oCacic.trimEspacosExcedentes( v_te_teclado_desc ) , v_tstrCipherOpened1);
960   - SetValorDatMemoria('Col_Hard.te_mouse_desc' , g_oCacic.trimEspacosExcedentes( v_te_mouse_desc ) , v_tstrCipherOpened1);
961   - SetValorDatMemoria('Col_Hard.te_modem_desc' , g_oCacic.trimEspacosExcedentes( v_te_modem_desc ) , v_tstrCipherOpened1);
962   - SetValorDatMemoria('Col_Hard.UVC' , g_oCacic.trimEspacosExcedentes( UVC ) , v_tstrCipherOpened1);
963   - CipherClose(g_oCacic.getCacicPath + 'temp\col_hard.dat', v_tstrCipherOpened1);
964   - Except log_diario('Problema em gravação de dados no DAT!');
965   - End;
966   - end
967   - else
968   - Begin
969   - SetValorDatMemoria('Col_Hard.nada','nada', v_tstrCipherOpened1);
970   - SetValorDatMemoria('Col_Hard.Fim' , FormatDateTime('hh:nn:ss', Now), v_tstrCipherOpened1);
971   - CipherClose(g_oCacic.getCacicPath + 'temp\col_hard.dat', v_tstrCipherOpened1);
972   - End;
973   - Except
974   - Begin
975   - SetValorDatMemoria('Col_Hard.nada','nada', v_tstrCipherOpened1);
976   - SetValorDatMemoria('Col_Hard.Fim' , '99999999', v_tstrCipherOpened1);
977   - CipherClose(g_oCacic.getCacicPath + 'temp\col_hard.dat', v_tstrCipherOpened1);
978   - log_diario('Problema na execução => ' + v_mensagem);
979   - End;
980   - End;
981   - g_oCacic.Free();
982   -end;
983   -
984   -// ATENÇÃO: Caso haja falha na execução deste agente pela estação de trabalho,
985   -// a provável causa será a falta da Runtime Library RTL70.BPL, que
986   -// costuma ser "confundida" com vírus e apagada por alguns anti-vírus
987   -// como o Avasti.
988   -// SOLUÇÃO: Baixar a partir do endereço http://nwvault.ign.com/View.php?view=Other.Detail&id=119 o pacote
989   -// D70_Installer.zip, descompactar e executar na estação de trabalho.
990   -var strAux : String;
991   -const CACIC_APP_NAME = 'col_hard';
992   -begin
993   - g_oCacic := TCACIC.Create();
994   - g_oCacic.setBoolCipher(true);
995   -
996   - if( not g_oCacic.isAppRunning( CACIC_APP_NAME ) ) then
997   - if (ParamCount>0) then
998   - Begin
999   - strAux := '';
1000   - For intAux := 1 to ParamCount do
1001   - Begin
1002   - if LowerCase(Copy(ParamStr(intAux),1,11)) = '/cacicpath=' then
1003   - begin
1004   - strAux := Trim(Copy(ParamStr(intAux),12,Length((ParamStr(intAux)))));
1005   - //log_DEBUG('Parâmetro /CacicPath recebido com valor="'+strAux+'"');
1006   - end;
1007   - end;
1008   -
1009   - if (strAux <> '') then
1010   - Begin
1011   - g_oCacic.setCacicPath(strAux);
1012   -
1013   - v_tstrCipherOpened := TStrings.Create;
1014   - v_tstrCipherOpened := CipherOpen(g_oCacic.getCacicPath + g_oCacic.getDatFileName);
1015   -
1016   - v_tstrCipherOpened1 := TStrings.Create;
1017   - v_tstrCipherOpened1 := CipherOpen(g_oCacic.getCacicPath + 'temp\col_hard.dat');
1018   -
1019   - Try
1020   - Executa_Col_Hard;
1021   - Except
1022   - SetValorDatMemoria('Col_Hard.nada', 'nada', v_tstrCipherOpened1);
1023   - CipherClose(g_oCacic.getCacicPath + 'temp\col_hard.dat', v_tstrCipherOpened1);
1024   - End;
1025   - Halt(0);
1026   - End;
1027   - End;
1028   -end.
col_hard/col_hard.res
View file @eb8d42d
No preview for this file type
col_hard/col_hard_icon.ico
View file @eb8d42d
No preview for this file type