Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\*\shell\bbbbbbbbbbbbb]
@="----------二进制----------"
[HKEY_CLASSES_ROOT\*\shell\bbbbbbbbbbbbb\command]
@="cscript c:\\bbs\\test.vbs \"%1\""

'----------------接收参数-----------------------
Set oArgs = WScript.Arguments
filepath = oArgs(0)
'--------------
Set stream = CreateObject("ADODB.Stream")
stream.Type = 1 'binary
stream.Open
stream.LoadFromFile filepath '载入文件

'-------------写到另一个stream里---------------
    Set stream2 = CreateObject("ADODB.Stream")
    stream2.Type = 2 'text
    stream2.charset="iso-8859-1"
    stream2.Open
    
    mmax = stream.size
    for i= 1 to mmax
        hh = hex(ascb(stream.read(1)))
        if len(hh)=1 then
            hh = "0" & hh
        end if
        stream2.writeText hh
        'stream2.writeText " "
    next
    stream2.SaveToFile filepath & "_hex.txt",2 '覆盖
    stream2.Close 
    Set stream2 = Nothing
'---------------------------------------
stream.Close 
Set stream = Nothing