Sección de códigos , trucos y ejemplos para visual basic

310 - Acceder al registro de windows com Wmi

<Volver> - Anterior - Siguiente

Ejemplo de como crear , eliminar y leer valores utilizando windows Management instrumentation

Principales métodos para acceder al registro con Wmi

Para valores de cadena

GetStringValue : Permite leer un valor de cadena o tipo String.

SetStringValue : Permite escirbir un valor de tipo cadena

Para valores Dword :

GetDWORDValue : Lee un valor de Dword

SetDWORDValue : Escribe un valor de Dword

Valores binarios

GetBinaryValue : Lee un valor binario

SetBinaryValue : Graba un valor binario

Otros métodos :

CreateKey : Permite Crear una clave

DeleteValue : Permite eliminar un valor

DeleteKey : Permite eliminar una clave

EnumValues y EnumKey : enumeran claves y valores

Ejemplos

Lo siguiente lee un valor de tipo cadena, utilizando el método GetStringValue

'Constantes para acceder a las difentes ramas de l registro Const HKEY_CLASSES_ROOT = &H80000000 Const HKEY_CURRENT_USER = &H80000001 Const HKEY_LOCAL_MACHINE = &H80000002 Const HKEY_USERS = &H80000003 Const HKEY_CURRENT_CONFIG = &H80000005 Private Sub Command1_Click() Dim Wmi As Object Dim ret As Long 'Computadora local Name_Computadora = "." Set Wmi = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" _ & Name_Computadora & "\root\default:StdRegProv") ' Ruta de la clave a leer Path_clave = "SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" ' Nombre del Valor a leer Nombre_Valor = "SoundMax" 'Lee el dato de tipo cadena ret = Wmi.GetStringValue(HKEY_LOCAL_MACHINE, Path_clave, Nombre_Valor, Valor) 'Muestra el valor devuelto en la variable " Valor " MsgBox " Valor: " & Valor, vbInformation Set Wmi = Nothing End Sub

Lo siguiente Elimina un valor con el método DeleteValue

'Constantes para acceder a las diferentes ramas Const HKEY_CLASSES_ROOT = &H80000000 Const HKEY_CURRENT_USER = &H80000001 Const HKEY_LOCAL_MACHINE = &H80000002 Const HKEY_USERS = &H80000003 Const HKEY_CURRENT_CONFIG = &H80000005 Private Sub Command1_Click() Dim Wmi As Object Dim ret As Long ' máquina local Name_Computadora = "." Set Wmi = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" _ & Name_Computadora & "\root\default:StdRegProv") ' Path de la clave Path_clave = "SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" ' Nombre del Valor a eliminar Nombre_Valor = "SoundMax" 'Elimina el valor ret = Wmi.DeleteValue(HKEY_LOCAL_MACHINE, Path_clave, Nombre_Valor) If ret = 0 Then MsgBox " Valor eliminado ", vbInformation Else MsgBox " Error", vbCritical End If Set Wmi = Nothing End Sub

Lo siguiente elimina una clave

'Elimina la clave indicada ret = Wmi.DeleteKey(HKEY_LOCAL_MACHINE, Path_clave) 'Ok If ret = 0 Then MsgBox " Valor eliminado ", vbInformation Else 'error MsgBox " Error", vbCritical End If Set Wmi = Nothing

Nota. En los ejemplos, si el valor de retorno al ejecutar los métodos es 0, es por que NO hubo error.

Otra cosa importantes es que , al especificar la ruta de la clave, no debe comenzar con la barra separadora de path ya que sino no, no la tomará como válida

Por ejemplo lo siguiente es incorrecto:

"\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\"

Correcto:

"SOFTWARE\Microsoft\Windows\CurrentVersion\Run\"

Recursos vb 6.0 - Enlaces relacionados

Buscar en Recursos vb