Sign in
Microsoft.com
 
Microsoft
 
 
 

locked
VBS: Read out/list Registry subfolders ( Windows 10 64Bit Professional ) RRS feed

 > 

  • Question

  • Question
    Sign in to vote
    0
    Sign in to vote
       
    Hello,

    I would like to get the "default browser" of a Windows 10 pc system as a VBS variable.

    The following script doesn't work.
    I don't know why.
    The Registry subfolder "Firefox..." (belongs to HKCU\SOFTWARE\Clients\StartMenuInternet\) exists.
         
       
Const WbemAuthenticationLevelPktPrivacy = 6
 
strComputer = "localhost"
strNamespace = "root\cimv2"
strUser = ""
strPassword = ""
 
Set objWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = objwbemLocator.ConnectServer _
    (strComputer, strNamespace, strUser, strPassword)
objWMIService.Security_.authenticationLevel = WbemAuthenticationLevelPktPrivacy
 
Const HKCU = &H80000001
Set objReg = GetObject("winmgmts://" & strComputer & _
    "/root/default:StdRegProv")
Const strBaseKey = "SOFTWARE\Clients\StartMenuInternet\"
objReg.EnumKey HKCU, strBaseKey, arrSubKeys
 For Each strSubKey In arrSubKeys
    intRet = objReg.GetStringValue(HKCU, strBaseKey & strSubKey, _
        "DisplayName", strValue)
    If intRet <> 0 Then
        intRet = objReg.GetStringValue(HKCU, strBaseKey & strSubKey, _
        "QuietDisplayName", strValue)
    End If
    If (strValue <> "") and (intRet = 0) Then
        str=str & strValue &vbcrlf
    End If
Next
wscript.echo str
     
    Result variable "str" has no value.
    Value must be "Firefox...".

    Thanks

    Tommy










    • Moved by Bill_Stewart Wednesday, May 30, 2018 7:37 PM Abandoned
    Thursday, April 5, 2018 11:35 AM

All replies