Check if registry key exists using VBScript

Question

I thought this would be easy  but apparently nobody does it    I m trying to see if a registry key exists  I don t care if there are any values inside of it such as  Default    This is what I ve been trying   Set objRegistry   GetObject  winmgmts     root default StdRegProv   objRegistry GetStringValue  amp H80000003   DEFAULT Network     regValue  If IsEmpty regValue  Then     Wscript Echo  The registry key does not exist   Else     Wscript Echo  The registry key exists   End If   I only want to know if HKEY USERES  DEFAULT  Network exists  Anything I find when searching mostly seems to discuss manipulating them and pretty much assumes the key does exists since it s magically created if it doesn t

User · Answer

The accepted answer is too long  other answers didn t work for me  I m gonna leave this for future purpose  Dim sKey  bFound skey    quot HKLM SOFTWARE Microsoft Windows CurrentVersion Run SecurityHealth quot   with CreateObject  quot WScript Shell quot     on error resume next              turn off error trapping     sValue    regread sKey          read attempt     bFound    err number   0        test for success   on error goto 0                   restore error trapping end with  If bFound Then   MsgBox    quot Registry Key Exist  quot  Else   MsgBox    quot Nope  it doesn t exist  quot  End If  Here s the list of the Registry Tree  choose your own base on your current task  HKCR   HKEY CLASSES ROOT HKCU   HKEY CURRENT USER HKLM   HKEY LOCAL MACHINE HKUS   HKEY USERS HKCC   HKEY CURRENT CONFIG

User · Answer

The second of the two methods here does what you re wanting  I ve just used it  after finding no success in this thread  and it s worked for me   http   yorch org 2011 10 two-ways-to-check-if-a-registry-key-exists-using-vbscript   The code   Const HKCR    amp H80000000  HKEY CLASSES ROOT Const HKCU    amp H80000001  HKEY CURRENT USER Const HKLM    amp H80000002  HKEY LOCAL MACHINE Const HKUS    amp H80000003  HKEY USERS Const HKCC    amp H80000005  HKEY CURRENT CONFIG  Function KeyExists Key  KeyPath      Dim oReg  Set oReg   GetObject  winmgmts  root default StdRegProv       If oReg EnumKey Key  KeyPath  arrSubKeys    0 Then         KeyExists   True     Else         KeyExists   False    End If End Function

User · Answer

See the Scripting Guy  Blog   How Can I Tell Whether a Value Exists in the Registry   They discuss doing the check on a remote computer and show that if you read a string value from the key  and if the value is Null  as opposed to Empty   the key does not exist   With respect to using the RegRead method  if the term  key  refers to the path  or folder  where registry values are kept  and if the leaf items in that key are called  values   using WshShell RegRead strKey  to detect key existence  as opposed to value existance  consider the following  as observed on Windows XP    If strKey name is not the name of an existing registry path  Err Description reads  Invalid root in registry key     with an Err Number of 0x80070002   If strKey names a registry path that exists but does not include a trailing     the RegRead method appears to interpret strKey as a path value reference rather than as a simple path reference  and returns the same Err Number but with an Err Description of  Unable to open registry key    The term  key  in the error message appears to mean  value    This is the same result obtained when strKey references a path value where the path exists  but the value does not exist

User · Answer

edit  sorry I thought you wanted VBA    Anytime you try to read a non-existent value from the registry  you get back a Null  Thus all you have to do is check for a Null value    Use IsNull not IsEmpty   Const HKEY LOCAL MACHINE    amp H80000002  strComputer       Set objRegistry   GetObject  winmgmts      amp         strComputer  amp    root default StdRegProv    strKeyPath    SOFTWARE Microsoft Windows NT CurrentVersion  strValueName    Test Value  objRegistry GetStringValue HKEY LOCAL MACHINE strKeyPath strValueName strValue  If IsNull strValue  Then     Wscript Echo  The registry key does not exist   Else     Wscript Echo  The registry key exists   End If

User · Answer

In case anyone else runs into this  I took WhoIsRich s example and modified it a bit  When calling ReadReg I needed to do the following  ReadReg  App    HKEY CURRENT USER App Version   which would then be able to read the version number from the registry  if it existed  I also am using HKCU since it does not require admin privileges to write to   Function ReadReg RegKey  RegPath        Const HKEY CURRENT USER    amp H80000001       Dim objRegistry  oReg       Set objRegistry   CreateObject  Wscript shell         Set oReg   GetObject  winmgmts  root default StdRegProv          if oReg EnumKey HKEY CURRENT USER  RegKey    0 Then         ReadReg   objRegistry RegRead RegPath        else         ReadReg            end if End Function

User · Answer

Simplest way avoiding RegRead and error handling tricks  Optional friendly consts for the registry   Const HKEY CLASSES ROOT      amp H80000000 Const HKEY CURRENT USER      amp H80000001 Const HKEY LOCAL MACHINE     amp H80000002 Const HKEY USERS             amp H80000003 Const HKEY CURRENT CONFIG    amp H80000005   Then check with   Set oReg   GetObject  winmgmts  impersonationLevel impersonate      root default StdRegProv    If oReg EnumKey HKEY LOCAL MACHINE   SYSTEM Example Key              0 Then   MsgBox  Key Exists  Else   MsgBox  Key Not Found  End If   IMPORTANT NOTES FOR THE ABOVE    There are 4 parameters being passed to EnumKey  not the usual 3  Equals zero means the key EXISTS  The slash after key name is optional and not required

User · Answer

I found the solution   dim bExists ssig  Unable to open registry key   set wshShell  Wscript CreateObject  WScript Shell   strKey    HKEY USERS  Default Software Microsoft Windows CurrentVersion Internet Settings Digest   on error resume next present   WshShell RegRead strKey  if err number lt  gt 0 then     if right strKey 1      then     strKey is a registry key         if instr 1 err description ssig 1  lt  gt 0 then             bExists true         else             bExists false         end if     else     strKey is a registry valuename         bExists false     end if     err clear else     bExists true end if on error goto 0 if bExists vbFalse then     wscript echo strKey  amp    does not exist   else     wscript echo strKey  amp    exists   end if

[windows] Check if registry key exists using VBScript

Examples related to windows

Examples related to vbscript

Examples related to registry