criando arquivo a partir da listagem dos servicos

• Pergunta

• 

  

  0

  Entrar para Votar

  pessoal usei o codigo que pegamos no script guy da microsoft e ele joga o resultado na tela
  o que eu deveria utilizar para gravar o resulta em arquivo ?
  
  strComputer = "."
  Set objWMIService = GetObject("winmgmts:" _
      & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
  
  Set colQuickFixes = objWMIService.ExecQuery _
      ("Select * from Win32_QuickFixEngineering")
  
  For Each objQuickFix in colQuickFixes
      Wscript.Echo "Computer: " & objQuickFix.CSName
      Wscript.Echo "Description: " & objQuickFix.Description
      Wscript.Echo "Hot Fix ID: " & objQuickFix.HotFixID
      Wscript.Echo "Installation Date: " & objQuickFix.InstallDate
      Wscript.Echo "Installed By: " & objQuickFix.InstalledBy
  Next
  
  
  hoje vi a seguinte classe para criacao de arquivos
  
  Sub CreateAfile
  Set fs = CreateObject("Scripting.FileSystemObject")
  Set a = fs.CreateTextFile("c:\scripts\testfile.txt", True)
  a.WriteLine("This is a test.")
  a.Close
  End Sub
  
  abracos,
  
  Thiago
  

  terça-feira, 14 de outubro de 2008 17:50

  Responder

  |

  Citação