code:

---

break on

$file = "C:\AspEmail.dll"

ToBin($file)

Function StrConvert($vBin)
    $oConv = CreateObject("ADODB.Stream")
    $oConv.Charset = "utf-8"
    $oConv.Type = 1 ;binary
    $oConv.Open
    $oConv.Write($vBin)
    $oConv.Position = 0
    $oConv.Type = 2 ;Text
    $oConv.Charset = "Windows-1252" ;optionally
    $StrConvert = $oConv.ReadText()
EndFunction
  

---

code:

---

Function ToBin($sString)
    $oConv = CreateObject("ADODB.Stream")
    $oConv.Charset = "Windows-1252"
    $oConv.Type = 2 ; text
    $oConv.Open
    $oConv.WriteText($sString)
    $oConv.Position = 0
    $oConv.Type = 1 ;binary
    ;$oConv.Charset = "utf-8" ;optionally
    $ToBin = $oConv.Read()
EndFunction
  

---

Working, please help yourself.

Kent