VBScript to Download Japanese HTML and Save using euc-jp

Demonstrates how to save non-English strings to a file using Chilkat.FileAccess:

set http = CreateObject("Chilkat.Http")

'  Any string unlocks the component for the 1st 30-days.
success = http.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
    MsgBox http.LastErrorText
    WScript.Quit
End If

'  Send the HTTP GET and return the content in a string.
html = http.QuickGetStr("http://www.asahi.com/")

' Save the HTML to a file using the euc-jp charset:
Set fac = CreateObject("Chilkat.FileAccess")
success = fac.WriteEntireTextFile("asahi.html",html,"euc-jp",0)

' Download the freeware Chilkat.FileAccess ActiveX from:
' http://www.chilkatsoft.com/download/FileAccess.zip