none
WshShell.RegRead RRS feed

  • Pergunta

  • Ola turma, antes de mais nada agradeço a atenção e a ajuda!

     

    Bem o meu problema esta sendo com um script que estou criando para me retornar o valor de uma chave, mas esta dando erro e não sei mas o que fazer.

    o script é este abaixo.

     

    Option Explicit


    Dim SysVarReg1, SysVarReg2, regscrrun, regwshom

    Set SysVarReg1 = WScript.CreateObject("WScript.Shell")
    regscrrun = SysVarReg1.RegRead("HKCR\CLSID\"&"{"&"0CF774D0-F077-11D1-B1BC-00C04F86C324"&"}"&"\InprocServer32\(Default)")

    Set SysVarReg2 = WScript.CreateObject("WScript.Shell")
    regwshom = SysVarReg2.RegRead("HKCR\CLSID\{093FF999-1EA0-4079-9525-9614C3504B74}\InprocServer32\(Default)")


    WScript.Echo regscrrun
    WScript.Echo regwshom

     

    Muito obrigado a todos

    quarta-feira, 8 de junho de 2011 19:11

Respostas

  • Você quer ler o valor default, é só passar o nome da chave que ele lê esse valor .(apague o (Default))

    Option Explicit
    
    
    Dim SysVarReg1, SysVarReg2, regscrrun, regwshom
    
    Set SysVarReg1 = WScript.CreateObject("WScript.Shell")
    regscrrun = SysVarReg1.RegRead("HKCR\CLSID\"&"{"&"0CF774D0-F077-11D1-B1BC-00C04F86C324"&"}"&"\InprocServer32\")
    
    Set SysVarReg2 = WScript.CreateObject("WScript.Shell")
    regwshom = SysVarReg2.RegRead("HKCR\CLSID\{093FF999-1EA0-4079-9525-9614C3504B74}\InprocServer32\")
    
    
    WScript.Echo regscrrun
    WScript.Echo regwshom
    
    
    

    Fábio de Paula Junior
    quinta-feira, 9 de junho de 2011 11:47
    Moderador

Todas as Respostas

  • Você quer ler o valor default, é só passar o nome da chave que ele lê esse valor .(apague o (Default))

    Option Explicit
    
    
    Dim SysVarReg1, SysVarReg2, regscrrun, regwshom
    
    Set SysVarReg1 = WScript.CreateObject("WScript.Shell")
    regscrrun = SysVarReg1.RegRead("HKCR\CLSID\"&"{"&"0CF774D0-F077-11D1-B1BC-00C04F86C324"&"}"&"\InprocServer32\")
    
    Set SysVarReg2 = WScript.CreateObject("WScript.Shell")
    regwshom = SysVarReg2.RegRead("HKCR\CLSID\{093FF999-1EA0-4079-9525-9614C3504B74}\InprocServer32\")
    
    
    WScript.Echo regscrrun
    WScript.Echo regwshom
    
    
    

    Fábio de Paula Junior
    quinta-feira, 9 de junho de 2011 11:47
    Moderador
  • Grande Fabio !

    Valeu cara, funcionou, muito obrigado pela sua ajuda! 

     

     

    quinta-feira, 9 de junho de 2011 12:32