none
Duvida RRS feed

  • Pergunta

  • Galera,

       Tenho um script.vbs.Como eu faço para colocar no script este itens abaixo.

    [HKEY_LOCAL_MACHINE\SOFTWARE\ESET\ESET Security\CurrentVersion\Plugins\01000400\Profiles\@My profile]
    "Username"="EAV-1111111"
    "Password"=hex:11,d6,a4,e9,ee,f0,9d,f2,3a,64,47,ad,d6,c8,6c,00,9e,31,41,bc
    "MirrorFolder"="C:\\Documents and Settings\\All Users\\Dados de aplicativos\\ESET\\ESET NOD32 Antivirus\\mirror"

       Obrigado
    Fabio Costa
    sexta-feira, 24 de abril de 2009 18:13

Respostas

  • Olá,

    Fabio, Segue abaixo um exemplo:

    Const HKEY_CURRENT_USER = &H80000001
    Set objRegistry = _
       GetObject("Winmgmts:root\default:StdRegProv")

    strPath = "Software\Chave"
    uBinary = Array(1,2,3,4,5,6,7,8)
    Return = objRegistry.SetBinaryValue(HKEY_CURRENT_USER, _
       strPath, _
       "MyBinaryNamedValue", _
       uBinary)

    If (Return = 0) And (Err.Number = 0) Then
        Wscript.Echo "Binary value added successfully"
    Else
        ' An error occurred
    End If

    Faça os testes e nos retorne.

    Até mais,

    Jesiel

    Obs.: Se útil, classifique
    • Marcado como Resposta Fabio Costa - TI quinta-feira, 15 de julho de 2010 15:46
    quinta-feira, 30 de abril de 2009 20:41

Todas as Respostas

  • Olá Fábio, vc é de Brasilia? Conheço um Fabi Costa em Brasília...

    Vamos lá, vc pode fazer o seguinte:


    Const HKEY_CURRENT_USER = &H80000001
    strComputer = "."
    Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
     
    strKeyPath = "SOFTWARE\ESET\ESET Security\CurrentVersion\Plugins\01000400\Profiles\@My profile"
    strValueName = "Username"
    dwValue = "EAV-1111111"
    oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue

    E assim vai...

    Abraços,

    Marcelo.

    Obs.: Se foi útil/respondeu, classifique.


    Marcelo Braga -- Um discipulo de Jesus -- MCT/ MCSA/ MCITP/ MCTS Exchange 2007. http://WindowsServer-AD.blogspot.com
    domingo, 26 de abril de 2009 04:24
  • Mas como eu faço para modificar o registro binario. Alguém pode me ajudar ?
    Fabio Costa Rio de Janeiro-RJ
    quinta-feira, 30 de abril de 2009 14:21
  • Olá,

    Fabio, Segue abaixo um exemplo:

    Const HKEY_CURRENT_USER = &H80000001
    Set objRegistry = _
       GetObject("Winmgmts:root\default:StdRegProv")

    strPath = "Software\Chave"
    uBinary = Array(1,2,3,4,5,6,7,8)
    Return = objRegistry.SetBinaryValue(HKEY_CURRENT_USER, _
       strPath, _
       "MyBinaryNamedValue", _
       uBinary)

    If (Return = 0) And (Err.Number = 0) Then
        Wscript.Echo "Binary value added successfully"
    Else
        ' An error occurred
    End If

    Faça os testes e nos retorne.

    Até mais,

    Jesiel

    Obs.: Se útil, classifique
    • Marcado como Resposta Fabio Costa - TI quinta-feira, 15 de julho de 2010 15:46
    quinta-feira, 30 de abril de 2009 20:41