none
Procurar chave no registro do windows RRS feed

  • Pergunta

  • Boa Tarde Galera,

     

    Tenho o script abaixo que funciona ok, porem gostaria de adicionar uma condição que só adicione a chave no registro caso ela não exista.

     

    valeu.

     

    On Error Resume Next
    
    Const HKEY_CURRENT_USER = &H80000001
    
    strComputer = "."
    Set objReg=GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
    strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\" _
      & "ZoneMap\Domains\*.<dominio>"
    
    if strKeyPath 
    	objReg.CreateKey HKEY_CURRENT_USER, strKeyPath
    
    strValueName = "file"
    dwValue = 1
    
    objReg.SetDWORDValue HKEY_CURRENT_USER, strKeyPath, strValueName, dwValue
    


    Douglas Oliveira Admin Rede []
    sexta-feira, 4 de fevereiro de 2011 14:54