none
criando arquivo a partir da listagem dos servicos RRS feed

  • Pergunta

  • 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

Respostas

  • Olá,


    é relativamente simples combinar os dois, mas se quiser uma forma mais fácil ainda, basta executar o primeiro script na linha de comando e redirecionar a saída dele para um arquivo texto:


    cscript hotfix.vbs > lista.txt



    []s,

    Vinicius Canto
    MVP Windows Server - Admin Frameworks
    Blog sobre scripting: http://viniciuscanto.blogspot.com

    • Marcado como Resposta Richard Juhasz sexta-feira, 11 de maio de 2012 17:14
    quarta-feira, 15 de outubro de 2008 12:28
    Moderador