VBS y regedit

Iniciado por Azielito, 13 Septiembre 2007, 16:56 PM

0 Miembros y 1 Visitante están viendo este tema.

Azielito

soy malo para el VB >.<

lo que no entiendo es como hacer unas entradas al registro, tengo el archivo *.reg y cuando lo abro me marca error de no se que =Z pero cuando yo tengo un arhcivo que modifica el registro desde un *.vbs lo hace y sin problemas =)

ahora, tengo este archivo *.reg
Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\WPAEvents]
"OOBETimer"=hex:ff,d5,71,d6,8b,6a,8d,6f,d5,33,93,fd
"LastWPAEventLogged"=hex:d5,07,05,00,06,00,07,00,0f,00,38,00,24,00,fd,02

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion]
"CurrentBuild"="1.511.1 () (Obsolete data - do not use)"
"InstallDate"=dword:427cdd95
"ProductId"="69831-640-1780577-45389"
"DigitalProductId"=hex:a4,00,00,00,03,00,00,00,36,39,38,33,31,2d,36,34,30,2d,\
  31,37,38,30,35,37,37,2d,34,35,33,38,39,00,5a,00,00,00,41,32,32,2d,30,30,30,\
  30,31,00,00,00,00,00,00,00,00,0d,04,89,b2,15,1b,c4,ee,62,4f,e6,64,6f,01,00,\
  00,00,00,00,27,ed,85,43,a2,20,01,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
  00,00,00,00,00,00,00,00,00,00,00,31,34,35,30,34,00,00,00,00,00,00,00,ce,0e,\
  00,00,12,42,15,a0,00,08,00,00,87,01,00,00,00,00,00,00,00,00,00,00,00,00,00,\
  00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,94,a2,b3,ac
"LicenseInfo"=hex:9e,bf,09,d0,3a,76,a5,27,bb,f2,da,88,58,ce,58,e9,05,6b,0b,82,\
  c3,74,ab,42,0d,fb,ee,c3,ea,57,d0,9d,67,a5,3d,6e,42,0d,60,c0,1a,70,24,46,16,\
  0a,0a,ce,0d,b8,27,4a,46,53,f3,17


Lo que quiero saber es como "traducirlo" a vbs, como algo que tengo en este archivo
Código (vb) [Seleccionar]
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", 1, "REG_DWORD"
WshShell.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", 1, "REG_DWORD"


De antemano gracias =)





ya tengo esto, espero que este bien
pero en el otro lo le entiendo =\ o sea, las clases que faltan xD

Código (VB) [Seleccionar]
Dim registro
Set registro = WScript.CreateObject(WScript.Shell")
registro.RegWrite "HKLM\Software\Microsoft\Windows\CurrenVersion\WPAEvents\OOBeTimer","ff,d5,71,d6,8b,6a,8d,6f,d5,33,93,fd","Hex"
registro.RegWrite "HKLM\Software\Microsoft\Windows\CurrenVersion\WPAEvents\LastWPAEventLogged","d5,07,05,00,06,00,07,00,0f,00,38,00,24,00,fd,02","Hex"
registro.RegWrite "HKLM\Software\Microsoft\Windows\CurrenVersion\CurrentBuild","1.511.1 () (Obsolete data - do not use)","REG_SZ"
registro.RegWrite "HKLM\Software\Microsoft\Windows\CurrenVersion\InstallDate","427cdd95","REG_DWORD"
registro.RegWrite "HKLM\Software\Microsoft\Windows\CurrenVersion\InstallDate","69831-640-1780577-45389","REG_SZ"


y este es el que no se como agregarlo =S

"DigitalProductId"=hex:a4,00,00,00,03,00,00,00,36,39,38,33,31,2d,36,34,30,2d,\
  31,37,38,30,35,37,37,2d,34,35,33,38,39,00,5a,00,00,00,41,32,32,2d,30,30,30,\
  30,31,00,00,00,00,00,00,00,00,0d,04,89,b2,15,1b,c4,ee,62,4f,e6,64,6f,01,00,\
  00,00,00,00,27,ed,85,43,a2,20,01,00,00,00,00,00,00,00,00,00,00,00,00,00,00,\
  00,00,00,00,00,00,00,00,00,00,00,31,34,35,30,34,00,00,00,00,00,00,00,ce,0e,\
  00,00,12,42,15,a0,00,08,00,00,87,01,00,00,00,00,00,00,00,00,00,00,00,00,00,\
  00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,94,a2,b3,ac
"LicenseInfo"=hex:9e,bf,09,d0,3a,76,a5,27,bb,f2,da,88,58,ce,58,e9,05,6b,0b,82,\
  c3,74,ab,42,0d,fb,ee,c3,ea,57,d0,9d,67,a5,3d,6e,42,0d,60,c0,1a,70,24,46,16,\
  0a,0a,ce,0d,b8,27,4a,46,53,f3,17