Proyecto AjpdSoft Software Libre y Artículos sobre Nuevas Tecnologías

Guardar en un fichero las subclaves de una clave del registro

Lenguaje de programación Visual Basic Script (VBScript)

Os mostramos el código fuente en VBScript (Visual Basic Script) para guardar en un fichero de texto el nombre de las subclaves contenidas en una clave indicada del registro de configuraciones de Windows (regedit).

En el ejemplo se obtienen las subclaves de la clave: SYSTEM\CurrentControlSet\Services de la clave HKEY_LOCAL_MACHINE.

const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set StdOut = WScript.StdOut
 
Set oReg = GetObject("winmgmts:" &_
    "{impersonationLevel=impersonate}!\\" &_ 
    strComputer & "\root\default:StdRegProv")

Set objFicheros = CreateObject("Scripting.FileSystemObject")
Set ficheroSalida = objFicheros.CreateTextFile("c:\subclaves_registro.txt", True)


 
strKeyPath = "SYSTEM\CurrentControlSet\Services"
oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys
 
For Each subkey In arrSubKeys
  ficheroSalida.WriteLine (subkey)
Next

ficheroSalida.Close

If objFicheros.FileExists("c:\subclaves_registro.txt") Then
   msgbox ("Creado el fichero c:\subclaves_registro.txt con las subclaves del registro.")
End If