■

えーと、自宅PCだとMSXMLオブジェクトのresponseBodyでそのままHTMLが取得できてるのに、会社PCではresponseBodyで結果が戻らないor仕様通（？）りバイト配列が戻ってる（どっちなのか未確認）
MSXMLのバージョンは同じはずなのに・・・

とりあえず色々見た感じ、HTMLのテキストを取得するならresponseTextで、これはUTF-8じゃないととれないっぽ。
xmlHttp.setRequestHeader("Content-Type", "text/html; charset=EUC-JP");
とすればいけるような記述もみかけたけど、今のところ効果なさげ。
responseBodyなら漢字コードは何でもいけそうだけど、戻り値はバイト配列だから文字に変換しないとダメ・・・・・らしいんだけど自宅PCではそのままでHTMLが取得できてるし。
MSXMLの問題なのか、peggyのバージョンの問題なのか、そこの切り分けをしてみるか。

http://72.14.235.104/search?q=cache:CL7zwToZLsEJ:q.hatena.ne.jp/1131855304+MSXML2.XMLHTTP%E3%80%80responsetext%E3%80%80%E6%96%87%E5%AD%97%E3%82%B3%E3%83%BC%E3%83%89&hl=ja&gl=jp&ct=clnk&cd=10
http://homepage1.nifty.com/MADIA/vb/vb_bbs2/200308_03080100.html
http://72.14.235.104/search?q=cache:D7I8WqfvmhUJ:homepage1.nifty.com/MADIA/vb/vb_bbs/200309_03090050.html+MSXML2.XMLHTTP+responseText+set%E3%80%80header%E3%80%80%E6%96%87%E5%AD%97%E3%82%B3%E3%83%BC%E3%83%89&hl=ja&gl=jp&ct=clnk&cd=3
http://72.14.235.104/search?q=cache:gvQSq1anjWkJ:www.ken3.org/vba/backno/vba159.html+MSXML2.XMLHTTP+responseText+set%E3%80%80header%E3%80%80%E6%96%87%E5%AD%97%E3%82%B3%E3%83%BC%E3%83%89&hl=ja&gl=jp&ct=clnk&cd=13

// xml_http_test.ms

function validateMSXML() {
var ver;
var xmldoc;
var sout;
try {
try {
xmldoc = createObject("MSXML2.DOMDocument.5.0");
ver = "5.0";
}
catch (e) {
try {
xmldoc = createObject("MSXML2.DOMDocument.4.0");
ver = "4.0";
}
catch (e) {
try {
xmldoc = createObject("MSXML2.DOMDocument.3.0");
ver = "3.0";
}
catch (e) {
beep(0);
setErrorStatusText("MSXML(3.0/4.0/5.0)のオブジェクトが作成できません。");
return;
}
}
}
}
alert(ver);
}

validateMSXML();

var xmlHttp = createObject("MSXML2.XMLHTTP.3.0");
xmlHttp.open("GET", "http://d.hatena.ne.jp/", "False");
xmlHttp.setRequestHeader("Content-Type", "text/html; charset=EUC-JP");
xmlHttp.send(null);
var html = xmlHttp.responseText.convertEucToSjis();
insertText(html);