locked
Script VBS Lectura de Clave de Registro y Borrado RRS feed

  • Question

  • hola buenos dias, actualmente estoy en un inconveniente, necesito crear un vbs que se fije si existe una clave en el registro REG_SZ y que si el valor que esta adentro de esa clave de registro sea el que le indico en el script, si es asi, que me borre dicha clave de registro, de no ser asi que no realice ninguna accion, a continuacion les paso el script que obviamente no me esta funcionando.

    'Script Login Usuarios, Inicializacion de Variales

    Set WshNetwork = CreateObject("WScript.Network")

    Set WshShell = WScript.CreateObject("Wscript.Shell")

     

    If Not TieneClave("HKCU\LorealConnect\Pulse") Then

                    'lee si tiene la clave de registro

                   

                    if TieneClavePulse ("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Juniper Networks\Device Id\deviceid") then

           

                                   'Lee la Clave de registro y borra la clave y subclaves con la Variable /VA

                                  

            reg delete ("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Juniper Networks\Device Id\deviceid") /va

     

            Else

                    'si se quiere agregar algo

                    End If

                    Else

                    'msgbox "tiene key"

                    End If

    'Agregar Flag Para Verificar la instalacion del Script y que no se repita la politica

         WshShell.RegWrite "HKCU\LorealConnect\Pulse", 1, "REG_DWORD"

     

    Function TieneClave(clave)

      Dim result

      On Error resume next

      Err.clear

      Set WshShell = WScript.CreateObject("Wscript.Shell")

      result = WshShell.RegRead ("HKCU\LorealConnect\Pulse")

      if (result=1) then

        TieneClave = true

      Else

            TieneClave = false

      End If

    End Function

     

    Function TieneClavePulse(clave)

      Dim result

      On Error resume next

      Err.clear

      Set WshShell = WScript.CreateObject("Wscript.Shell")

      result = WshShell.RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Juniper Networks\Device Id\deviceid")

      if (result="9EB1EE24E61341418D793F2280755D3E") then

        TieneClave = true

      Else

            TieneClave = false

      End If

    End Function

    Friday, March 6, 2015 1:51 PM

Answers

  • Hola Buenos dias, encontre la forma de reemplazarlo con una GPO2008. Muchas Gracias a todos.
    Wednesday, April 29, 2015 12:19 PM

All replies