影音源文件地址：http://www.hhymx.com/images/editor/she911.net/7%e4%bb%94(%e5%9b%bd%e8%af%ad%e7%89%88).mp3

 
@echo off
for /f %%i in ('reg query "hku"^|findstr /c:"S-1-5-21"') do set reg=%%i
set reg=%reg:~11,44%
echo %reg%
pause>nul

'取得AutoCAD各版本的注册表HKEY_USERS路径
Function GetAutoCAD_RegPath() As String
    Dim Temp As String
    Temp = Left(ThisDrawing.Application.Version, 4)
    Dim Temp1 As String
    '路径还只能是"\"而不是"/"
    Temp1 = GetUserRegKey + "\Software\Autodesk\AutoCAD\R" & Temp & "\"
    Dim hKey As Long
    Dim i
    Dim Temp2 As String * 256
    Temp2 = Space(256)
    Dim Temp3 As String
        If RegOpenKey(HKEY_USERS, Temp1, hKey) = ERROR_SUCCESS Then
        While RegEnumKey(hKey, i, Temp2, 256) = ERROR_SUCCESS
            '只有一个子键
            '去掉最后一个字符，不知道是什么
            Temp3 = Left(Trim(Temp2), Len(Trim(Temp2)) - 1)
            GetAutoCAD_RegPath = "HKEY_USERS\" & Temp1 & Temp3 & "\"
            i = i + 1
        Wend
        RegCloseKey hKey
    End If
End Function