BINARY値を意味のある文字列に変換する

Question

レジストリキーのバイナリ値をスティングに変換できる方法やVBScriptを探しています。

[HKEY_CURRENT_USER\System\Majid] 
"FilePath"=hex:50,4f,2b,2a,90,93,e0,11,80,01,44,45,53,54,00,00 

それはに翻訳されています：例えば

が、これは私のキーだと思うPO + *گ€「DEST

しかし、それは本当に何を意味à？私はこの奇妙な価値を意味のある言葉に解読したい。 私はそれに私のキーを置き換えることができ、結果を受け取ることができる単純なvbscriptを与えることができる場合、私は本当に多くのあなたに感謝します:)

Answer 1

Ok。あなたのことを行うには、このコードを使用してください。 レジストリ値を取得して変換する方法を参照してください。

Const HKEY_CURRENT_USER = &H80000001 
objreg = GetObject("winmgmts:" & _ 
     "{impersonationLevel=impersonate}!\\" & _ 
     strComputer & "\root\default:StdRegProv") 


objreg.GetBinaryValue HKEY_CURRENT_USER, "System\Majid", "FilePath", strRetVal 

MsgBox RegBinaryToString(strRetVal) 

function RegBinaryToString(arrValue) 
strInfo="" 
    for i=0 to ubound(arrValue) 
    if arrValue(i)<>0 then strInfo=strInfo & chr(arrValue(i)) 
    next 
RegBinaryToString=strInfo 
end function