none
Scipt VBS registro Windows RRS feed

  • Pregunta

  • 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
        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


    lunes, 9 de marzo de 2015 13:20

Respuestas

Todas las respuestas