elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Security Series.XSS. [Cross Site Scripting]


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  Lectura de valores de registro limitada a 120 ????
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Lectura de valores de registro limitada a 120 ????  (Leído 1,713 veces)
jarpon

Desconectado Desconectado

Mensajes: 28


Ver Perfil
Lectura de valores de registro limitada a 120 ????
« en: 25 Noviembre 2022, 13:52 pm »

Buenos dias

Estoy leyendo valores REG_MULIT_SZ con vbs y los guardo en una array de 300x3.

tengo un clave y dentro 10 subclaves y dentro de cada subclave unos valores entre 1 y 30, en total hay aproimadamente unos 150 valores.

Cuando los leo todos siempre se para en 120 valores y de ahi no pasa, no me da ningun error.

He probado de eliminar una subclave con 33 valores y entonces llega al final de la ultima subclave leyendo sus valores, parece como estar limitado a 120 valores.

Necesitaria una ayudita, GRACIAS

Aqui os dejo el codigo:

HKEY_LOCAL_MACHINE = &H80000002
KeyPath="SOFTWARE\WOW6432Node\NumReg"

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &"." & "\root\default:StdRegProv")

oReg.EnumKey HKEY_LOCAL_MACHINE, KeyPath, arrSubKeys
Set oReg=Nothing
i=0

For n=0 to ubound(arrSubKeys)
   Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &"." & "\root\default:StdRegProv")
   objReg.enumValues HKEY_LOCAL_MACHINE, keyPath+"\"+arrSubKeys(n), ValueNames, "REG_MULIT_SZ"
   Set oReg=Nothing
   j=0
   For i=i to i+ubound(ValueNames)
      set WS = CreateObject("Wscript.Shell")
      arValues=WS.RegRead("HKLM\"+KeyPath+"\"+arrSubKeys(n)+"\"+ValueNames(j))
      Set WS=Nothing
      DiagnosticWindowNumStr(i)     =CStr(ValueNames(j))
      For k=1 to ubound(arValues)+1
          DiagnosticWindowNumValue(0,i)=CSng(ESAHMI.ESATAG.READVALUE(ValueNames(j)))   'Save current register value.
         DiagnosticWindowNumValue(k,i)=CSng(arValues(k-1))   'Save minimum/maximun register allowed value.
      Next
      j=j+1
   Next
Next


En línea

jarpon

Desconectado Desconectado

Mensajes: 28


Ver Perfil
Re: Lectura de valores de registro limitada a 120 ????
« Respuesta #1 en: 25 Noviembre 2022, 19:52 pm »

He eliminado todos los trazadores que tenia intermedios para seguir en pantalla los valores y claves que iba leyeno y funciona correctamete.

Seguramente no le sienta bien esos retardos, pero no lo entiendo.


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Valores del registro
Programación Visual Basic
Kizar 1 3,202 Último mensaje 27 Octubre 2005, 20:28 pm
por Kizar
foto lectura, y lectura veloz, scanning y otros metodos de lectura rapida....
Foro Libre
Kase 3 12,953 Último mensaje 4 Febrero 2014, 08:47 am
por camilo_
mostrar los valores de una key del registro de windows
Programación C/C++
andres_89a 3 3,197 Último mensaje 1 Octubre 2012, 18:05 pm
por Eternal Idol
Duda con valores de registro
Windows
Meine programmen 3 2,626 Último mensaje 28 Diciembre 2012, 14:23 pm
por Meine programmen
Buscar valores en el Registro de windows....
.NET (C#, VB.NET, ASP)
**Aincrad** 2 2,543 Último mensaje 30 Julio 2018, 19:13 pm
por **Aincrad**
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines