Rem On Error Resume Next
Const HKLM = &H80000002
Dim regPath, objReg
regPath = "Software\Microsoft\Windows\CurrentVersion"
Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\Root\Default:StdRegProv")

EnumRegistry HKLM, regPath

Function EnumRegistry(HKLM, regSubPath)
    Dim arrName, arrType, s, i, regType, regValue
    objReg.EnumValues HKLM, regSubPath, arrName, arrType                         '枚举注册表值名
    If isArray(arrName) Then
        s = ""
        For i=0 To UBound(arrName)
            regType  = GetRegType(arrType(i))                                    '获取类型
            regValue = GetRegValue( HKLM, regSubPath, arrName(i), arrType(i) )   '获取注册表值
            s = s & arrName(i) & vbTab & regType & vbTab & regValue & vbLf
        Next
        WSH.Echo regSubPath & vbLf & s
    Else
        WSH.Echo regSubPath
    End If

    objReg.EnumKey HKLM, regSubPath, arrName                                     '枚举注册表项
    If isArray(arrName) Then
        For i=0 To UBound(arrName)
            EnumRegistry HKLM, regSubPath & "\" & arrName(i)    '递归
        Next
    End If
End Function

Function GetRegType(n)
    Select Case n
        Case 1 GetRegType = "REG_SZ"
        Case 2 GetRegType = "REG_EXPAND_SZ"
        Case 3 GetRegType = "REG_BINARY"
        Case 4 GetRegType = "REG_DWORD"
        Case 7 GetRegType = "REG_MULTI_SZ"
        Case 11 GetRegType = "REG_QWORD"
    End Select
End Function

Function GetRegValue( HKLM, regSubPath, regName, n )
    Select Case n
        Case 1
            objReg.GetStringValue HKLM, regSubPath, regName, sValue
            GetRegValue = sValue
        Case 2
            objReg.GetExpandedStringValue HKLM, regSubPath, regName, sValue
            GetRegValue = sValue
        Case 3
            objReg.GetBinaryValue HKLM, regSubPath, regName, uValue
            GetRegValue = Join(uValue, ",")
        Case 4
            objReg.GetDWORDValue HKLM, regSubPath, regName, uValue
            GetRegValue = uValue
        Case 7
            objReg.GetMultiStringValue HKLM, regSubPath, regName, sValue
            GetRegValue = Join(sValue, ",")
        Case 11
            objReg.GetQWORDValue HKLM, regSubPath, regName, uValue
            GetRegValue = uValue
    End Select
End Function
复制代码