A Microsoft tem uma tecnologia menos conhecido chamado HTA (Aplicação HTML). Basicamente, ele dá os scripts um front-end GUI usando a notação HTML. Conheço HTA há anos, mas nunca dar a volta a tentar. Enquanto eu estava pensando em escrever um script para verificar os processos em execução em um computador, eu pensei que seria bom se eu posso escrevê-lo usando HTA. Aqui é a minha experiência.

Como administrador do sistema, muitas vezes eu preciso verificar máquina do usuário para programas maliciosos. O processo manual é assim. Eu abrir o Gerenciador de tarefas e procurar alguma coisa que eu não estou familiarizado. Quando eu identificar os processos suspeitos, então eu abrir um navegador para verificar os processos. Os dois sites que eu uso regularmente são ProcessLibrary.com e Google. Eu preciso inserir o nome do processo manualmente e todo o processo é tedioso.

A idéia é essa, eu quero escrever um script simples para listar todos os processos em execução no computador. Eu quero apresentar os resultados em uma tabela HTML com links para ProcessLibrary e Google. Se eu precisar verificar um processo particular, eu basta clicar no link correspondente, sem inserir manualmente o nome do processo.

Antes de começar a escrever o roteiro, eu encontrei um script a partir de ScriptingGuys em grupos MSN. O script original mostra os processos em execução em um computador local. Eu modifiquei-lo para que ele possa verificar se os computadores remotos, e eu também acrescentou links para encontrar informações de processo em ProcessLibrary.com e Google.

Aqui está o link para o script. WordPress.com não permite fazer upload de arquivo hta., Assim que o arquivo foi enviado como um arquivo de documento de texto com extensão doc.. Clique no link e salve o arquivo como checkprocess.doc. Em seguida, mude o nome para checkprocess.hta, e você está pronto para tentar.

Para executá-lo, dê um duplo clique sobre o arquivo, assim como as outras aplicações. Ele abre uma janela como esta.

Você pode digitar o nome do computador remoto na caixa de texto, ou você pode simplesmente clicar no botão Run Script para verificar o computador local. Em seguida, encher a parte inferior da janela, com processos.

Para verificar uma determinada informação de processo, clique nos links da pesquisa ao lado dele. A aplicação traria um navegador com os resultados da pesquisa.

Eu estou brincando com WQL hoje. Por um tempo, eu não poderia começar esta consulta para o trabalho.

 Definir colFiles = objWMIService.ExecQuery ("SELECT * FROM CIM_DataFile" & _ "em que unidade = 'c:' AND Extension =" mdb "E Path =" \ \ windows \ \ '") 

Você já notou algo errado com a consulta? É o caminho! Descobri que você precisa usar dupla barra invertida em vez de uma única barra invertida. Assim, a consulta correta deveria ser assim.

  Definir colFiles = objWMIService.ExecQuery ("SELECT * FROM CIM_DataFile" & _

    "ONDE Unidade = 'c:' AND Extension =" mdb "E Path = '\ \ \ \ windows \ \ \ \'") 

Além disso, descobri que se você tem! "=" Em sua consulta, a consulta é executada muito lentamente.

Alguém no newsgroup esta pergunta. Este é o VBScript que eu escrevi para alcançar este objetivo.

  Dim objExcel

 Definir objExcel = WScript.CreateObject ("Excel.Application")



 objExcel.Visible = TRUE

 objExcel.Workbooks.Open "C: \ \ bintest.xls"

 objExcel.Workbooks (1). Ative

 objExcel.Workbooks (1). Worksheets (1). Range ("A1"). Selecione



 Dim sLinkAddress

 sLinkAddress = "http://www.google.com"



 objExcel.Workbooks (1). Worksheets (1). Hyperlinks.Add _

     objExcel.Selection, sLinkAddress

 objExcel.Workbooks (1) Salvar como. "C: \ \ bintest.xls"

 objExcel.Quit



 definir objExcel = nada 

  Função Encontrado (strTarget, strPattern)

   Dim regex

   Definir regex = New RegExp

   regEx.Pattern = strPattern

   regEx.IgnoreCase = False

   Encontrado = regEx.Test (strTarget)

   definir regex = Nothing

 End Function 

  dtDate = "2005/05/02"

 strSearchFolder = "C: Windows"



 Definir objFSO = CreateObject ("Scripting.FileSystemObject")

 WScript.Echo "File (s) último acesso em:" & dtDate & "em:" & strSearchFolder

 EnumAndCheckFiles objFSO.GetFolder (strSearchFolder), dtDate



 Sub EnumAndCheckFiles (objFolder, dtDate)

     Definir objFiles = objFolder.Files

     Para cada objFile em objFiles

     CheckFile objFile, dtDate

     Próximo

     Para cada objSubfolder em objFolder.SubFolders

         EnumAndCheckFiles objSubfolder, dtDate

     Próximo

 End Sub



 Sub CheckFile (objFile, dtDate)

     Se DifData ("d", objFile.DateLastAccessed, dtDate) = 0 Then

         WScript.Echo objFile.Path

     End if

 End Sub