none
VBS - Registrar Chave RRS feed

  • Pergunta

  • 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

  • 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

  • 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
  • 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
  • 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