var oXMLHttpRequest = new ActiveXObject("Microsoft.XMLHTTP"); with(oXMLHttpRequest) { Open("GET", strUrl, false); Send(); } var str=oXMLHttpRequest.responseText;
var oXMLHttpRequest = new ActiveXObject("Microsoft.XMLHTTP"); with(oXMLHttpRequest) { Open("GET", strUrl, false, -1); Send(); } var str=oXMLHttpRequest.responseText;
'http://q.hatena.ne.jp/1166525285 Function riname(before, after) Set Fs = WScript.CreateObject("Scripting.FileSystemObject") Set f = Fs.getFile(before) f.name = Fs.getFileName(after) End Function