none
VBS - Registrar Chave RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Boa Noite

    Preciso criar um Vbs para registrar esta chave.

    Windows Registry Editor Version 5.00

    [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa\Kerberos]
    "CRLTimeoutPeriod"=dword:600
    "UseCachedCRLOnlyAndIgnoreRevocationUnknownErrors"=dword:1

    Grato

    Nielsen R de Almeida

     

     

     

     

    quinta-feira, 20 de maio de 2010 03:26
    |

Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Segue o script.

    Const HKEY_LOCAL_MACHINE = &H80000002

    strComputer = "."
     
    Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
        strComputer & "\root\default:StdRegProv")
     
    strKeyPath = "SYSTEM\CurrentControlSet\Control\Lsa\Kerberos"
    strValueName = "CRLTimeoutPeriod"
    dwValue = 600
    oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
     
    strValueName = "UseCachedCRLOnlyAndIgnoreRevocationUnknownErrors"
    dwValue = 82
    oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue

    Como vc está rodando esse script?

    Se for na conta de usuário comum nas configurações de usuário da GPO não vai rodar mesmo.

    Qualquer dúvida poste e se for útil vote.

    Abraço.

    Gabriel Nascimento MCP / MCSA / CCNA http://gabrielnascimentoit.spaces.live.com -- Se for útil vote.
    quinta-feira, 20 de maio de 2010 13:29
    |

Todas as Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Salve essa chave que vc deseja importar como .reg e o script abaixo como .vbs

    Set wshell = CreateObject("WScript.Shell")

    wshell.Run "regedit /s \\server\share\suachave.reg",hidden

    Abraço.

    Gabriel Nascimento MCP / MCSA / CCNA http://gabrielnascimentoit.spaces.live.com -- Se for útil vote.
    quinta-feira, 20 de maio de 2010 11:15
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Bom Dia

    Esses não funciona ja tinha validado, precisa-va de um Vbs com as informação no Registro.

     

    Grato

    Nielsen R de Almeida

     

     

    quinta-feira, 20 de maio de 2010 13:13
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Segue o script.

    Const HKEY_LOCAL_MACHINE = &H80000002

    strComputer = "."
     
    Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
        strComputer & "\root\default:StdRegProv")
     
    strKeyPath = "SYSTEM\CurrentControlSet\Control\Lsa\Kerberos"
    strValueName = "CRLTimeoutPeriod"
    dwValue = 600
    oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue
     
    strValueName = "UseCachedCRLOnlyAndIgnoreRevocationUnknownErrors"
    dwValue = 82
    oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue

    Como vc está rodando esse script?

    Se for na conta de usuário comum nas configurações de usuário da GPO não vai rodar mesmo.

    Qualquer dúvida poste e se for útil vote.

    Abraço.

    Gabriel Nascimento MCP / MCSA / CCNA http://gabrielnascimentoit.spaces.live.com -- Se for útil vote.
    quinta-feira, 20 de maio de 2010 13:29
    |