Function ReadBinaryFile(strFileName)
	on error resume next
	Set oStream = CreateObject("ADODB.Stream")
	if Err.Number<>0 then
		ReadBinaryFile=Err.Description
		Err.Clear
		exit function
	end if
	oStream.Type = 1
	oStream.Open
 
	oStream.LoadFromFile strFileName
	if Err.Number<>0 then
		ReadBinaryFile=Err.Description
		Err.Clear
		exit function
	end if
	ReadBinaryFile=oStream.Read
	oStream.Close
	set oStream = nothing
	if Err.Number<>0 then ReadBinaryFile=Err.Description
End Function 

getbinary  = ReadBinaryFile(WScript.Arguments(0))
For i=1 to LenB(getbinary)
	tmpStr = "" & Hex(AscB(MidB(getbinary, i, 1)))
	If Len(tmpStr) < 2 Then
		tmpStr = "0" & tmpStr
	End If
	strImage = strImage & tmpStr
Next
WScript.Echo strImage