none
Log, sempre Log RRS feed

  • Pergunta

  • Ba galera

    Ja estou ficando sem cabelos de tanto log, agora estou a procura de um cod que va nas chaves de registro x y z conforme o exemplo que vou colocar a baixo, e verificar se existe ou nao e criar um log com o nome dessa chave falando existe ou um linha colocando o nome da chave falando não existe.

    As chaves são nesse padrão.
    HKLM,"SOFTWARE\Microsoft\Updates\Windows XP\SP4\KB958644


    Eu estava tentando fazer assim mais estou sem sucesso ainda, e sem saber como colocar ou aonde colocar a parte a chave não existe.

    Set FileSystem = WScript.CreateObject("Scripting.FileSystemObject")
    Set OutPutFile = FileSystem.OpenTextFile("LOGS.log", 8, True, 0)
    OutPutFile.WriteLine "******** Verificação do Registro ******** " & now & vbCrLf

    Const HKLM = &H80000002
    set objshell = createobject("wscript.shell")
     strComputer = "."
     Set oReg=GetObject("winmgmts:\\" & _
       strComputer & "\root\default:StdRegProv")
     
    oReg.GetStringValue HKLM,"SOFTWARE\Microsoft\Updates\Windows XP\SP4\KB958644",strValue

    If IsNull(strValue) Then
        OutPutFile.WriteLine "A chave existe: " Aqui o que colocar  & vbCrLf
    End If

    Valeu galera

    sexta-feira, 28 de agosto de 2009 22:17

Respostas

  • Olá,

    Verifique o script abaixo:

    Set FileSystem = WScript.CreateObject("Scripting.FileSystemObject")
    Set OutPutFile = FileSystem.OpenTextFile("LOGS.log", 8, True, 0)
    OutPutFile.WriteLine "******** Verificação do Registro ******** " & now & vbCrLf

    Const HKLM = &H80000002
    strCHAVE = "SOFTWARE\Microsoft\Updates\Windows XP\SP4\KB958644"
    set objshell = createobject("wscript.shell")
     strComputer = "."
     Set oReg=GetObject("winmgmts:\\" & _
       strComputer & "\root\default:StdRegProv")
     
    oReg.EnumValues HKLM,strChave,strValue


    If isArray(strValue) = 0 Then
        OutPutFile.WriteLine "A chave nao existe: " & strChave & vbCrLf
    Else
        OutPutFile.WriteLine "A chave existe: " & strChave & vbCrLf
    End If


    Até mais,

    Jesiel

    Obs.: Se útil, classifique


    • Marcado como Resposta Marcelo TI segunda-feira, 31 de agosto de 2009 10:45
    domingo, 30 de agosto de 2009 12:49

Todas as Respostas

  • Olá,

    Verifique o script abaixo:

    Set FileSystem = WScript.CreateObject("Scripting.FileSystemObject")
    Set OutPutFile = FileSystem.OpenTextFile("LOGS.log", 8, True, 0)
    OutPutFile.WriteLine "******** Verificação do Registro ******** " & now & vbCrLf

    Const HKLM = &H80000002
    strCHAVE = "SOFTWARE\Microsoft\Updates\Windows XP\SP4\KB958644"
    set objshell = createobject("wscript.shell")
     strComputer = "."
     Set oReg=GetObject("winmgmts:\\" & _
       strComputer & "\root\default:StdRegProv")
     
    oReg.EnumValues HKLM,strChave,strValue


    If isArray(strValue) = 0 Then
        OutPutFile.WriteLine "A chave nao existe: " & strChave & vbCrLf
    Else
        OutPutFile.WriteLine "A chave existe: " & strChave & vbCrLf
    End If


    Até mais,

    Jesiel

    Obs.: Se útil, classifique


    • Marcado como Resposta Marcelo TI segunda-feira, 31 de agosto de 2009 10:45
    domingo, 30 de agosto de 2009 12:49
  • Ba Jesiel

    Bom dia..

    Muito melhor do que estava tentando com o outro cod..

    Valeu pela ajuda.

    Abraço...
    segunda-feira, 31 de agosto de 2009 10:45