Function GetRegValue(regpath)
Dim wsh, readValue
Set wsh = CreateObject("wscript.shell")
readValue = wsh.RegRead(regpath)
Set wsh = Nothing
If IsArray(readValue) Then  
For Each value In readValue
result = result & Hex(value)
Next
Erase readValue
Else
result = readValue
End If

If IsEmpty(result) Or IsNull(result) Then
GetRegValue = Null
Else
GetRegValue = CStr(result)
End If
End Function
以上函数功能是把注册表的DWORD与二进制数转化成16进制,为什么在64位机子上返回的值是二进制的呢?